改變單元格內容觸發事件（轉）

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" And [A1].Value > [B1].Value Then
    Target.Interior.ColorIndex = 3
Else
    Target.Interior.ColorIndex = xlNone
End If
End Sub

轉自EXCELHOME論壇，很實用的事件觸發器，在此記下備忘。