@9号巴蒂在后台留言,“怎么样使用VBA让Excel的单元格拥有聚光灯效果呢?希望在加上这个效果后,表格的原底色还是不能被破坏,而且最好还有一个可以取消聚光灯效果的返回键哦。”
聚光灯效果示意
WPS自带聚光灯效果,Excel可以通过几行VBA代码就实现,原理是定位行/列进行填充,填充会取消原有的填充色。
对于已有的填充颜色会自动取消,效果不是那么好,不知道9号巴蒂的使用场景是什么,暂时我也没想到更好的可以记录原有颜色,并定位当前聚光灯效果简便一点的方法,欢迎大家一起探讨。
奉上聚光灯代码:
Option ExplicitPrivate Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)'//聚光灯效果 2023-10-05 Application.ScreenUpdating = False Cells.Interior.ColorIndex = xlNone Rows(Target.Row).Interior.ColorIndex = 36 Columns(Target.Column).Interior.ColorIndex = 36 Application.ScreenUpdating = TrueEnd Sub
不知道如何操作VBA,可以查阅《VBA实例:一分钟教你学会,如何操作Excel VBA》好了,今天的分享就到这里。
客官都读到这儿了
记得点赞加关注哦