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论坛，很实用的事件触发器，在此记下备忘。

扫码关注我们
微信号：SRE实战
拒绝背锅 运筹帷幄

SRE实战 互联网时代守护先锋，助力企业售后服务体系运筹帷幄！一键直达领取阿里云限量特价优惠。