使用OnTime函式做一個程式碼，每秒鐘自動執行一次，每次執行的時候改變文字顏色就能實現閃爍效果，只是由於EXCEL的這個函式只能設定最小1秒鐘，所以閃爍效果不太理想。請看下面程式碼Dim NextTimeDim sSub 計時() Set a = Range("a1") "在A1單元格中產生閃爍效果 If a.Font.ColorIndex = 3 Then a.Font.ColorIndex = 2 "無色 Else a.Font.ColorIndex = 3 "紅色 End If NextTime = Now + TimeValue("00:00:01") Application.OnTime NextTime, "計時"End SubSub 停止() On Error Resume Next Application.OnTime NextTime, "計時", , FalseEnd Sub先執行“計時”，就會看到A1單元格的內容以1秒為間隔在紅色與無色之間變換。需要結束閃爍時，就執行“停止”
使用OnTime函式做一個程式碼，每秒鐘自動執行一次，每次執行的時候改變文字顏色就能實現閃爍效果，只是由於EXCEL的這個函式只能設定最小1秒鐘，所以閃爍效果不太理想。請看下面程式碼Dim NextTimeDim sSub 計時() Set a = Range("a1") "在A1單元格中產生閃爍效果 If a.Font.ColorIndex = 3 Then a.Font.ColorIndex = 2 "無色 Else a.Font.ColorIndex = 3 "紅色 End If NextTime = Now + TimeValue("00:00:01") Application.OnTime NextTime, "計時"End SubSub 停止() On Error Resume Next Application.OnTime NextTime, "計時", , FalseEnd Sub先執行“計時”，就會看到A1單元格的內容以1秒為間隔在紅色與無色之間變換。需要結束閃爍時，就執行“停止”