Skjemaer i Microsoft Office Excel kan hjelpe deg å presentere data tydelig og direkte , i stedet for å referere dem til en fil på harddisken din . Den raskeste måten å importere data til et skjema fra et regneark er ved hjelp av Visual Basic for Applications ( VBA ) . VBA er et programmeringsspråk som brukes til å automatisere manuelle oppgaver i Microsoft Office-programmer , for eksempel Excel . Gjør din søknad mer brukervennlig ved å vise regnearkdata gjennom skjemaene . Instruksjoner
en
Launch Microsoft Office Excel og skriv " 2 " i celle " A1 ", " 3 " i celle " B1 ", " 4" i celle " C1, " og " 5 " i celle " D1 ." Trykk "Ctrl " og " S" for å lagre regnearket . Lagre den i "C : \\ Temp " som " source.xlsx " og lukk regneark
2
Launch Excel til å åpne en ny arbeidsbok . . Klikk på " Utvikler " fanen , og klikk på « Visual Basic. " Klikk på " Insert"-menyen og klikk " UserForm1 " for å legge en ny form .
3
Klikk " ComboBox " på " Toolbox" -panelet og dra den i skjemaet mens du holder musen knappen. Slipp museknappen for å lage en ny combo -box kontroll. Legg til en ny kommandoknapp ved hjelp av samme teknikk.
4
Dobbeltklikk på " CommandButton1 " for å åpne click -event prosedyre for knappen . Begynn med å legge følgende VBA -kode for å lage de variablene som brukes til å åpne regnearket : en
Dim sourceXL Som Excel.Application
Dim Sourcebook Som Excel.Workbook
Dim sourceSheet As Excel.Worksheet
5
Legg til følgende kode for å åpne " source.xlsx " regneark : en
Set sourceXL = Excel.Application
Set Sourcebook = sourceXL . Workbooks.Open ( "C : \\ Temp \\ source.xlsx ")
Sett sourceSheet = sourceBook.Sheets ( 1 )
6
Skriv inn følgende kode for å få verdiene fra " source.xlsx " og legge dem til kombinasjonsboksen i Form din : en
sourceSheet.Range " . Velg
Me.ComboBox1.AddItem ( sourceSheet.Range ( ( " A1 ) " A1 " ) . Value)
sourceSheet.Range ( " B1 ") . Velg
Me.ComboBox1.AddItem ( sourceSheet.Range ( " B1 ") . Value)
sourceSheet . Range (" C1 ") . Velg
Me.ComboBox1.AddItem ( sourceSheet.Range ( " C1 ") . Value)
sourceSheet.Range ( " D1 ") . Velg
Me.ComboBox1.AddItem ( sourceSheet.Range ( " D1 ") . Value)
7
Test programmet ved å trykke " F5" og klikke på kommando for å fylle kombinasjonsboksen.