Question

我试图在过程结束时放一个简单的代码来调用另一个现有的Sub过程，但是我得到以下编译错误：Expected Sub，Function或Property。代码是：

Dim Teste2Sigma As VbMsgBoxResult
        Teste2Sigma = MsgBox("Deseja ignorar as razões 6/8 e 7/6, de cada amostra, que não passaram no teste 2 sigma?", vbYesNo)
        If Teste2Sigma = vbYes Then Call Teste2Sigma
        If Teste2Sigma = vbNo Then
        Exit Sub
     End If

它是在一个完美运行的潜艇的尽头！

Answer 1

您已在顶部将Teste2Sigma定义为VbMsgBoxResult，然后尝试Call它。我假设你也有这个名字的子。如果是这样，您应该将VbMsgBoxResult变量重命名为msgBoxResult。例如：

Dim msgBoxResult As VbMsgBoxResult
msgBoxResult = MsgBox("Deseja ignorar as razões 6/8 e 7/6, de cada amostra, que não passaram no teste 2 sigma?", vbYesNo)
If msgBoxResult = vbYes Then Call Teste2Sigma
If msgBoxResult = vbNo Then
    Exit Sub
End If

如何在一个结尾调用另一个子？

1 个答案: