没有对单元格进行格式操作的工作表是平淡无奇的，缺乏表现力，也辜负了Excel为我们准备的大量格式排版功能。因此，我们通常会对单元格进行一些格式排版操作，例如将表头字体加粗并设置不同的背景色、使用颜色突出显示需要关注的单元格等，从而制作出一张漂亮的工作表，让工作表生动起来。
前面介绍文章的中已经接触过使用VBA格式单元格的一些代码，本文将作更进一步的介绍。应该说，对单元格进行格式化是Excel中的常用操作之一。当我们找到满足条件的单元格或单元格区域后，不仅会对这些单元格数据进行提取和分析，也会对它们应用相应的格式。在后续系列文章中，我们也会在示例中用到单元格格式的代码，因此本文对应用单元格格式进行初步解，以方便后续演示示例的理解。
通常，我们会给单元格中的文本加粗或者给特定单元格添加背景色，从而将某些单元格突出显示出来，或者通过应用格式使工作表易读性更强。
下面是Excel录制宏所录制的这两种操作的VBA代码。
（单击“开发工具——录制宏”命令，对工作表中进行相应的格式化操作，然后，单击“开发工具——停止录制”）
1、将单元格B2中的文本加粗，如下图所示。
录制的代码如下：
Sub 宏3()
‘
‘ 宏3 宏
‘
‘
Range(“B2”).Select
Selection.Font.Bold = True
End Sub
初识Font对象
正如上面所录制的给文本加粗的代码所演示的，如果你要对单元格中的文本进行操作，就要用到Font对象。
Font对象包含单元格中文本字体的属性设置，如下图所示，图中标示了各种属性设置所对应的Font对象的属性。
观察录制的代码：
Selection.Font.Bold = True
单元格对象Selection对象的Font属性返回一个Font对象，代表该单元格对象中的字体。然后，使用Font对象的属性对单元格字体进行设置。
例如，代码：
Range(“B2”).Font.Name = “宋体”
将单元格B2中的文本字体设置为“宋体”。
Range(“B2”).Font.Color = RGB(255,0, 0)
将单元格B2中的文本颜色设置为红色。（RGB是表示颜色的函数，可以通过3个参数组合出不同的颜色来）
也可以使用下面的代码：
Range(“B2”).Font.ColorIndex = 3
将单元格B2中的文本颜色设置为红色。ColorIndex属性可以设置或获取文本的颜色值，上述代码表明在当前调色板中红色的索引值为3。因此，如果你想获取当前文本的颜色值，可以使用ColorIndex属性。
2、给单元格B2添加蓝色的背景色，如下图所示。
录制的代码如下：
Sub 宏4()
‘
‘ 宏4 宏
‘
‘
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 12611584
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
初识Interior对象
正如上面所录制的给单元格添加背景的代码所演示的，如果你要对单元格背景进行操作，就要用到Interior对象。
Interior对象包含给单元格添加背景的属性设置，如下图所示，图中重点标示了设置或获取单元格背景填充色所对应的Color属性和ColorIndex属性。
观察所录制的代码：
Selection.Interior.Color = 12611584
所选单元格对象（这里是单元格B2）的Interior属性返回一个Interior对象，代表该单元格背景。然后，使用Interior对象的Color属性设置该单元格背景色为蓝色。
下面的代码将单元格B2的背景色设置为蓝色：
Range(“C6”).Interior.ColorIndex =23
下面的代码将单元格C8的背景色设置为灰色：
Range(“C8”).Interior.Color =RGB(125, 125, 125)
注：如何在代码中选择想要的颜色？一种方法是使用录制宏，在工作表中使用相应的操作设置颜色后，查看录制的代码，将相应的代码应用到自已的代码中；另一种方法是在代码中改变RGB函数里的参数值进行试验，或者改变ColorIndex属性的值进行试验，直到获得自已满意的颜色。
好了，就简单地介绍到这里。
关于Font对象和Interior对象的其它属性可以进行试验，并对照工作表中“设置单元格格式”对话框里相应的操作进行理解。
评论(0)