Question

我看了很多关于打电话给另一个潜水员的视频。但是每次使用我的代码时，它都会到达应调用该函数的行。它只是在不遵循此命令的情况下完成了IF语句。请注意，这段代码来自userforum内部的命令按钮

Sub Begin_Click()

Unload BeginTheCode

Dim ws As Worksheet
Dim strDataRange As Range
Dim keyRange As Range
Dim wbk As Workbook
Dim wbkName As String
Dim wsName As String
Dim mName As String
Dim yName As String
Dim cName As String

On Error GoTo Err

'This command puts the other code in this workbook on hold'
Application.DisplayAlerts = False

'This provides shortcuts for future use in the code'
    Set wa = ThisWorkbook.Worksheets("RE-I-A Raw")
    Set wb = ThisWorkbook.Worksheets("I-A Data Copy (1)")
    Set wc = ThisWorkbook.Worksheets("Untied Raw")
    Set wd = ThisWorkbook.Worksheets("Blanks")

Dim IMRCCSpec() As String
Dim IMRSup() As String
Dim x As Integer
Dim y As Integer
Dim i As Integer

If Comittee = "IMRCC" Then
    Call IM
    Else
    If Comittee = "COO" Then
        Call COO
        Else
        If Comittee = "CFO" Then
            Call CFO
            Else
            If Comittee = "AURA" Then
                Call AURA
                Else
                If Comittee = "Distribution" Then
                    Call Dist
                    Else
                    If Comittee = "Legal" Then
                        Call Legal
                    End If
                End If
            End If
        End If
    End If
End If

Exit Sub
Err:
MsgBox "Error on Line : Sub Begin_Click() " & Erl

End Sub

Sub IM()

   On Error GoTo Err
   Dim IMRCCSpec() As String
   Dim IMRSup() As String
   Dim x As Integer
   Dim y As Integer
   x = Application.WorksheetFunction.CountA(wt.Range("C:C")) - 2
   y = Application.WorksheetFunction.CountA(wt.Range("E:E")) - 2
   ReDim IMRCCSpec(x) As String
   ReDim IMRCCSup(y) As String
   Dim i As Integer

   For i = 0 To x
       IMRCCSpec(i) = wt.Range("A" & i + 2)
   Next i
   For i = 0 To y
       IMRCCSup(i) = wt.Range("B" & i + 2)
   Next i

   'Call Something

Exit Sub

Err:
MsgBox "Error on Line : Sub IM()" & Erl

End Sub

没有错误消息发生。当我使用F8命令时，它将通过此行而没有任何错误，并且不执行任何操作

我在使用通话功能时遇到问题

0 个答案: