合并 2 个私有子 VBA 代码

Question

我有 2 个独立工作的 Private Sub Worksheet_change(ByVal Target As Range) 代码。我需要他们在同一张纸上工作。每当我这样做时，第二个代码都不会运行。请问如何合并这些！！？

代码 1：

Private Sub Worksheet_Change(ByVal Target As Range)
     Dim rng As Range, cel As Range
     Set rng = Intersect(Target, Range([H2], Cells(Rows.Count, 
     "H").End(xlUp)))

     If rng Is Nothing Then Exit Sub
     Application.EnableEvents = False
     rng.Offset(, 1).FormulaR1C1 = "=IF(RC[-1]<>"""",R1C[6] & ""-"" &" & 
     "TEXT(COUNTA(R2C[-1]:RC[-1]),""0000"") & ""-"" & R1C[7],"""")"
     Application.EnableEvents = True
End Sub

如果在 H 中提供信息，代码 1 正在使用 P1 和 O1 在 I 列中填充自动编号 代码2：

Private Sub Move_blanks_To_Bottom(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Column <> 9 Then Exit Sub
    Range("A1", Range("A" & Rows.Count).End(xlUp)).Resize(, 11).Sort 
    key1:=Range("I1"), order1:=xlAscending, Header:=xlYes
End Sub

代码 2 使用列 I 并对值进行排序，因此如果 I 中有值，它将将该行移动到下一个可用行，如果单元格 I 为空白，则该行将有效地完成 I 列。

据我了解，您不能运行 2 个私有子代码，那么我将如何在同一张纸上同时运行这两个子代码？

谢谢！

Answer 1

因为你的第一个代码退出（Exit Sub)，当它失败时Intersect，那么你必须在If语句上方调用你的第二个子例程。你必须将Target传递给它，就像：

 Call Move_blanks_To_Bottom(Target)

但是，我认为重写可能是最好的。不要到处退出子例程，而是将相关的代码位放在 If 语句中，这样您的例程就可以运行到完成并优雅地退出：

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False

    'Do logic for this first range
    Dim rng As Range
    rng = Range([H2], Cells(Rows.Count, "H").End(xlUp)))
    If Not Intersect(rng, Target) Is Nothing Then
        rng.Offset(, 1).FormulaR1C1 = "=IF(RC[-1]<>"""",R1C[6] & ""-"" &" & "TEXT(COUNTA(R2C[-1]:RC[-1]),""0000"") & ""-"" & R1C[7],"""")"   
    End If

    'now do logic for the second range (move_blanks_to_bottom)
    If Target.CountLarge = 1 And Target.Column = 9 Then
        Range("A1", Range("A" & Rows.Count).End(xlUp)).Resize(, 11).Sort key1:=Range("I1"), order1:=xlAscending, Header:=xlYes 
    End If

    Application.EnableEvents = True 
End Sub