【技巧】Excel实现WPS聚光灯效果_进阶

一、需求

中的聚光灯具有几个不足：

　　1、只能在一个工作表中生效；

　　2、只能在单行或者多行生效（即，选中多列或多行，只有单行或单列高亮）。

　　那么，需求来了。

二、方案

　　纯VBA

三、步骤

　　1、打开VBA编辑器，使用快捷键 Alt+F11，鼠标单击左侧 ThisWorkbook，在右侧的空白中输入以下代码（建议复制粘贴）

Private Sub workbook_sheetselectionchange(ByVal sh As Object, ByVal target As Range)
    Cells.Interior.ColorIndex = 0
    For Each target In Selection
        Rows(target.Row).Interior.ColorIndex = 34
        Columns(target.Column).Interior.ColorIndex = 34
    Next
    For Each target In Selection
        target.Interior.ColorIndex = 27
    Next
End Sub

　　2、关闭VBA编辑器窗口，回到Excel表格界面，就可以实现聚光灯效果啦（进阶版）

四、效果演示

 五、注意

　　VBA代码中的34和27为 ColorIndex的数值，可以更改为自己喜欢的1~56中的任意值。