Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
On Error Resume Next
Cells.Interior.Pattern = xlNone
ActiveCell.Interior.Color = vbYellow
Application.EnableEvents = True
End Sub
或者您可以在下面考虑
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
On Error Resume Next
Cells.Interior.Pattern = xlNone
ActiveCell.Interior.Color = vbYellow
Application.EnableEvents = True
End Sub
1 回答
您可以使用
Worksheet_SelectionChange
事件 . 将代码放在任何工作表中 . 以下代码将突出显示导航时带黄色的活动单元格 .或者您可以在下面考虑