自动突出显示代码

时间:2014-06-25 16:39:45

标签: excel vba highlight

我从谷歌获得此代码。我想知道如何才能使代码不会删除用户先前或新的突出显示。

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

1 个答案:

答案 0 :(得分:1)

删除此行:

Cells.Interior.ColorIndex = 0