Forms i Microsoft Office Excel kan hjælpe dig med nuværende data klart og direkte , snarere end henvisninger dem til en fil på din harddisk. Den hurtigste måde at importere data til en formular fra et regneark ved hjælp af Visual Basic for Applications ( VBA ) . VBA er en computer programmeringssprog, der anvendes til at automatisere manuelle opgaver i Microsoft Office-programmer , såsom Excel. Gør din ansøgning mere brugervenligt ved at vise regnearksdata via formularer. Instruktioner
1

Launch Microsoft Office Excel og skriv " 2" i celle "A1 ", " 3" i celle " B1 ", " 4" i celle "C1 " og "5 " i celle "D1 ". Tryk på " Ctrl " og "S " for at gemme regnearket. Gemme det i "C: \\ Temp" som " source.xlsx " og luk regnearket
2

Launch Excel til at åbne en ny projektmappe . . Klik på " Udvikler " fanen, og klik derefter på "Visual Basic ". Klik på " Indsæt" menuen og klik på " UserForm1 " for at tilføje en ny form .
3

Klik på " ComboBox " på " Toolbox" ruden og træk det til formularen , mens du holder din mus knappen. Slip museknappen for at oprette en ny combo -box kontrol. Tilføj en ny kommando -knap ved hjælp af samme teknik.
4

Dobbeltklik på " CommandButton1 " for at åbne click -event procedure for knappen. Start ved at tilføje følgende VBA-kode til at skabe de variabler, der bruges til at åbne regnearket : Hej

Dim sourceXL Som Excel.Application

Dim Sourcebook Som Excel.Workbook

Dim sourceSheet Som Excel.Worksheet
5

Føj følgende kode til at åbne " source.xlsx " regneark : Hej

Set sourceXL = Excel.Application

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

Set sourceSheet = sourceBook.Sheets (1)
6

Skriv følgende kode for at få værdierne fra " source.xlsx ", og tilføje dem til kombinationsboksen på din Form : Hej

sourceSheet.Range " . Vælg

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

sourceSheet.Range ( " B1 "). Vælg

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

sourceSheet . Range (" C1 "). Vælg

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

sourceSheet.Range ( " D1 "). Vælg < br >

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

Test dit program ved at trykke på " F5 " og klikke på kommando -knappen for at udfylde din kombinationsboks. KAYAK