Erstellen Sie ein Formular in Excel unter Verwendung Steuerelemente in einem Rahmen, der einfache Textfelder produzieren wird , wo der Benutzer ihre Daten eingeben können gruppiert . Erstellen Sie drei Befehlsschaltflächen auf dem Formular, das einen Einfluss auf die Informationen in der Form haben wird, wenn der Benutzer eine Linksklick mit ihrer Maus. Es ist einfach, eine Form, die Mitarbeiter oder Führungskräfte Liste erstellt , und deren Status überprüfen . Anleitung
1

Öffnen einer Arbeitsmappe in Excel. Wenn Sie wissen, welche Arbeitsmappe, die Sie Ihrem Formular angehören zu wollen , dann ist jetzt die Zeit, um es zu öffnen. Benutzen Sie das Menü Datei, um die Arbeitsmappe zugreifen .
2

Klicken Sie auf das Menü "Extras" auf "Makro ", und klicken Sie auf " Visual Basic -Editor. "
3

Klicken Sie auf " einfügen " und wählen Sie dann " UserForm. "
4

Ziehen Sie eine Befehlsschaltfläche auf das Formular. Sie müssen mindestens drei von ihnen für dieses Beispiel.
5

Put Namen auf Ihren Befehl Schaltflächen und Beschriftungen . Klicken Sie auf " Ansicht" und " Eigenschaften-Fenster . " Klicken Sie auf eine der Schaltflächen , die Sie auf dem Formular platziert .
6

Nennen Sie die Schaltfläche , die gelesen wird "OK" , indem Sie auf den Namen Einstellung im Fenster Eigenschaften und Eingabe von " cmdOK " . Klicken Sie auf das "Caption "-Einstellung im Fenster Eigenschaften , und geben Sie "OK".
7

Klicke auf einen anderen Befehl -Taste. Nennen Sie diese one " cmdCancel ", und setzen Sie die Beschriftung zu lesen "Cancel" im Fenster Eigenschaften .
8

Klicke auf die dritte Schaltfläche , nennen Sie es " cmdClearForm " und ändern Sie die Einstellung Beschriftung zu lesen " Clear Form . "
9

drücken Sie die " F7 "-Funktion Taste auf Ihrer Tastatur , um das Code-Fenster .
10

Klicken Sie auf den Dropdown-Listen an der obere Teil des Code-Fenster . Klicken Sie auf der oberen linken Liste, um die Unterprozedur namens "User Form" öffnen und auf dem anderen Dropdown-Liste zur Auswahl
11

löschen Unterprozedur über dem liest aufgeführten " initialisieren . ": UserForm_Click ()-Prozedur
12

Geben Sie den folgenden Code in das Code-Fenster ( nicht über den blauen Text eingeben , fügen Sie einfach den schwarzen Text ) : . private Sub UserForm_Initialize () txtName.Value = "" txtPhone . Value = " " Mit cboDepartment.AddItem "Mitarbeiter" . AddItem "Manager " End With

YourCourse.Value = "" = optIntroduction TruechkWork = FalsechkVacation = FalsetxtName.SetFocusEnd Sub
13

Geben Sie den Code in das Abbrechen. Doppelklicken Sie auf die Schaltfläche Abbrechen, um das Codefenster zu öffnen . Geben Sie den Code so , dass die Code-Fenster lautet: Private Sub cmdCancel_Click () Unload Meend Sub
14

Öffnen Sie das Codefenster für das Formular leeren Button . Denken Sie daran, doppelklicken Sie auf das "Clear Form" Taste
15

Geben Sie Ihren Code in das Code-Fenster , so dass es heißt: . Private Sub cmdClearForm_Click ()-Aufruf UserForm_InitializeEnd Sub
16 < p> Doppelklicken Sie auf die Schaltfläche "OK" , um den folgenden Code in das Code-Fenster hinzufügen : . .

private Sub cmdOK_Click () ActiveWorkbook.Sheets ( " yourwork " ) ActivateRange ( "A1") SelectDoIf IsEmpty ( ActiveCell ) = FalseThenActiveCell.Offset (1 , 0). SelectEnd IfLoop Bis IsEmpty ( ActiveCell ) = TrueActiveCell.Value = txtName.ValueActiveCell.Offset (0, 1) = txtPhone.ValueActiveCell.Offset (0 , 2) = cboDepartment.ValueActiveCell . Offset (0, 3) = cboCourse.ValueIf optIntroduction = True ThenActiveCell.Offset (0, 4). Value = " Intro" ElseIf optIntermediate = True ThenActiveCell.Offset (0, 4). Value = " Intermed " ElseActiveCell.Offset (0 , 4) . Value = " Adv " End IFIF chkLunch = True ThenActiveCell.Offset (0, 5). Value = " Ja " ElseActiveCell.Offset (0, 5). Value = " Nein" End IFIF chkWork = True ThenActiveCell.Offset (0, 6). Value = " Ja " ElseIf chkVacation = False ThenActiveCell.Offset (0, 6). Value = " " ElseActiveCell.Offset (0, 6). Value = " Nein" End IfEnd IfRange ( "A1") . SelectEnd Sub