Wie Sie Daten aus einer Excel-Tabelle zu einem Formular in Excel erstellt wurden . Der schnellste Weg, um Daten zu einem Formular importieren aus einer Tabellenkalkulation ist mithilfe von Visual Basic für Applikationen (VBA) . VBA ist eine Programmiersprache verwendet werden, um manuelle Aufgaben in Microsoft Office -Anwendungen wie Excel zu automatisieren. Machen Sie Ihre Anwendung noch benutzerfreundlicher durch Anzeigen Tabellenkalkulation Daten durch Formulare . Anleitung
1

Starten Sie Microsoft Office Excel und geben Sie " 2 " in die Zelle "A1 ", "3 " in die Zelle "B1 ", " 4" in die Zelle "C1 " und "5" in die Zelle "D1 ". Drücken Sie "Strg" und "S" , um die Tabelle zu speichern. Speichern Sie sie in "C: \\ Temp " als " source.xlsx " und schließen Sie die Tabelle
2

starten Excel um eine neue Arbeitsmappe zu öffnen. . Klicken Sie auf die Registerkarte "Entwicklertools" , klicken Sie dann auf " Visual Basic ". Klicken Sie auf das Menü "Einfügen" und klicken Sie auf " UserForm1 ", um eine neue Form hinzufügen.
3

Klicken Sie auf " ComboBox " auf der "Toolbox" Fenster und ziehen Sie es auf Ihre Form , während Sie mit der Maus Taste. Lassen Sie die Maustaste los, um eine neue Combo-Box -Steuerung zu erstellen. Fügen Sie eine neue Schaltfläche mit der gleichen Technik .
4

Doppelklicken Sie auf " CommandButton1 ", um die Click- Ereignisprozedur für die Schaltfläche öffnen. Beginnen Sie, indem Sie den folgenden VBA-Code , um die Variablen verwendet, um die Tabelle zu öffnen erstellen :

Dim sourceXL Wie Excel.Application

Dim Sourcebook Wie Excel.Workbook

Dim sourceSheet Wie Excel.Worksheet
5

Fügen Sie den folgenden Code, um die " source.xlsx " Tabellenkalkulation öffnen:

Set sourceXL = Excel.Application

Set Sourcebook = sourceXL . Workbooks.Open ("C : \\ Temp \\ source.xlsx " )

Set sourceSheet = sourceBook.Sheets (1)
6

Geben Sie den folgenden Code, um die Werte aus bekommen " source.xlsx " und fügen Sie sie in der Combo-Box auf Ihrer Form:

sourceSheet.Range " . Wählen

Me.ComboBox1.AddItem ( sourceSheet.Range ( ("A1 ) " A1 " ) . Value)

sourceSheet.Range ( "B1" ) . Wählen

Me.ComboBox1.AddItem ( sourceSheet.Range ( "B1" ) . Value)

sourceSheet . Range (" C1" ) . Wählen

Me.ComboBox1.AddItem ( sourceSheet.Range ( "C1" ) . Value)

sourceSheet.Range ( "D1" ) . Wählen Sie < br >

Me.ComboBox1.AddItem ( sourceSheet.Range ( "D1" ) . Value)
7

Testen Sie Ihr Programm mit der Taste " F5" und dann auf die Schaltfläche , um Ihre Combo-Box zu füllen.