Excel 格式化問題

Right-click the sheet tab, select View Code, paste this in:
Private Sub Worksheet_Calculate()
If Range("B8").Value = "" Then
Blink "B10"
Else
Range("B10").Interior.ColorIndex = 0
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.Run Me.CodeName & ".Worksheet_Calculate"
End Sub

Insert a regular module, and paste this in:
Sub Blink(cell As String)
If Range(cell).Interior.ColorIndex = 6 Then
Range(cell).Interior.ColorIndex = 0
Else
Range(cell).Interior.ColorIndex = 6
End If
Application.OnTime Now + 1 / 86400, "doagain"
End Sub
Sub DoAgain()
Application.Run Sheets("Sheet1").CodeName & ".Worksheet_Calculate"
End Sub
http://en.allexperts.com/q/Excel-1059/formulas-blinking-flashing-results.htm
http://www.mrexcel.com/archive/VBA/5889.html