技巧 单元格格式操作

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属性返回或设置字体的颜色，该颜色可指定为当前调色板中颜色的编号，如图 111所示。

图 111 调色板中颜色的编号

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

表格 111 XlUnderlineStyle常量

运行RngFont过程结果如图 112所示。

图 112 单元格字体设置

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属性返回或设置边框内部的颜色，可指定为如图 111所示的当前调色板中颜色的编号或为XlColorIndex 常量之一：xlColorIndexAutomatic （自动填充）、xlColorIndexNone （无内部填充）。

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

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

运行RngInterior过程结果如图 113所示。

图 113 设置单元格内部格式

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

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