用VBA方式实现Excel聚光灯效果

Excel聚光灯效果，虽然可以借助EXCEL插件，比如“方方格子” 、“易用宝” 、“KUTOOLS” 等一键完成，但用VBA代码来实现也非常简单。

一、设置条件格式‍

全选数据区域，在『开始』 菜单找到『条件格式』 ，选择『新建规则』 『使用公式确定要设置格式的单元格』 ，并在公式栏输入以下公式。

=OR(CELL("row")=ROW(),CELL("col")=COLUMN())

然后，设置一个自己喜欢的字体效果和背景填充样式，确定即可。

二、设置视图刷新

用VBA代码实时刷新视图。

我们在『开发工具』 菜单找到 『Visual Basic』 命令，打开VBA代码编辑窗口，双击Sheet1 对象，并在代码区输入以下代码。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.Calculate

End Sub