给Excel装一盏聚光灯

赵乾舟

今天和大家分享的VBA小代码功能主题是“聚光灯”。所谓聚光灯，可以理解成通过对工作表的行列填充颜色，突出显示被选中的单元格，仿佛该单元格被聚光灯照亮似的。

有图示意：

其实制作这样效果的聚光灯，用下面的代码就足够了。

1. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
2. 
   
3.     Application.ScreenUpdating = False
   
4. 
   
5.         Cells.Interior.ColorIndex = -4142
   
6. 
   
7.         '取消单元格原有填充色，但不包含条件格式产生的颜色。
   
8. 
   
9.         Rows(Target.Row).Interior.ColorIndex = 33
   
10. 
    
11.         '活动单元格整行填充颜色
    
12. 
    
13.         Columns(Target.Column).Interior.ColorIndex = 33
    
14. 
    
15.         '活动单元格整列填充颜色
    
16. 
    
17.     Application.ScreenUpdating = False
    
18. 
    
19. End Sub
    

复制代码

小贴士：

1、代码使用了工作簿事件，因此需要复制粘贴在VBE界面ThisWorkbook的代码窗口下（具体操作可见上面的动画），如此才对工作簿的每一张工作表起到聚光灯的效果。如果只需要某一张工作表拥有聚光灯，可以换用工作表事件。

2、聚光灯很有用，比如查看明细行列繁多的数据时，可以提高数据阅读清晰度和数据输入的准确度；但一旦使用VBA代码，Excel将会丧失“后悔”功能，也就是说Ctrl+Z的撤销功能会失去；另外它多少也会影响Excel的反应效率。

3、该代码会取消单元格原有设置的填充色，但不取消【条件格式】以及【表】功能设置的单元格填充色……