我试图在过程结束时放一个简单的代码来调用另一个现有的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
它是在一个完美运行的潜艇的尽头!
答案 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