EXCEL脚本收藏

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

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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