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

时间:2013-06-05 11:45:54

标签: excel-vba vba excel

我试图在过程结束时放一个简单的代码来调用另一个现有的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

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

1 个答案:

答案 0 :(得分: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