下载：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/cn.aspx?n=bbs/Accounting/M.1506844689.A.C42.html