Excel vba设置选中单元格行列填充，高亮显示聚光灯效果

前面讲过关于利用条件格式高亮填充行列的例子《Excel 利用条件格式设置十字交叉高亮显示聚光灯效果》

当然也可以利用vba代码来做这个功能，在工作簿对象中，添加sheetSelectionChange事件。

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Sh.Cells.Interior.ColorIndex = xlNone
    Target.EntireColumn.Interior.ColorIndex = 22
    Target.EntireRow.Interior.ColorIndex = 22
End Sub

注意：当Excel表格中使用代码的时候，需要把表格另存为【Excel启用宏的工作簿(*.xlsm)】的格式。