改变单元格内容触发事件(转)
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论坛,很实用的事件触发器,在此记下备忘。
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论坛,很实用的事件触发器,在此记下备忘。
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步