Можно ли вызвать пользователей, определяющих подпроцедуру, с помощью msgbox? - PullRequest
Новая
       72

Можно ли вызвать пользователей, определяющих подпроцедуру, с помощью msgbox?

0 голосов
/ 17 июня 2020

Например, код: 

show_box()
Function show_box()
result = MsgBox ("Please follow steps in document"vbCrLf & vbCrLf _ 
                 & "Click OK to call sum procedure" & vbCrLf & vbCrLf _
                 & "Click No to call substraction procedure"& vbCrLf & vbCrLf _
                 & "Click cancel to print hello")
Select Case result
       case 1
            msgbox(sum(1,2))
       case 7
           msgbox(substraction(4,2))            
       Case 2
           msgbox("Hello")
       End Select
END Function


sub sum(a,b)
  sum = a+b
  msgbox(sum)
end sub

sub substraction(a,b)
  substraction = a - b  
  msgbox(substraction)
end sub

Результат должен быть следующим: Когда я нажимаю ОК, затем вызываю процедуру sum (a, b) и так далее. Я много раз пробовал использовать другой подход, но не смог это исправить. Помощь будет очень признательна !!

1 Ответ

1 голос
/ 17 июня 2020

Попробуйте вместо этого что-нибудь вроде этого: 

Function sum(a, b)
  sum = a + b
End Function

Function substraction(a, b)
  substraction = a - b  
End Function

Sub show_box()
  Dim result
  result = MsgBox ("Please follow steps in document" & vbCrLf & vbCrLf _ 
                 & "Click Yes to call sum procedure" & vbCrLf & vbCrLf _
                 & "Click No to call substraction procedure" & vbCrLf & vbCrLf _
                 & "Click Cancel to print hello",
                 vbYesNoCancel)
  Select Case result
    Case vbYes
      MsgBox(CStr(sum(1,2)))
    case vbNo
      MsgBox(CStr(substraction(4,2)))
    Case vbCancel
      MsgBox("Hello")
  End Select
End Sub

show_box()
...