我们致力于为大家奉献最有效的经验，让大家能够解决掉问题，但是大家也都知道，每个人遇到的情况都是不一样的，大家在看经验的同时，除了跟随操作，也需要自己的思考，举一反三的解决问题，这样才会变得更加有内涵，一起成长为一样的经验达人。根据二八定律，学好这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，提高工作效率！