Schreiben einer Function-ProzedurWriting a Function procedure

Bei einer Function -Prozedur handelt es sich um eine Reihe von Visual Basic- Anweisungen , die von den Anweisungen Function und End Function umschlossen werden.A Function procedure is a series of Visual Basic statements enclosed by the Function and End Function statements. Eine Function -Prozedur ähnelt einer Sub -Prozedur, aber eine Funktion kann auch einen Wert zurückgeben.A Function procedure is similar to a Sub procedure, but a function can also return a value.

Eine Function-Prozedur kann Argumente annehmen, z. B. Konstanten, Variablen oder Ausdrücke, die von einer Aufrufprozedur an die Prozedur weitergegeben werden.A Function procedure can take arguments, such as constants, variables, or expressions that are passed to it by a calling procedure. Wenn eine Function-Prozedur keine Argumente aufweist, muss die entsprechende Function-Anweisung einen leeren Satz Klammern enthalten.If a Function procedure has no arguments, its Function statement must include an empty set of parentheses. Eine Funktion gibt einen Wert zurück, indem dem Namen in einer oder mehreren Anweisungen der Prozedur ein Wert zugewiesen wird.A function returns a value by assigning a value to its name in one or more statements of the procedure.

Im folgenden Beispiel werden mit der Celsius -Funktion Grad Celsius aus Grad Fahrenheit berechnet.In the following example, the Celsius function calculates degrees Celsius from degrees Fahrenheit. Wenn die Funktion von der Main -Prozedur aufgerufen wird, wird eine Variable mit dem Argumentwert an die Funktion weitergegeben.When the function is called from the Main procedure, a variable containing the argument value is passed to the function. Das Ergebnis der Berechnung wird an die Aufrufprozedur zurückgegeben und im Meldungsfeld angezeigt.The result of the calculation is returned to the calling procedure and displayed in a message box.

Sub Main() 
 temp = Application.InputBox(Prompt:= _ 
 "Please enter the temperature in degrees F.", Type:=1) 
 MsgBox "The temperature is " & Celsius(temp) & " degrees C." 
End Sub 
 
Function Celsius(fDegrees) 
 Celsius = (fDegrees - 32) * 5 / 9 
End Function

Siehe auchSee also

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.