Blanketter i Microsoft Office Excel kan hjälpa dig presentera data tydligt och direkt , snarare än att referera dem till en fil på din hårddisk . Det snabbaste sättet att importera data till en form från ett kalkylblad med hjälp av Visual Basic for Applications ( VBA ) . VBA är en dator programmeringsspråk som används för att automatisera manuella uppgifter i Microsoft Office-program , till exempel Excel . Gör din ansökan mer användarvänligt genom att visa tabelldata via formulär . Instruktioner
1
Launch Microsoft Office Excel och typ " 2 " i cell " A1 ", " 3 " i cell " B1 ", " 4 " i cell " C1 " och " 5 " i cell "D1 ". Tryck på " Ctrl " och " S " för att spara kalkylbladet . Spara den i " C : \\ Temp " som " source.xlsx " och stäng kalkylblad
2
Launch Excel för att öppna en ny arbetsbok . . Klicka på " Utvecklare " fliken , klicka sedan på " Visual Basic . " Klicka på " Infoga " -menyn och klicka på " UserForm1 " för att lägga till en ny form .
3
Klicka " ComboBox " på " Toolbox " rutan och dra den till ditt formulär medan du håller musen knappen. Släpp musknappen för att skapa ett nytt combo - box -kontroll . Lägg till ett nytt kommando knapp med samma teknik .
4
Dubbelklicka på " CommandButton1 " för att öppna klick -event förfarande för knappen . Börja med att lägga till följande VBA-kod för att skapa de variabler som används för att öppna kalkylbladet :
Dim sourceXL Som Excel.Application
Dim Sourcebook Som Excel.Workbook
Dim sourceSheet Som Excel.Worksheet
5
Lägg till följande kod för att öppna " source.xlsx " kalkylblad :
Set sourceXL = Excel.Application
Set Sourcebook = sourceXL . Workbooks.Open ( " C : \\ Temp \\ source.xlsx " ) katalog
Set sourceSheet = sourceBook.Sheets ( 1 )
6
Skriv in följande kod för att få värden från " source.xlsx " och lägga till dem i kombinationsrutan i formuläret :
sourceSheet.Range " . Välj
Me.ComboBox1.AddItem ( sourceSheet.Range ( ( " A1 ) " A1 " ) . Value ) katalog
sourceSheet.Range ( " B1 " ) . Välj
Me.ComboBox1.AddItem ( sourceSheet.Range ( " B1 " ) . Value ) katalog
sourceSheet . Range ( " C1 " ) . Välj
Me.ComboBox1.AddItem ( sourceSheet.Range ( " C1 " ) . Value ) katalog
sourceSheet.Range ( " D1 " ) . Välj
Me.ComboBox1.AddItem ( sourceSheet.Range ( " D1 " ) . Value )
7
Testa ditt program genom att trycka på " F5 " och klicka på knapp för att fylla din kombinationsrutan . Addera
