如何让在excel中被选中的单元格所在的行和列高亮显示

如题所述

Private Sub Worksheet_SelectionChange(ByVal Target AsExcel.Range)
Cells.Interior.ColorIndex = xlNone
Target.Offset(, 1 - Target.Column).Resize(1, 2).Interior.ColorIndex= 34
S = Target.Column
If Columns(S).Interior.ColorIndex = 6 Then
Columns(S).Interior.ColorIndex = 0
Else
Columns(S).Interior.ColorIndex = 6
End If
End Sub
温馨提示:答案为网友推荐,仅供参考