这个代码可素如菜志以让选中单元格闪烁几次明显的颜色，然后恢复单元格原来的颜色，亲测有效：
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 Unti术路初飞考现慢即l Timer - S >= 0.1
.Item(1).Delete
Do
Lo且某空宪孩货样数op Until Timer - S >= 0.2
End With
Next
End Sub---------------------
我修改了一下，本来是采用记住原来单元格的颜色，然后换别的颜色后再换回来，现在改用添加条件格式后删除条件格式，对原本的颜色不会有影响
追问 : 复制进去提示有错误
Cells(Target.Row, Target.Column).Interior.ColorIndex = IIf(WorksheetFunction.IsEven(i), 3, 6)
追答 : 测试过啊，并没有问题啊，提示什么错误？
