Variable an Funktion übergeben und zurück VBA

Question

Versucht zu verstehen, wie ein Wert von einer Funktion an ein Sub-Objekt zurückgegeben wird und das Ergebnis in einer Message-Box angezeigt wird, aber ich kann es nicht bekommen. Was bin ich Learning-Code unten: -

Sub mySend() 

Dim myNum As Integer 

myNum = InputBox("Enter number") 

myReturn (myNum) 

msgbox myReturn 'would like to display result in messagebox here but no joy 

End Sub 
'-------------------------------------- 
Function myReturn(ByRef myNum As Integer) 

Dim myCalc As Integer 

myCalc = myNum + 10 

myReturn = myCalc 

End Function 

Answer 1

Verwenden Sie keinen Parameter ByRef - verwenden Sie einfach eine Funktion richtig.

Sub mySend() 

Dim myNum As Integer 

myNum = InputBox("Enter number") 

myNum = myReturn(myNum) '// You need to assign (=) the value to the variable 

msgbox myNum 

End Sub 
'-------------------------------------- 
Function myReturn(number As Integer) As Integer '// Note the return type after the() 

Dim myCalc As Integer 

myCalc = number + 10 

myReturn = myCalc 

End Function 

Wenn Sie eine Variable durch Verweis in Ihrem Beispiel übergeben wollen, dann müssen Sie eigentlich den Wert des gleichen Variable sonst ändern, wenn Sie es wieder in dem anrufenden Code verweisen, dass Wert nicht geändert haben:

(Dieser Code ist geändert, um das Ergebnis von ByRef, wenn sie richtig verwendet zu zeigen, ich habe nicht wirklich mit diesem Code empfehlen)

Sub mySend() 

Dim myNum As Integer 

myNum = InputBox("Enter number") 

myReturn myNum '// No need for parentheses here 

msgbox myNum 

End Sub 
'-------------------------------------- 
Function myReturn(ByRef myNum As Integer) 

myNum = myNum + 10 

End Function 

Answer 2

das Ergebnis der Funktion einer Variablen zuweisen und das Ergebnis in der messagebox zeigen:

Dim result as Integer 
result = myReturn(myNum) 

Answer 3

Wie Peter sagte, müssen Sie das Ergebnis speichern von Ihrem myReturn (myNum) Anruf. Und dann zeigen, dass variable:

result = myReturn(myNum) 
MsgBox result 

Eigentlich brauchen Sie nicht einmal die „Dim Ergebnis“. Warum? Ich weiß es nicht, aber ich habe es getestet und es hat funktioniert.