你想这样啊,试试这段代码看行不:右键工做表名称--查看代码,在空白处粘贴就能够code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)get Cells.Interior.ColorIndex = xlNoneio Target.Interior.ColorIndex = 8class End Subdi 复制代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)get
Cells.Interior.ColorIndex = xlNoneio
Target.Interior.ColorIndex = 8class
End Subdi