这个高亮显示很好用，论坛大哥的作品，唯一就是不能撤销，

donglinlin888

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Cells.FormatConditions.Delete
With ActiveCell.EntireRow.FormatConditions
     .Add xlExpression, , "TRUE"
     .Item(1).Interior.ColorIndex = 34
End With
With ActiveCell.EntireColumn.FormatConditions
     .Delete
     .Add xlExpression, , "TRUE"
     .Item(1).Interior.ColorIndex = 34
End With
End Sub

沈默00

经典的用事件做的条件格式，是自动的
需要手动操作就重写放在模块里就好了

zpy2

https://club.excelhome.net/forum.php?mod=viewthread&tid=1489704&mobile&_dsign=6ae0c5a1

cpin

   
   
    Dim t As Variant
    Dim tmp As Variant   
    Dim vntX As Variant
    t = 2
    tmp = Timer   
    Do While Timer - tmp < t   '停留t秒后，取消高亮显示
       vntX = vntX + 1
    Loop
    Cells.FormatConditions.Delete