推荐订阅源

EXCEL单元格选中变色（可调次数和时间）：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For i = 1 To 3
        S = Timer
        With Selection.FormatConditions
            .Add Type:=xlExpression, Formula1:="=TRUE"
            .Item(.Count).SetFirstPriority
            .Item(1).Interior.Color = 65535
            Do
            Loop Until Timer - S >= 0.1
            .Item(1).Delete
            Do
            Loop Until Timer - S >= 0.2
        End With
    Next
End Sub