【原】【Excel综合应用】WPS里有个聚光灯，可是我的Excel里没有这个怎么办？

公众号回复2016   下载office2016

WPS相比Excel来说，有些功能更接地气，比如聚光灯效果，新版中叫阅读模式，开启后浏览数据时选中的单元格所在的行和列会自动标色，方便浏览数据。

找遍了Excel里的角角落落，都没有发现这个功能，这是怎么回事呢？

其实Excel自身并没有这个功能，要想实现这样的效果，就需要自己进行设置，不过设置起来倒也不是很难，只需要两个步骤即可……

第一步

设置条件格式

选中数据区域，可以选中左上角的单元格，然后同时按住Ctrl shift，再按方向键→和↓完成选择，也可以选中数据区域中的任意单元格后按Ctrl a组合键。

依次点击开始，样式，条件格式，新建规则。

使用公式确定要设置格式的单元格，输入公式：

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

到这一步，我们想要的聚光灯效果就已经实现了。

但是，当我们切换选择单元格的时候，聚光灯效果并没有自动实现；

而是要按 F9 键让整个工作簿重新计算才可以。

如果想要让表格自动刷新，还需要添加一段代码！

第二步

添加自动刷新的代码

按【ALT + F11】打开 VBA 编辑器：

❶ 在资源管理器中双击ThisWorkbook，打开右侧的代码窗口

❷ 输入以下代码（建议复制粘贴~）

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)Application.ScreenUpdating = TrueEnd Sub

黏贴进去后，不用保存，直接关闭VBA编辑器，完全自动的聚光灯效果就实现啦~

因为工作簿中有代码，所以在保存文件的时候，需要将其保存为「Excel 启用宏的工作簿（*.xlsm）」哦。

看到这里，聚光灯的问题似乎已经结束了，但一定有些伙伴会说，既然已经都上来vba了，难道就不能不用条件格式吗？

当然可以……

一步到位的VBA代码

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

    Application.ScreenUpdating = False

        Cells.Interior.ColorIndex = -4142

        '取消单元格原有填充色，但不包含条件格式产生的颜色。

        Rows(Target.Row).Interior.ColorIndex = 33

        '活动单元格整行填充颜色

        Columns(Target.Column).Interior.ColorIndex = 33

        '活动单元格整列填充颜色

    Application.ScreenUpdating = True

End Sub

直接复制这段代码就好了，不解释。

小结

4个要点要记牢

对于Excel的激光灯功能，有几个问题一定要说清楚：

1、不宜对整表进行设置，仅对有数据的区域设置就好，不然会很卡；

2、对新手而言，使用条件格式的方法容易理解掌握，当然这个公式里用到了一个cell函数，可能大家还不太熟悉，有需要的话可以留言，后期专门分享这个函数的教程；

3、条件格式不能实现自动刷新，因此必须使用VBA来完善，所以一个很简单的VBA语句就出现了，对于新手而言，不必懂，但是一定要知道代码复制到什么地方；

4、一步到位的VBA代码固然好，可是总觉得有点缺了点什么，也许是时候该学一学VBA了……

想了解VBA课程的，可以联系老菜鸟，免费试看一集。

扫描二维码
老师带你进Excel交流微信群

加群免费哦

推一下我新出的书，也就是上面这本，非常适合新手学习。

出版社的主编说“第一次看到这本书的时候感觉非常好，这么多年能把函数用这种风格的语言讲出来的，几乎没有”。

不夸张地说，看了肯定能受益，毕竟书里的内容，都是我自己踩过的坑。