So erstellen Sie Formulare mit Excel

Öffnen Sie eine Arbeitsmappe in Excel. Wenn Sie wissen, in welchem ​​Buch sich Ihr Formular befinden soll, ist es jetzt an der Zeit, es zu öffnen. Verwenden Sie das Menü Datei, um auf das Buch zuzugreifen.

Klicken Sie auf das Menü "Extras", wählen Sie "Makro" und klicken Sie auf "Visual Basic Editor".

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

Ziehen Sie eine Befehlsschaltfläche in das Formular. Für dieses Beispiel benötigen Sie mindestens drei davon.

Benennen Sie die Befehlsschaltflächen und Beschriftungen. Klicken Sie auf "Ansicht" und "Eigenschaftenfenster". Klicken Sie auf eine der Befehlsschaltflächen, die Sie in das Formular eingefügt haben.

Benennen Sie die Befehlsschaltfläche mit "Akzeptieren", indem Sie im Eigenschaftenfenster auf die Namenseinstellungen klicken und "cmdOK" eingeben. Klicken Sie im Eigenschaftenfenster auf die Einstellung "Legende" und geben Sie "OK" ein.

Klicken Sie auf eine andere Befehlsschaltfläche. Geben Sie den Namen "cmdCancel" ein und setzen Sie den Titel im Eigenschaftenfenster auf "Abbrechen".

Klicken Sie auf die dritte Befehlsschaltfläche und nennen Sie sie "cmdClearForm". Ändern Sie die Titeleinstellungen in "Formular löschen".

Drücken Sie die Taste "F7" auf Ihrer Tastatur, um das Codefenster anzuzeigen.

Klicken Sie oben im Codefenster auf die Dropdown-Liste. Klicken Sie auf die Liste oben links, um die Unterprozedur "Benutzerformular" zu öffnen, und klicken Sie auf die andere Dropdown-Liste, um "Start" auszuwählen.

Löscht die oben genannte Unterprozedur mit der Aufschrift: UserForm_Click ().

Schreiben Sie den folgenden Code in das Codefenster (schreiben Sie nicht über blauen Text, sondern fügen Sie nur den schwarzen Text hinzu): Private Sub UserForm_Initialize () txtName.Value = "" txtPhone.Value = "" Mit cboDepartment .AddItem "Employees ".AddItem" Manager "enden mit YourCourse.Value =" "optIntroduction = True chkWork = False chkVacation = False txtName.SetFocus End Sub

Geben Sie den Code in die Schaltfläche Abbrechen ein. Doppelklicken Sie auf die Schaltfläche Abbrechen, um das Codefenster zu öffnen. Geben Sie Ihren Code ein, um das Codefenster zu lesen: Private Sub cmdCancel_Click () Unload Me End Sub

Öffnen Sie das Codefenster für die Schaltfläche Formular löschen. Denken Sie daran, auf das "Formular löschen" zu doppelklicken.

Geben Sie Ihren Code in das Codefenster ein, um Folgendes zu lesen: Private Sub cmdClearForm_Click () Rufen Sie UserForm_Initialize End Sub auf

Doppelklicken Sie auf die Schaltfläche "OK", um den folgenden Code in das Codefenster einzufügen: Private Sub cmdOK_Click () ActiveWorkbook.Sheets ("YourWork"). Bereich aktivieren ("A1"). Wählen Sie Do If IsEmpty (ActiveCell) = FalseThen ActiveCell.Offset (1, 0) .Wählen Sie End If Loop Bis IsEmpty (ActiveCell) = True ActiveCell.Value = txtName.Value ActiveCell.Offset (0, 1) = txtPhone.Value ActiveCell.Offset (0, 2) = cboDepartment .Value ActiveCell.Offset (0, 3) = cboCourse.Value If optIntroduction = True Then ActiveCell.Offset (0, 4) .Value = "Enter" ElseIf optIntermediate = True Then ActiveCell.Offset (0, 4) .Value = " Intermed "Else ActiveCell.Offset (0, 4) .Value =" Adv "End If If chkLunch = True Then ActiveCell.Offset (0, 5) .Value =" Yes "Else ActiveCell.Offset (0, 5) .Value = "Nein" End If If chkWork = True Then ActiveCell.Offset (0, 6) .Value = "Yes" Else If chkVacation = False Then ActiveCell.Offset (0, 6) .Value = "" Else ActiveCell.Offset (0, 6) .Value = "No" End If End If Range ("A1"). Wählen Sie End Sub