我们致力于为大家奉献最有效的经验，让大家能够解决掉问题，但是大家也都知道，每个人遇到的情况都是不一样的，大家在看经验的同时，除了跟随操作，也需要自己的思考，举一反三的解决问题，这样才会变得更加有内涵，一起成长为一样的经验达人。根据二八定律，学好这excel VBA，就能完成80%的工作。
在VBA中可以对单元格的字体格式进行各种设置，如下面的代码所示。
#001 Public Sub RngFont()
#002 With Range("A1").Font
#003 .Name = "华文彩云"
#004 .FontStyle = "Bold"
#005 .Size = 18
#006 .ColorIndex = 3
#007 .Underline = 2
#008 End With
#009 End Sub
代码解析：
RngFont过程对单元格A1的字体格式进行设置。
其中第3行代码设置字体为“华文彩云”，应用于Font对象的Name属性返回或设置对象的名称。
第4行代码设置字体为加粗，FontStyle属性返回或设置字体样式。设置为“Bold” 加粗字体，设置为“Italic”倾斜字体，也可以设置成“Bold Italic”。
第5行代码设置字体的大小为18磅，Size属性返回或设置字体大小。
第6行代码设置字体的颜色为红色，应用于Font对象的ColorIndex属性返回或设置字体的颜色，该颜色可指定为当前调色板中颜色的编号，如图 11‑1所示。
调色板中颜色的编号
第7行代码设置字体为单下划线类型，Underline属性返回或设置应用于字体的下划线类型，可为表格 11‑1所列的XlUnderlineStyle常量之一。
表格 XlUnderlineStyle常量
如果你在工作中还需要设计其他的表格模板，都可以留言，我们会根据大家需求来整理相关的学习资料，目的只有一个，那就是学好Excel，提高工作效率！
,
