自訂工作表字型按鈕 VBA實戰系列 - 會計

下載：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/

--