VBA - InputBox

Das InputBox functionfordert die Benutzer auf, Werte einzugeben. Wenn der Benutzer nach Eingabe der Werte auf die Schaltfläche OK klickt oder auf der Tastatur die EINGABETASTE drückt, gibt die InputBox-Funktion den Text im Textfeld zurück. Wenn der Benutzer auf die Schaltfläche Abbrechen klickt, gibt die Funktion eine leere Zeichenfolge ("") zurück.

Syntax

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])

Parameterbeschreibung

Prompt- Ein erforderlicher Parameter. Eine Zeichenfolge, die im Dialogfeld als Nachricht angezeigt wird. Die maximale Länge der Eingabeaufforderung beträgt ca. 1024 Zeichen. Wenn sich die Nachricht auf mehr als eine Zeile erstreckt, können die Zeilen mit einem Wagenrücklaufzeichen (Chr (13)) oder einem Zeilenvorschubzeichen (Chr (10)) zwischen den einzelnen Zeilen getrennt werden.
Title- Ein optionaler Parameter. Ein Zeichenfolgenausdruck, der in der Titelleiste des Dialogfelds angezeigt wird. Wenn der Titel leer gelassen wird, wird der Anwendungsname in die Titelleiste eingefügt.
Default- Ein optionaler Parameter. Ein Standardtext im Textfeld, der dem Benutzer angezeigt werden soll.
XPos- Ein optionaler Parameter. Die Position vonXDie Achse repräsentiert den Eingabeaufforderungsabstand von der linken Seite des Bildschirms horizontal. Wenn Sie dieses Feld leer lassen, wird das Eingabefeld horizontal zentriert.
YPos- Ein optionaler Parameter. Die Position vonYDie Achse repräsentiert den Eingabeaufforderungsabstand von der linken Seite des Bildschirms vertikal. Wenn Sie dieses Feld leer lassen, wird das Eingabefeld vertikal zentriert.
Helpfile- Ein optionaler Parameter. Ein Zeichenfolgenausdruck, der die Hilfedatei angibt, die zum Bereitstellen der kontextsensitiven Hilfe für das Dialogfeld verwendet werden soll.
context- Ein optionaler Parameter. Ein numerischer Ausdruck, der die Hilfekontextnummer angibt, die der Hilfeautor dem entsprechenden Hilfethema zugewiesen hat. Wenn ein Kontext bereitgestellt wird, muss auch eine Hilfedatei bereitgestellt werden.

Beispiel

Berechnen wir die Fläche eines Rechtecks, indem wir zur Laufzeit Werte vom Benutzer mithilfe von zwei Eingabefeldern abrufen (eines für die Länge und eines für die Breite).

Function findArea() 
   Dim Length As Double 
   Dim Width As Double 
   
   Length = InputBox("Enter Length ", "Enter a Number") 
   Width = InputBox("Enter Width", "Enter a Number") 
   findArea = Length * Width 
End Function

Ausgabe

Step 1 - Um dasselbe auszuführen, rufen Sie mit dem Funktionsnamen auf und drücken Sie die Eingabetaste, wie im folgenden Screenshot gezeigt.

Step 2- Bei der Ausführung wird das erste Eingabefeld (Länge) angezeigt. Geben Sie einen Wert in das Eingabefeld ein.

Step 3 - Nach Eingabe des ersten Wertes wird das zweite Eingabefeld (Breite) angezeigt.

Step 4- Klicken Sie nach Eingabe der zweiten Nummer auf die Schaltfläche OK. Der Bereich wird wie im folgenden Screenshot gezeigt angezeigt.