技巧 单元格格式操作1-1 单元格字体格式设置
在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所示。
图 11 1 调色板中颜色的编号
第7行代码设置字体为单下划线类型，Underline属性返回或设置应用于字体的下划线类型，可为表格 11 1所列的XlUnderlineStyle常量之一。
常量
值
描述
xlUnderlineStyleNone
-4142
无
xlUnderlineStyleSingle
2
单下划线
xlUnderlineStyleDouble
-4119
双下划线
xlUnderlineStyleSingleAccounting
4
会计用单下划线
xlUnderlineStyleDoubleAccounting
5
会计用双下划线
表格 11 1 XlUnderlineStyle常量
运行RngFont过程结果如图 11 2所示。
图 11 2 单元格字体设置
1-2 设置单元格内部格式
设置单元格的Interior属性可以对单元格的内部格式进行设置，如下面的代码所示。
#001 Sub RngInterior()
#002 With Range("A1").Interior
#003 .ColorIndex = 3
#004 .Pattern = xlPatternCrissCross
#005 .PatternColorIndex = 6
#006 End With
#007 End Sub
代码解析：
RngInterior过程对A1单元格的内部格式进行设置。
第2行代码使用Interior属性返回单元格对象的内部。
第3行代码设置单元格边框内部的颜色为红色。应用于Interior对象的ColorIndex属性返回或设置边框内部的颜色，可指定为如图 11 1所示的当前调色板中颜色的编号或为XlColorIndex 常量之一：xlColorIndexAutomatic （自动填充）、xlColorIndexNone （无内部填充）。
第4行代码设置单元格设置内部图案为十字图案。应用于Interior对象的Pattern属性返回或者设置内部图案。
第5行代码设置单元格设置内部图案的颜色为黄色。应用于Interior对象的PatternColorIndex属性返回或设置内部图案的颜色，可指定为如图 11 1所示的当前调色板中颜色的编号XlColorIndex常量之一：xlColorIndexAutomatic （自动填充）、xlColorIndexNone （无内部填充）。
运行RngInterior过程结果如图 11 3所示。
图 11 3 设置单元格内部格式
1-3 为单元格区域添加边框
我们为单元格区域添加边框时往往通过录制宏获取代码，但宏录制器生成的代码分别设置单元格区域的每个边框，因此代码多且效率低。使用Range对象的Borders集合可以快速地对单元格区域的每个边框应用相同的格式，而Range对象的BorderAround方法则可以快速地为单元格区域添加一个外边框，如下面的代码所示。 周杰伦 43 岁生日当天，杰迷在腾讯文档里搞团建wps页面设置在哪里(wpsoffice页面设置在哪里)wps标尺在哪里(wps上方的标尺)wps的页面设置在哪里(办公软件页面设置在哪里)wps的标尺在哪里(wps文字垂直标尺怎么调出来)wps如何排版(怎么设置wps文档排版)wps如何插入图片(wps里面怎么压缩图片)wps如何加密(WPS文档加密)wps如何设置页眉(wps如何取消页眉)wps如何换行(wps文本怎么自动换行)
