Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Office Excel a zadajte " 2 " do bunky " A1 " , " 3 " do bunky " B1 " , " 4 " do bunky " C1 " a " 5 " do bunky " D1 " . Stlačte tlačidlo " Ctrl " a " S " pre uloženie tabuľky . Uložte ho do " C : \\ Temp " ako " source.xlsx " a zatvorte tabuľku
2
Launch Excel otvorte nový zošit .. Kliknite na kartu " Vývojár " , potom kliknite na " Visual Basic " . Kliknite na menu " Vložiť " a kliknite na tlačidlo " UserForm1 " pridať nový formulár .
3
Kliknite na " ComboBox " na " Toolbox " panelu a pretiahnite ju do formulára pri držaní myši tlačidlo . Uvoľnite tlačidlo myši vytvoriť nový ovládací prvok combo - box . Pridať nové príkazové tlačidlo rovnakou technikou .
4
Double - kliknite na " CommandButton1 " na začatie konania click - udalostí pre tlačidlá . Začnite tým , že pridá nasledujúci kód jazyka VBA k vytvoreniu premenné používané na otváranie tabuľky :
Dim sourceXL Ako Excel.Application
Dim Sourcebook Ako Excel.Workbook
Dim sourceSheet As Excel.Worksheet
5
Pridajte nasledujúci kód na otvorenie " source.xlsx " tabuľku : Autor
Set sourceXL = Excel.Application
Nastaviť Sourcebook = sourceXL . Workbooks.Open ( " C : \\ Temp \\ source.xlsx " )
Set sourceSheet = sourceBook.Sheets ( 1 )
6
zadajte nasledujúci kód , aby sa hodnoty z " source.xlsx " a pridať ich do poľa so zoznamom vo formulári :
sourceSheet.Range ( " A1 " ) . Vyberte klipart
Me.ComboBox1.AddItem ( sourceSheet.Range ( " A1 " ) . Value )
sourceSheet.Range ( " B1 " ) . Vyberte
Me.ComboBox1.AddItem ( sourceSheet.Range ( " B1 " ) . Value )
sourceSheet . Range ( " C1 " ) . Vyberte klipart
Me.ComboBox1.AddItem ( sourceSheet.Range ( " C1 " ) . Value )
sourceSheet.Range ( " D1 " ) . Zvoľte
Me.ComboBox1.AddItem ( sourceSheet.Range ( " D1 " ) . Value )
7
Otestujte svoj program stlačením tlačidla " F5 " a kliknite na tlačidlo príkazu na vyplnenie vášho poľa so zoznamom .
Copyright © počítačové znalosti Všetky práva vyhradené