VBA专题10-1：使用VBA操控Excel界面之设置单元格格式

本文主要讲解设置工作表单元格或单元格区域格式的VBA代码，包括设置字体、数字格式、文本对齐、填充单元格背景色、设置单元格边框等。

字体

示例代码：

'以单元格A1为例

'设置单元格字体、字号和颜色

With Range("A1").Font

.Bold = True

.Name = "微软雅黑"

.Size = 15

.Color = vbRed

End With

效果演示如图1所示。

图1

代码中，字体设置可以参考Excel中字体框中的下拉列表列举的字体名，颜色设置可以查看VBA帮助，找到合适的颜色常量。

数字格式

示例代码：

'将单元格中的数字格式设置为分数

Range("A1:C3").NumberFormat= "# ?/?"

'显示完整的星期名

Range("A1").NumberFormat= "dddd"

'清除单元格中的数字格式

Range("A1").NumberFormat= ""

更多关于自定义数字格式的内容请参考完美Excel微信公众号（公众号名：excelperfect）的文章《Excel揭秘2：自定义数字格式原理与应用》。

隐藏单元格中的内容

示例代码：

'隐藏所选单元格区域中单元格里的内容

Selection.NumberFormat= ";;;"

文本对齐

示例代码：

'对齐单元格中的数据

Range("A1").HorizontalAlignment= xlLeft

Range("A1").VerticalAlignment= xlTop

'单元格中的数据左缩进2级

Range("A1").IndentLevel= 2

代码中，设置对齐方式的常量可在VBA帮助中查找获得。

使用颜色填充单元格

示例代码：

'使用指定颜色填充单元格区域的背景色

With Range("A1:D3").Interior

'设置为xlNone则无填充

.Color = vbBlack

'-1(最暗)到1(最亮)

.TintAndShade= 0.5

'颜色索引值为0到56

'3是红色,4是绿色,5是蓝色

.ColorIndex = 3 '

End With

效果演示如图2所示。

图2

单元格边框线样式，颜色，宽度

示例代码：

'设置单元格区域四个边框(左右上下)的边线样式为虚线

Range("A1:C3").Borders.LineStyle= xlDash

'设置单元格区域中的单元格顶部边框线为双线

Range("A1:C3").Borders.LineStyle= xlDouble

'清除边框线

Range("A1:C3").Borders.LineStyle= xlLineStyleNone

效果演示如图3所示。

图3

可以在VBA帮助中查找获取代表线条样式的VBA常量值。

'设置单元格区域内某类边框(而不是四个边框)的

'线条样式、颜色和宽度

With Range("A1:C3").Borders(xlInsideHorizontal)

.LineStyle = xlDash

.ColorIndex = 4

.Weight = 3

End With

效果演示如图4所示。

图4

说明：本专题系列大部分内容学习整理自《Dissectand Learn Excel VBA in 24 Hours：Changingworkbook appearance》，仅供学习研究。