VBA：仿视图中的阅读模式

以下两段代码，效果都一样：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Columns().Interior.ColorIndex = 0
    Rows(Target.Row).Interior.Color = RGB(204, 204, 0) 
    Columns(Target.Column).Interior.Color = RGB(204, 204, 0) 
End Sub

或

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns().Interior.ColorIndex = 0

x = ActiveCell.Column
Columns(x).Interior.ColorIndex = 33

y = ActiveCell.Row
Rows(y).Interior.ColorIndex = 33
End Sub