如何通过调用多个宏函数在单个工作表中的多个单元格更改事件上运行多个宏

Answer 1

例如，您可以这样做：

Private Sub Worksheet_Calculate()
    Static dict As Object   'stored cell addresses and associated cell values
    Dim arrRanges, addr, v
    
    arrRanges = Array("K3", "K32") 'the cells to be monitored

    If dict Is Nothing Then        'first call?  Set up ranges and values
        Set dict = CreateObject("scripting.dictionary")
        For Each addr In arrRanges
            dict(addr) = Me.Range(addr).Value 'initial values
        Next addr
    Else              'not the first call: compare old vs. new values
        On Error Goto haveError
        Application.EnableEvents = False 'disable events
        For Each addr In arrRanges
            v = Me.Range(addr).Value
            If dict(addr) <> v Then      'value has changed ?
                Debug.Print addr, "old:" & dict(addr), "new:" & v
                Select Case addr         'which cell has changed?
                    Case "K3": calculation
                    Case "K32": calculation1
                End Select
                dict(addr) = v           'store new value?
            End If
        Next addr
    End If
haveError:
    Application.EnableEvents = True 're-enable events

End Sub

编辑: 这是一个使用隐藏表的版本

Private Sub Worksheet_Calculate()
    Dim arrRanges, addr, v, wsStore As Worksheet, cStore As Range, vOld
    
    Set wsStore = ThisWorkbook.Sheets("Store") 'hidden sheet
    arrRanges = Array("K3", "K32") 'the cells to be monitored
    
    On Error GoTo haveError
    Application.EnableEvents = False 'disable events
    For Each addr In arrRanges
        v = Me.Range(addr).Value
        Set cStore = wsStore.Range(addr)
        vOld = cStore.Value
        If v <> vOld Then 'value has changed ?
            Debug.Print addr, "old:" & vOld, "new:" & v
            Select Case addr         'which cell has changed?
                Case "K3": Calculation
                Case "K32": calculation1
            End Select
            cStore.Value = v        'store new value
        End If
    Next addr
    
haveError:
    Application.EnableEvents = True 're-enable events
End Sub