我从谷歌获得此代码。我想知道如何才能使代码不会删除用户先前或新的突出显示。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
' Clear the color of all the cells
Cells.Interior.ColorIndex = 0
With Target
' Highlight the entire row and column that contain the active cell
.EntireRow.Interior.ColorIndex = 36
.EntireColumn.Interior.ColorIndex = 36
End With
Application.ScreenUpdating = True
End Sub
答案 0 :(得分:1)
删除此行:
Cells.Interior.ColorIndex = 0