高亮你所选中的单元格

当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

效果图如下:

效果图

来简单的解释一下代码。

  1. 这个代码是放在对应的VBA的工表作里。而不是插入新模块。
  2. Private Sub Worksheet_SelectionChange(ByVal Target As Range) 工作表选择出现变化的时候都会调用它
  3. Set Rng = Target.Range("a1") 当选定目标Target为区域时,只会选择该区域的第一个单元格。这是代码中最重要的一句,不然会出错。
  4. Cells.Interior.ColorIndex = 0 '清除所有背景色
  5. Rng.EntireColumn.Interior.ColorIndex = 40 '设置当前列颜色
  6. Rng.EntireRow.Interior.ColorIndex = 36 '设置当前行颜色

总之,简单的几句代码,能解决大问题。