Excel VBA实例教程 #016：高亮显示单元格区域

本帖最后由 美眉鼠眼 于 2010-6-7 16:19 编辑 如果希望以某种方式突出显示活动单元格或者指定的单元格区域，从而一目了然地获得某些信息，那么可以高亮显示活动单元格区域，如下面的代码所示。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlColorIndexNone Target.Interior.ColorIndex = 8 End Sub 复制代码 代码解析： 设置工作表当前选定区域单元格的内部填充颜色，以高亮显示选定区域，如图1所示。 图 1 高亮显示选定区域 第2行代码将工作表中所有的单元格的内部填充颜色设置为xlColorIndexNone，即取消单元格的内部填充颜色。 第3行代码将工作表中选定单元格的内部填充颜色设置为8。 应用于Interior对象的ColorIndex属性返回或设置边框内部的颜色。该颜色可指定为当前调色板中颜色的编号（请参阅技巧11-1中的图 11 1）或为 XlColorIndex 常量之一：xlColorIndexAutomatic（指定对图形对象自动填充）、xlColorIndexNone（用于指定无内部填充）。 还可以高亮显示指定区域内的行列，如下面的代码所示。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range Cells.Interior.ColorIndex = xlNone Set rng = Application.Union(Target.EntireColumn, Target.EntireRow) rng.Interior.ColorIndex = 24 End Sub 复制代码 代码解析： 设置工作表当前选定区域单元格内部填充颜色，高亮显示活动单元格所在的行列，如图 2所示。 第4行代码使用Union方法将所选单元格所在的行、列连接起来成为一个区域。 图 2 高亮显示活动单元格所在的行列 注意 使用此方法时，工作表中所有设置的单元格内部填充颜色将会被清除。（不包括通过条件格式设置的单元格内部填充颜色），同时无法在工作表中实现复制粘贴功能。