下载：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可以很大程度的让程式更好读
'