VBA Worksheet_Change事件未完全自动触发问题求助

看起来你现在的代码只能半自动运行，核心问题出在两个地方：一是原代码只监听了E11自身的变化，没盯着触发条件的目标单元格；二是如果触发条件的单元格是公式计算出来的结果，Worksheet_Change事件根本不会自动触发——这个事件只响应手动编辑、粘贴或者VBA直接修改的单元格，公式更新不属于它的触发范畴。

下面分两种常见场景给你对应的解决方案：

场景1：触发条件是手动编辑的单元格（比如B24） #

如果你的触发逻辑是“当B24（或其他手动输入的单元格）变成某个特定值时，E11自动加1”，直接修改Worksheet_Change事件就行，重点是把监听范围改成触发单元格，同时加事件锁防止循环：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义触发单元格和要修改的目标单元格
    Dim triggerCell As Range
    Dim targetCell As Range
    Set triggerCell = Me.Range("B24") ' 替换成你的触发单元格地址
    Set targetCell = Me.Range("E11")
    
    ' 只在触发单元格变化时执行逻辑，避免无关操作触发
    If Not Intersect(Target, triggerCell) Is Nothing Then
        ' 先禁用事件，防止修改E11时再次触发Change事件导致死循环
        Application.EnableEvents = False
        
        ' 这里替换成你的特定参数判断逻辑
        If triggerCell.Value = "特定参数" Then ' 比如"已完成"、100这类具体值
            targetCell.Value = targetCell.Value + 1 ' 自动增量
        End If
        
        ' 记得恢复事件监听，不然后续的Change事件都不会触发了
        Application.EnableEvents = True
    End If
End Sub

场景2：触发条件是公式计算的单元格 #

如果触发单元格是公式算出来的（比如B24是=A24+C24这种公式），那Worksheet_Change完全不会响应公式更新，这时候得改用Worksheet_Calculate事件，还要加静态变量避免重复触发：

Private Sub Worksheet_Calculate()
    Dim triggerCell As Range
    Dim targetCell As Range
    Dim currentVal As Variant
    ' Static变量会保留上一次的值，防止每次工作表计算都触发增量
    Static lastVal As Variant
    
    Set triggerCell = Me.Range("B24")
    Set targetCell = Me.Range("E11")
    currentVal = triggerCell.Value
    
    ' 只有当触发值从非目标值变为目标值时，才执行增量
    If currentVal = "特定参数" And currentVal <> lastVal Then
        Application.EnableEvents = False
        targetCell.Value = targetCell.Value + 1
        Application.EnableEvents = True
    End If
    
    ' 更新上一次的触发值，方便下次判断
    lastVal = currentVal
End Sub

几个关键注意点： #

• 事件锁必须加：修改E11时一定要禁用Application.EnableEvents，不然会触发死循环（修改E11→触发Change事件→再修改E11→无限循环）。
• 特定参数替换：把代码里的"特定参数"换成你实际需要的条件，比如数值100、文本"达标"都可以。
• 静态变量的作用：Worksheet_Calculate会在工作表任何公式更新时触发，静态变量lastVal能帮我们判断触发值是不是真的变化了，避免重复加1。

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