技巧 单元格格式操作

1-1 单元格字体格式设置

在VBA中可以对单元格的字体格式进行各种设置，如下面的代码所示。f3a拜客生活常识网

#001 Public Sub RngFont()f3a拜客生活常识网

#002 With Range("A1").Fontf3a拜客生活常识网

#003 .Name = "华文彩云"f3a拜客生活常识网

#004 .FontStyle = "Bold"f3a拜客生活常识网

#005 .Size = 18f3a拜客生活常识网

#006 .ColorIndex = 3f3a拜客生活常识网

#007 .Underline = 2f3a拜客生活常识网

#008 End Withf3a拜客生活常识网

#009 End Subf3a拜客生活常识网

代码解析：f3a拜客生活常识网

RngFont过程对单元格A1的字体格式进行设置。f3a拜客生活常识网

其中第3行代码设置字体为“华文彩云”，应用于Font对象的Name属性返回或设置对象的名称。f3a拜客生活常识网

第4行代码设置字体为加粗，FontStyle属性返回或设置字体样式。设置为“Bold” 加粗字体，设置为“Italic”倾斜字体，也可以设置成“Bold Italic”。f3a拜客生活常识网

第5行代码设置字体的大小为18磅，Size属性返回或设置字体大小。f3a拜客生活常识网

第6行代码设置字体的颜色为红色，应用于Font对象的ColorIndex属性返回或设置字体的颜色，该颜色可指定为当前调色板中颜色的编号，如图 111所示。f3a拜客生活常识网

图 111 调色板中颜色的编号f3a拜客生活常识网

第7行代码设置字体为单下划线类型，Underline属性返回或设置应用于字体的下划线类型，可为表格 111所列的XlUnderlineStyle常量之一。f3a拜客生活常识网

表格 111 XlUnderlineStyle常量f3a拜客生活常识网

运行RngFont过程结果如图 112所示。f3a拜客生活常识网

图 112 单元格字体设置f3a拜客生活常识网

1-2 设置单元格内部格式

设置单元格的Interior属性可以对单元格的内部格式进行设置，如下面的代码所示。f3a拜客生活常识网

#001 Sub RngInterior()f3a拜客生活常识网

#002 With Range("A1").Interiorf3a拜客生活常识网

#003 .ColorIndex = 3f3a拜客生活常识网

#004 .Pattern = xlPatternCrissCrossf3a拜客生活常识网

#005 .PatternColorIndex = 6f3a拜客生活常识网

#006 End Withf3a拜客生活常识网

#007 End Subf3a拜客生活常识网

代码解析：f3a拜客生活常识网

RngInterior过程对A1单元格的内部格式进行设置。f3a拜客生活常识网

第2行代码使用Interior属性返回单元格对象的内部。f3a拜客生活常识网

第3行代码设置单元格边框内部的颜色为红色。应用于Interior对象的ColorIndex属性返回或设置边框内部的颜色，可指定为如图 111所示的当前调色板中颜色的编号或为XlColorIndex 常量之一：xlColorIndexAutomatic （自动填充）、xlColorIndexNone （无内部填充）。f3a拜客生活常识网

第4行代码设置单元格设置内部图案为十字图案。应用于Interior对象的Pattern属性返回或者设置内部图案。f3a拜客生活常识网

第5行代码设置单元格设置内部图案的颜色为黄色。应用于Interior对象的PatternColorIndex属性返回或设置内部图案的颜色，可指定为如图 111所示的当前调色板中颜色的编号XlColorIndex常量之一：xlColorIndexAutomatic （自动填充）、xlColorIndexNone （无内部填充）。f3a拜客生活常识网

运行RngInterior过程结果如图 113所示。f3a拜客生活常识网

图 113 设置单元格内部格式f3a拜客生活常识网

1-3 为单元格区域添加边框

我们为单元格区域添加边框时往往通过录制宏获取代码，但宏录制器生成的代码分别设置单元格区域的每个边框，因此代码多且效率低。使用Range对象的Borders集合可以快速地对单元格区域的每个边框应用相同的格式，而Range对象的BorderAround方法则可以快速地为单元格区域添加一个外边框，如下面的代码所示。

相关阅读: