每日Excel分享（VBA）| 神奇的单元格背景着色，让你视觉更清晰

感

谢

关

注

导读

当我们查看一个有几十行或几十列数据的表格的时候，如果直接用眼睛去查看往往容易看错位了，本来想看第10行的数据结果看到了第11行的数据，面对这种尴尬的问题我们应该如何去避免呢？我们先来看下面这个动画

看了上面这个动画，是否能解决我们前面提到的问题呢？当你选中数据区域的某个单元格时，单元格所在的行和列都填充黄色背景色，这样你还会看错行吗？我相信肯定不会，那么你想不想知道这个效果是怎么做出来的呢？

实现步骤请看下面动画

操作方法：

按ALT F11组合键打开VBE编辑窗口，然后双击打开需要实现效果的工作表

粘贴以下代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

If Range('A2') = '开启' Then '如果A2单元格等于“开启”则执行下面代码

Cells.Interior.ColorIndex = 0 '清除之前的背景色

Target.EntireRow.Interior.ColorIndex = 6 '当前选中单元格所在行填充黄色背景色

Target.EntireColumn.Interior.ColorIndex = 6 '当前选中单元格所在列填充黄色背景色

Target.Interior.ColorIndex = 2 '当前选中单元格不填充底色

Else

Cells.Interior.ColorIndex = 0 '如果A2单元格不等于“开启”清除之前的背景色

End If

End Sub

然后关闭VBE编辑器

PS：单元格背景着色也被称为“聚光灯”，可以让我们在查看数据的时候更方便更清晰，上面红色字体为VBA代码，绿色字体为代码的注解（可以省略），这里做了一个控制，当A2单元格选择“开启”的时候就开启聚光灯效果，如果选择“关闭”或者为空的时候就关闭聚光灯效果，可以让我们自由选择，更灵活更方便。

第265天的坚持，离365天的小目标还剩100天

我的Excel，天天与你不见不散