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

excelperfect

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

欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。