无法组合两个专用子Worksheet_Change（按Val目标作为范围）

Question

我试图将两个私有子Worksheet_Change（ByVal Target As Range）组合到同一个工作表中，但第一个只工作，第二个不工作。我从调试中没有收到错误--所以我猜这一定是一个简单的调整。下面是代码--提前感谢你对我的帮助。

Private Sub Worksheet_Change(ByVal Target As Range)

    'Auto Re-sort of Entire entry based on change in Due Date

    Dim Table As ListObject
    Dim SortCol As Range

    Set Table = ActiveSheet.ListObjects("Table1")
    Set SortCol = Range("Table1[Due Date]")

    If Not Intersect(Target, SortCol) Is Nothing Then
        With Table.Sort
            .SortFields.Clear
            .SortFields.Add Key:=SortCol, Order:=xlAscending
            .Header = xlYes
            .Apply
        End With
    End If

    'Automating the Move Entire Row Based on Value being "Completed", from Tasks 
    worksheet to Completed Worksheet

    Dim Z As Long
    Dim xVal As String
    On Error Resume Next
        If Intersect(Target, Range("H:H")) Is Nothing Then
        Application.EnableEvents = False
        For Z = 1 To Target.Count
            If Target(Z).Value > 0 Then
                Call MoveBasedOnValue
            End If
        Next
        Application.EnableEvents = True
        End If
End Sub

Answer 1

也许我没有很好地理解您的问题，但是…为什么不放一个私有子Worksheet_Change（ByVal Target作为Range）呢？然后，让它调用任意多个其他函数：

Private Sub Worksheet_Change(ByVal Target As Range)
     sub1 Target

     sub2 Target
End Sub

Private Sub sub1(ByVal Target As Range)
    'Replace with the code of your first function:
    MsgBox "Hello from sub1"
End Sub

Private Sub sub2(ByVal Target As Range)
    'Replace with the code of your second function:
    MsgBox "Hello from sub2"
End Sub