高亮显示活动单元格所在行和列

本文为《别怕，Excel VBA其实很简单（第3版）》随书问题参考答案

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'清除工作表中所有单元格的底纹颜色
Cells.Interior.ColorIndex = xlNone
'为活动单元格所在列填充颜色
ActiveCell.EntireColumn.Interior.Color = RGB(180, 220, 230)
'为活动单元格所在行填充颜色
ActiveCell.EntireRow.Interior.Color = RGB(180, 220, 230)
End Sub