Tutorial für ein Formular in Excel
Wenn man Daten aus einem Formular Daten in eine Tabelle zu kopieren, kann es ziemlich schnell kompliziert und verwirrend erhalten. Wenn Sie möchten geben Daten ein deutlicher, die Informationen ausgeblendet oder erstellen Sie einfach eine attraktivere Benutzeroberfläche für eine Datenbank Excel gespeichert, sollten Sie untersuchen, Erstellen eines Formulars. Formulare sind attraktiver und verwendbar als eine normale Tabelle, und Recht einfach zu machen.
Visual Basic-Editor
Öffnen Sie ein neues Arbeitsblatt. In den Kopfzeilen für alle Ihre Informationen geben, und die ersten Eingabeformular. Dadurch wird die Datenbank Teil Ihrer Kalkulationstabelle. Doppelklicken Sie auf die Registerkarte, die sagt "Blatt 1" und geben Sie einen Namen für Ihr Blatt. Speichern Sie die Kalkulationstabelle. Halten Sie "Alt" und drücken Sie "F11", um den Visual Basic-Editor zu öffnen, die Ihnen erlaubt, Ihre Form zu erstellen. Wählen Sie im Bereich Ansicht Ihrer Tabellenkalkulation--die den Namen, die, dem Sie haben wird oben ausgewählt haben. Öffnen Sie im Menü Einfügen und wählen Sie "UserForm". Ein leeres Formular wird auf dem Bildschirm, wie die UserForm-Toolbox wird angezeigt. Bevor Sie anfangen, das Formular entwerfen, nennen Sie es: Drücken Sie "F4", um das Bedienfeld "Eigenschaften" zu öffnen, doppelklicken auf das Formular, dann geben Sie Ihren Namen. Programmierer machen in der Regel den Namen des Formulars etwas kurze und aussagekräftige, wie "UserInfoForm." Wenn Sie fertig sind, drücken Sie "Enter."
Sie werden auch bemerken, dass das neue Formular einfach sagt "UserForm 1" an der Spitze. Wahrscheinlich wollen Sie es etwas anderes, wie "Neuen Benutzerinformationen" sagen. Im Eigenschaftenpanel Doppelklicken Sie auf die Eigenschaft "Caption" des Formulars neuen Namen geben Sie ein, und drücken Sie "Enter."
Entwerfen des Formulars
Verwenden Sie die Symbolleiste, um die verschiedenen Teile des Formulars zu erstellen. Das Textfeld-Werkzeug kann Boxen erstellen, in denen Sie beliebige Daten eingeben können. Klicken Sie auf Toolbox, das aussieht wie "AB|," irgendwo auf dem Formular klicken Sie und ziehen Sie das Textfeld auf dem Formular. Doppelklicken Sie auf das Feld "Name" unter Eigenschaften wählen Sie das Textfeld und geben Sie einen Namen wie "ClientName". Beschriften Sie das Formular mit dem Label-Tool, welches aussieht wie ein großes A), zu benennen, was die Box für ist.
Fügen Sie einige Schaltflächen mit dem Schaltflächen-Werkzeug. Stellen Sie sicher, dass Sie die Namen von diesen Schaltflächen und die Beschriftungen im Menü Eigenschaften ändern. Jedes Formular müsste mindestens ein "hinzufügen" und "Löschen". Wenn Sie ein Listenfeld vornehmen möchten, fügen Sie es, aber mach dir keine Sorgen über die Elemente im es gerade noch. Design und Form zu bearbeiten, bis es Ihren Vorstellungen entspricht, was Sie wollen. Um alles zu löschen, klicken Sie auf das Teil, und drücken Sie die Taste "Entf". Um die Dateneingabe so einfach wie möglich zu machen, machen Sie die computerbasierte Form ähnlich wie alle vorhandenen oder Papier-Formulare, die Sie haben. Wenn Sie bereit sind, speichern Sie das Formular.
Die Tasten programmieren
Öffnen Sie das Menü Ansicht und wählen Sie "Code" oder drücken Sie "F7." Dadurch wird ein leeres Fenster geöffnet, in dem Sie den Code eingeben können, der Befugnisse des Formulars. Starten Sie, indem Sie den folgenden Code eingeben:
Private Sub hinzufügen SchaltflächennameDim Cout so langeDim Wksht als ArbeitsblattSet Wksht = Worksheets ("[Name des Arbeitsblattes]")
Geben Sie den Namen der Ihrem Arbeitsblatt angegeben. Als nächstes musst du sagen, das System die erste leere Zeile in der Datenbank zu finden. Verwendung:
Count = ws. Zellen (Rows.Count, 1) _. End(xlUp). Offset (1, 0). Zeile
Sagen Sie, das System zu überprüfen, ob die Textfelder Sachen in ihnen eingegeben haben. Geben Sie in den folgenden Code die Namen der Textfelder und in der Formularcode einfügen.
Wenn Trim (Me [TextBox Name]. Wert) = "" dannMe [TextBox]. SetFocusMsgBox "Bitte geben Sie eine Teilenummer"Exit SubEndIf
Als Nächstes fügen Sie Code zum Kopieren der Daten in die Datenbank. Angenommen, Sie haben drei Textfelder und eine Listbox, ist hier der Code eingeben.Wksht. Zellen (Count, 1). Wert = Me [TextBox 1 Name]. WertWksht. Zellen (Count, 2). Wert = Me [TextBox 2 Name]. WertWksht. Zellen (Count, 3). Wert = Me [TextBox 3 Name]. WertWksht. Zellen (Count, 4). Wert = Me [ListBox-Name]. Wert
Fügen Sie einen Code, um die Daten zu löschen:Me [TextBox 1 Name]. Wert = ""Me [TextBox 2 Name]. Wert = ""Me [TextBox 3 Name]. Wert = ""Me [ListBox-Name]. Wert = ""Me.txtPart.SetFocus
Schließlich drücken Sie zweimal "Eingabe" und "End Sub" geben. Speichern Sie den Code, und schließen Sie die Visual Basic-Anwendung.
Erstellen einer Schaltfläche
Suchen Sie auf Ihrer Tabelle der Zeichnen-Symbolleiste. Wenn Sie die Daten vom Benutzer ausblenden möchten, wechseln Sie auf Blatt 2 oder 3. Zeichnen Sie ein Feld auf dem Bildschirm, und optimieren Sie, auszusehen wie eine Schaltfläche. Rechte Maustaste, um einige Text einfügen, dann erneut mit der rechten Maustaste, und wählen "Makro zuweisen." Klicken Sie auf die Schaltfläche "Neu" und geben Sie Ihr Formular Name und dann "...zum", Beispiel, es sollte "UserInfoForm.show" sagen.