Über die Input Box -Funktion in Excel VBA als Vorstufe zur Erstellung von Programmen mit diesem Eingabegerät Lernen . Diese Funktion bietet eine sanfte Einführung in Lernen, wie man VBA -Programme von Hand programmieren , weil es nur ein Argument , noch führt die wichtige Funktion Empfangen von Benutzereingaben . Betrachten wir das Erlernen der MsgBox-Funktion zusammen mit Input Box , weil seine Rolle , zeigt die Ausgabe für die Nutzer zu sehen, ist das Gegenstück der Input Box -Funktion. Zweck

das Eingabefeld Funktion fordert einen Benutzer zur Eingabe und empfängt diese Eingabe . Zum Beispiel kann ein Eingabefeld auffordern einen Benutzer , um das Alter einer Person , die das Programm in einer Tabelle namens "Birthday Mailing-Liste " auf eine Excel-Tabelle zu speichern eingeben können.
Argumente

Input Box dauert mehrere Argumente , aber Sie müssen es nur mit einer Versorgung - den Text der Benutzer aufgefordert wird , um Daten einzugeben . Optionale Argumente wie " Titel ", die Sie in das Eingabefeld der Titelleiste angezeigt. Die " Standard "-Argument ist der Wert Input Box wird zu Ihrem Programm zurück, wenn der Benutzer die Taste "Enter" ohne Eingabe eines Wertes . Sie können die Input Box an einer bestimmten Stelle des Bildschirms , indem Sie Werte für die " Xpos " und " Ypos " Argumente zu positionieren.
Rückgabewert

Input Box gibt einen String -Wert zu Ihrem Programm , die in der Regel bedeutet, dass Sie eine Variable, um die Funktion der Rückgabewert erhalten deklarieren. Diese Erklärung kann eine von zwei Formen . Die erste deutet nicht auf eine bestimmte Art von Wert . Zum Beispiel könnten Sie schreiben " Dim returnValue . " Oder Sie könnten darauf hinweisen, die String-Variable Typ mit einer Erklärung wie " Dim returnValue als String . " In der Regel verwenden die speziellere Typisierung so VBA -Typ - Fehlern fangen können , als wenn das Programm versucht, eine Zahl in einen String-Variable zuweisen .
Beispielprogramm

Probieren Sie ein Beispiel -Programm, das Input Box integriert mit Excel. Klicken Sie auf " Visual Basic "-Button in Excel die Registerkarte Entwicklertools , um die VBA -Programmierumgebung zu öffnen. Kopieren Sie den folgenden Code: Public Sub

getEmailAdr () Dim

str_email As String

Do While ( InStr ( str_email , "@") = 0)
< p> str_email = InputBox ( "Geben Sie eine gültige E-Mail -Adresse ein. " )

Schleife

Range (" A1") = str_email

End Sub