VBA宏仅能手动运行，无法随单元格变化自动更新求助

嗨，我来帮你搞定这个问题！你的代码手动运行正常，但没法自动触发，核心原因有两个：

1. 你写的是普通的Sub过程，它不会自动响应单元格的变化事件；
2. 因为Sheet2的B2是公式单元格，它的值变化是由其他单元格更新触发重新计算导致的，普通的Worksheet_Change事件（仅监听手动输入的单元格变化）不会捕捉到这种情况。

具体解决方案 #

你需要使用Worksheet_Calculate事件，这个事件会在工作表发生计算时自动触发，刚好适配公式单元格的场景。操作步骤如下：

1. 右键点击Sheet2的标签 → 选择「查看代码」，打开Sheet2专属的代码模块；
2. 粘贴下面的代码：

Private Sub Worksheet_Calculate()
    ' 先判断B2不为空且值大于0
    If Not IsEmpty(Sheets("Sheet2").Range("B2")) And Sheets("Sheet2").Range("B2").Value > 0 Then
        Sheets("Sheet1").Range("A1").Value = "XX"
    Else
        ' 可选：如果B2不满足条件时清空A1，可根据你的需求删除这一行
        Sheets("Sheet1").Range("A1").Value = ""
    End If
End Sub

额外说明 #

• 这个事件代码必须放在Sheet2的代码模块中，不能放在普通的标准模块里，否则无法绑定到Sheet2的计算事件；
• 原代码用IsNumeric作为过程名，这是VBA的内置函数名，容易引发冲突，建议避免使用这类名称；
• 如果想要更精准地只监听B2的变化（而不是Sheet2所有计算），可以额外记录B2的旧值，在事件里对比新旧值是否变化，但对于公式单元格来说，直接用Worksheet_Calculate已经足够简单实用。

内容的提问来源于stack exchange，提问作者M.S.