[心得] 自訂工作表字型按鈕 VBA實戰系列

[noworneverev (小朋友)]

下載：https://goo.gl/NCGsnY

使用方法：#1PlggT3y

Demo：https://noworneverev.github.io/images/font.gif

圖文版：https://noworneverev.github.io/2017/10/01/font/


此篇介紹的是極為簡單的自訂字型按鈕，在事務所工作每天要碰到Excel，
而工作表常常需要選擇字型與字型大小，讓PBC或底稿變得更美觀一點，
有些IC更會要求底稿的字型與格式，

個人認為選字型這種事很浪費時間，可以一鍵做到的事絕不再多花一絲力氣，

所以呢這篇懂VBA的人看可能會覺得hen87，
不過我想對很多人來說應該是會有些幫助的。

這次的font.xlam可使用的有以下兩個功能：

Sub Font()
    Cells.Select
    Selection.Font.Name = "微軟正黑體"
    Selection.Font.Size = "10"
    ActiveSheet.Range("A1").Select
End Sub

Cells.Select全選儲存格，然後更改選取的儲存格字型為"微軟正黑體"，大小"10"，
最後選取的儲存格為A1(字型或大小都可視自己需要做更改)

上方有些重複的語法可改寫成：

        With Selection.Font
            .Name = "微軟正黑體"
            .Size = "10"
        End With

之後會有幾百行的程式，擅用With可以很大程度的讓程式更好讀

'---------------------------------------

有些時候你可能不需要更改整張工作表的字型，只需改你選取的範圍，
那麼像下面這樣寫就可達成

Sub Font_custom()
    Selection.Font.Name = "微軟正黑體"
    Selection.Font.Size = "10"
End Sub




----------------------------------------

自訂切換工作表按鈕：
https://noworneverev.github.io/2017/09/24/nextworksheet/


自訂功能列：
https://noworneverev.github.io/2017/09/17/excel-customize-ribbon/

--
                Accoding: https://www.facebook.com/AccodingTW/

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.46.93.28
※ 文章網址: https://www.ptt.cc/bbs/Accounting/M.1506844689.A.C42.html