Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = -4142
Target.Interior.ColorIndex = 6
End Sub
新建 一个EXCEL，右键SHEET1——查看代码——粘贴上面的代码。
试试效果是不是你想要的。如果是你再应用到你的原表中。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = -4142
Target.Interior.ColorIndex = 6
End Sub
新建 一个EXCEL，右键SHEET1——查看代码——粘贴上面的代码。
试试效果是不是你想要的。如果是你再应用到你的原表中。
