你想这样啊,试试这段代码看行不:右键工作表名称--查看代码,在空白处粘贴就可以
复制代码Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 8
End Sub
你想这样啊,试试这段代码看行不:右键工作表名称--查看代码,在空白处粘贴就可以
复制代码Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 8
End Sub