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)】的格式。