excel十字交叉高亮显示

数据选中后，如何十字交叉高亮显示

一、打开Excel表格，按以下步骤依次操作打开VB工程文件（开发工具——Visual Basic——ThisWorkbook），如下所示：

   

打开VB工程文件

   

进入VB编辑器

二、将以下代码复制添加到新建的ThisWorkbook工作表中

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Sh.Cells.Interior.ColorIndex = xlNnone

Target.EntireColumn.Interior.ColorIndex = 40

Target.EntireRow.Interior.ColorIndex = 50

End Sub

以上代码中数字(40和50)代表颜色值，可以自由切换，切换取值表如下所示：

   

颜色取值表

   

在ThisWorkbook文件中添加代码

三、保存（Ctrl S）好以上代码文件后，切换到Excel表格页面，此时随便选中一个单元格会有十字交叉高亮显示。

   

十字交叉高亮显示效果

注意：因为代码编写思路是将所有的单元格背景色去掉，再添加上设定好的深绿色背景色，如果在此之前表格中存在不同的背景色，会被清除。

四、要想在不影响原来设定背景色的情况下，使用十字交叉高亮，需要更换代码，如下所示：

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Cells.FormatConditions.Delete

With Target.EntireColumn

.FormatConditions.Add xlExpression, , "=true"

.FormatConditions(1).Interior.ColorIndex = 50

End With

With Target.EntireRow

.FormatConditions.Add xlExpression, , "=true"

.FormatConditions(2).Interior.ColorIndex = 50

End With

End Sub

   

在ThisWorkbook文件中添加新代码

   

不影响原来设定背景色的十字交叉高亮显示效果

赞 (0)

相关推荐