高亮你所选中的单元格
当Excel数据量非常大的时候,我们在阅读和处理数据时会眼花瞭乱,经常无法有效的分清是不是你选中的行或列。
下面的代码,通过高亮你选中的单元格对应的行和列来清晰展示你选中的数据。即使你同时选中多个区域,也不会产生错误。
把它复制到你的表格中来感受它给你带来的便利吧。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
Set Rng = Target.Range("a1")
Cells.Interior.ColorIndex = 0 '清除所有背景色
Rng.EntireColumn.Interior.ColorIndex = 40 '设置当前列颜色
Rng.EntireRow.Interior.ColorIndex = 36 '设置当前行颜色
End Sub
效果图如下:
效果图
来简单的解释一下代码。
- 这个代码是放在对应的VBA的工表作里。而不是插入新模块。
- Private Sub Worksheet_SelectionChange(ByVal Target As Range) 工作表选择出现变化的时候都会调用它
- Set Rng = Target.Range("a1") 当选定目标Target为区域时,只会选择该区域的第一个单元格。这是代码中最重要的一句,不然会出错。
- Cells.Interior.ColorIndex = 0 '清除所有背景色
- Rng.EntireColumn.Interior.ColorIndex = 40 '设置当前列颜色
- Rng.EntireRow.Interior.ColorIndex = 36 '设置当前行颜色
总之,简单的几句代码,能解决大问题。