作者noworneverev (小朋友)
看板Accounting
標題[心得] 自訂工作表字型按鈕 VBA實戰系列
時間Sun Oct 1 15:57:46 2017
下載：
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://webptt.com/m.aspx?n=bbs/Accounting/M.1506844689.A.C42.html