excel vba教程之选择变色

http://club.excelhome.net/dispbbs.asp?boardID=1&ID=222901&page=1&px=0
‘选中B3时，B1A3变红色；选中C4时，C1A4变黄色
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
    If Target.Address = "$B$3" Then
        Range("b1,a3").Interior.ColorIndex = 3
    Else
        Range("b1,a3").Interior.ColorIndex = xlautocolor
    End If
    If Target.Address = "$C$4" Then
        Range("c1,a4").Interior.ColorIndex = 6
    Else
        Range("c1,a4").Interior.ColorIndex = xlautocolor
    End If
End If
End Sub