数据选中后,如何十字交叉高亮显示
一、打开Excel表格,按以下步骤依次操作打开VBE工程界面的代码窗口(开发工具——Visual Basic——ThisWorkbook),如下所示:
VBE工程界面的代码窗口
进入VBE编辑器
二、将以下代码复制添加到新建的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工作表中添加新代码
以上就是如何实现十字交叉高强显示的技巧,一种适合无背景色设定的表格,一种适合有背景色设定的表格,你学“废”了吗?
我是今日Excel与编程,想了解更多的Excel与编程知识请关注我
,Copyright © 2008-2022 秒下下载站
m.down10s.com .All Rights Reserved