Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Myrow As Integer, Mycol As Integer '定义变量Integer为整型数据类型
Myrow = Target.Row 'Target当前活动单元格,取得其行号
Mycol = Target.Column
Cells.Interior.ColorIndex = xlNone '把整个工作表的底纹设置为无,目的是为了删除上一次的
Rows(Myrow).EntireRow.Interior.ColorIndex = 8 '给Myrow这一整行添加底纹
Rows(Mycol).EntireColumn.Interior.ColorIndex = 8
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 8
Target.EntireColumn.Interior.ColorIndex = 8
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 8
Target.EntireColumn.Interior.ColorIndex = 8
End Sub