想要实现cell的闪烁效果，是这样做的，每隔一段时间更改一下cell的背景色。
当某个cell处于闪烁状态时，
双击任何cell或者是在任何cell上按键要转换到编辑状态时，excel立即退出，且没有任何提示信息。
sheet1的代码
Private Declare Function SetTimer Lib "user32" _
(ByVal hwnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" _
(ByVal hwnd As Long, _
ByVal nIDEvent As Long) As Long
Dim timer
Private Sub btnStart_Click()
Call endC
Call Module1.initVariable(1, TextBox1.Text, TextBox2.Text)
Call startC
End Sub
Private Sub btnStop_Click()
Call endC
End Sub
Private Sub startC()
timer = SetTimer(0, 0, 80, AddressOf Module1.Scintill)
End Sub
Private Sub endC()
Call KillTimer(0, timer)
End Sub
Module1的代码
Dim sheetIdx As Integer
Dim rowCnt As Integer
Dim colCnt As Integer
Dim flag As Boolean
Sub initVariable(ByVal var0 As Integer, ByVal var1 As Integer, ByVal var2 As Integer)
sheetIdx = var0
flag = True
rowCnt = var1
colCnt = var2
End Sub
Sub Scintill()
If Val(Application.Version) >= 10 Then
If Application.Ready Then
Call SetBgColor
End If
Else
Call SetBgColor
End If
End Sub
Sub SetBgColor()
If flag Then
'MsgBox (Worksheets(sheetIdx).Cells(rowCnt, colCnt).Interior.ColorIndex)
Worksheets(sheetIdx).Cells(rowCnt, colCnt).Interior.ColorIndex = 0
flag = False
Else
'MsgBox (Worksheets(sheetIdx).Cells(rowCnt, colCnt).Interior.ColorIndex)
Worksheets(sheetIdx).Cells(rowCnt, colCnt).Interior.ColorIndex = 6
flag = True
End If
End Sub
在每隔一段时间进行的SetBgColor中，如果excel正处于编辑状态
将指定cell背景色作为内容弹出，一切正常
MsgBox (Worksheets(sheetIdx).Cells(rowCnt, colCnt).Interior.ColorIndex)
但如果改为更改背景色，则立即出错退出
Worksheets(sheetIdx).Cells(rowCnt, colCnt).Interior.ColorIndex = 6
本来打算把excel文件附上的，但是老提示不能打开文件，所以只能把代码贴上了。
