Excel vba設(shè)置選中單元格行列填充，高亮顯示聚光燈效果

前面講過關(guān)于利用條件格式高亮填充行列的例子《Excel 利用條件格式設(shè)置十字交叉高亮顯示聚光燈效果》

當(dāng)然也可以利用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

注意：當(dāng)Excel表格中使用代碼的時候，需要把表格另存為【Excel啟用宏的工作簿(*.xlsm)】的格式。