本文主要讲解设置工作表单元格或单元格区域格式的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》，仅供学习研究。
