你想這樣啊,試試這段代碼看行不:右鍵工做表名稱--查看代碼,在空白處粘貼就能夠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