2024年3月9日发(作者：)

如果希望以某种方式突出显示活动单元格或者指定的单元格区域，从而一目了然地获得某些信息，那么可以高亮

元格区域，如下面的代码所示。

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)

2. ndex = xlColorIndexNone

3. ndex = 8

4. End Sub

代码解析：

设置工作表当前选定区域单元格的内部填充颜色，以高亮显示选定区域，如图1所示。

图 1 高亮显示选定区域

第2行代码将工作表中所有的单元格的内部填充颜色设置为xlColorIndexNone，即取消单元格的内部填充颜色

第3行代码将工作表中选定单元格的内部填充颜色设置为8。

应用于Interior对象的ColorIndex属性返回或设置边框内部的颜色。该颜色可指定为当前调色板中颜色的编号

巧11-1中的图 11 1）或为 XlColorIndex 常量之一：xlColorIndexAutomatic（指定对图形对象自动填充）、xlCo

（用于指定无内部填充）。

还可以高亮显示指定区域内的行列，如下面的代码所示。

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)

2. Dim rng As Range

3. ndex = xlNone

4. Set rng = (Column, Row)

5. ndex = 24

6. End Sub

代码解析：

设置工作表当前选定区域单元格内部填充颜色，高亮显示活动单元格所在的行列，如图 2所示。

第4行代码使用Union方法将所选单元格所在的行、列连接起来成为一个区域。

图 2 高亮显示活动单元格所在的行列

注意 使用此方法时，工作表中所有设置的单元格内部填充颜色将会被清除。（不包括通过条件格式设置的单元

色），同时无法在工作表中实现复制粘贴功能。