Microsoft Excel Fähigkeiten sind stark durch den Einsatz von Visual Basic -Skript, das Sie individuell Excel standardmäßig Werkzeuge können in Ihr Projekt die spezifischen Bedürfnisse erweitert. Mit benutzerdefinierten Formularen, mit Kontrollen , um Benutzereingaben zu empfangen, gibt Ihnen die volle Kontrolle über die Benutzer - Eingabe von Excel-Daten . Eingabe das folgende Programm zeigt Ihnen , wie Sie mehrere Visual Basic controls.Start das Projekt durch Öffnen von Excel und Eingabe der Visual Basic IDE ( Integrated Development Environment) . Geben Sie die IDE mit alt -F11 . Legen Sie die Bedienelemente
In der IDE -Designer-Fenster (Ansicht> Objekt), Drag & Drop Steuerelemente aus der Toolbox auf einem Formular wie folgt:
Platz ein Frame-Steuerelement auf das Formular . Im Fenster Eigenschaften ändern ihre Beschriftung zu " Familienstand ". Mit dem Frame-Steuerelement noch ausgewählt ist, ziehen zwei Optionsfelder innerhalb des Rahmens Kontrolle. Ziehen Sie zwei Etiketten in den Rahmen , die jeweils auf der linken Seite eine Option -Taste. Geben Sie den Etiketten die Beschriftungen " Verheiratet " und "Single ".
Ziehen Sie ein Listenfeld unterhalb des Rahmens und seine Optionsfelder . Ziehen Sie ein Label, das automatisch Label3 sollten benannt werden , unter dem Listenfeld. Geben Sie " Antwort auf Sicherheitsfrage , " für die Beschriftung . Auf der rechten Seite Label3 ziehen Sie ein Textfeld . Unter dem Textfeld Ziehen Sie eine Schaltfläche und geben Sie ihm den Titel " Absenden". Schließlich ziehen Sie ein Label, das mit dem Namen Label4 sollte, auf der rechten Seite des Rahmens Kontrolle. Als seine Beschriftung leer.
Die Aktionen, die Sie gerade gemacht haben erstellt eine typische Form , die Daten aus einer prospektiven neuen Kunden sammelt . Du wirst jetzt mit Visual Basic die Daten des Kunden von den Kontrollen übertragen auf einem Excel-Arbeitsblatt .
Erstellen Code für das Formular
Doppelklicken Sie auf das Formular, um die Eingabe Code-Fenster , und wählen Sie diese Elemente aus den beiden Dropdown-Felder in der Nähe der Spitze des Code-Fenster: UserForm und initialisieren . Die IDE wird eine leere Initialize Sub . Innerhalb dieses sub, geben Sie diesen Code , die das Listenfeld füllt , wenn das Programm gestartet wird :
ListBox1.List = array ( "Was ist Ihnen Lieblingsfilm ", " ? In welcher Stadt wurden Sie geboren ", " Was ist das Geräusch einer klatschenden Hand ? ")
du hast für den Benutzer des Formulars Initialisierungssubroutine erstellen leere Unterprogramme für die Optionsfelder ' Click-Ereignisse , mit der Code-Fenster im Dropdown- Boxen. In die Click-Ereignisse sowohl OptionButton1 und 2 , geben Sie den folgenden Code ein: " Ehe . " Das ist der Name einer Funktion, die Sie jetzt schreiben werde :
In einem leeren Bereich des Code-Fenster , schaffen die eheliche Funktion :
Private Sub Familienstand () ' Welche Taste ausgewählt wurde If? OptionButton1.Value = True ThenLabel4.Caption = "verheiratet " ElseLabel4.Caption = "single" End If End Sub
Übertragen Sie die Formulardaten an den Worksheet
erstellen Sie die leere Subroutine für die Befehlsschaltfläche Click-Ereignis mit dem Code -Fenster die Dropdown-Felder , und geben Sie diese in diesem Unterprogramm :
Range (" A1") = Label4.CaptionRange ( "b1" ) = ListBox1.ValueRange ( "C1" ) = Textbox1.Value
Dieser Code übergibt die Formulardaten an dem Arbeitsblatt.
Geben Sie das letzte Stück Code , dass eine neue Subroutine zeigt Ihre Form :
Public Sub zeigeFormular () UserForm1.Show
End Sub