如何实现当单元格C10值大于185时自动运行Excel VBA宏？

问题分析 #

你修改后的代码存在两个关键问题：

1. 直接用字符串"$C$10"和185比较，属于字符串与数值的无效对比，无法正确判断单元格实际值
2. Worksheet_Change事件仅在手动编辑单元格内容时触发，而C10是通过公式计算日期差得到的，公式自动更新时不会触发该事件

修正方案 #

方案1：针对公式计算的单元格，使用Worksheet_Calculate事件 #

将代码替换为以下内容（需放在对应工作表的代码模块中）：

Private Sub Worksheet_Calculate()
    ' 检查C10的数值是否大于185，同时避免单元格为空或非数值的错误
    If IsNumeric(Range("C10").Value) And Range("C10").Value > 185 Then
        MsgBox "根据提供的日期，间隔超过185天。请联系XYZ。", vbRetryCancel + vbExclamation, Title:="时长错误"
    End If
End Sub

方案2：如果C10是手动输入的，修正Worksheet_Change事件代码 #

如果C10是手动输入天数，可修改原Worksheet_Change代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 检查目标单元格是否是C10，同时判断数值是否大于185
    If Target.Address = "$C$10" Then
        If IsNumeric(Target.Value) And Target.Value > 185 Then
            MsgBox "根据提供的日期，间隔超过185天。请联系XYZ。", vbRetryCancel + vbExclamation, Title:="时长错误"
        End If
    End If
End Sub

额外注意事项 #

• 确保宏已启用：在Excel选项的信任中心设置中，勾选"启用所有宏"（或对应信任的宏权限）
• 代码必须放在对应工作表的代码模块中：右键工作表标签→点击"查看代码"，在弹出的窗口中粘贴代码

内容的提问来源于stack exchange，提问作者SC_RM