Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako importovať dáta z tabuľky programu Excel do formulára vytvorené v programe Excel

Formuláre v aplikácii Microsoft Office Excel vám môže pomôcť súčasných údajov jasne a priamo , skôr než odkazovať ich do súboru na pevnom disku . Najrýchlejší spôsob , ako importovať dáta do formulára z tabuľky je pomocou jazyka Visual Basic for Applications ( VBA ) . VBA je programovací jazyk použiť na automatizáciu manuálnych úloh v aplikáciách Microsoft Office , ako je Excel . Urob si svoj ​​aplikácie viac užívateľsky prívetivé zobrazením tabuľky dát pomocou formulárov . Pokyny dovolená 1

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 .

Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené