V tomto článku sa naučíme, ako vytvoriť používateľský formulár na vyhľadávanie a tlač prostredníctvom jazyka VBA v programe Microsoft Excel.
Poďme pochopiť jednoduché cvičenie:-
Máme údaje v hárku 1, v ktorom stĺpec A obsahuje ID agenta, stĺpec B obsahuje meno, adresu v stĺpci C, v stĺpci D mesto, v stĺpci E oblasť, v stĺpci F krajinu a v stĺpci G obsahuje poštové smerovacie číslo.
V nasledujúcom hárku (list 2) chceme získať podrobnosti podľa nižšie uvedeného obrázku:-
Ak vyhľadáme ID agenta, všetky podrobnosti by sa mali objaviť v rozsahu A11: D11. A potom dajte výtlačok.
Pri vyhľadávaní a tlači podrobností postupujte nasledovne:-
- Stlačením klávesu F11 otvoríte editor jazyka Visual Basic
- Vložte modul a zadajte kód pre tlačidlo Hľadať
- Napíšte nasledujúci kód:-
Poddata hľadania () Dim Lastrow ako Long Dim počet ako Integer Lastrow = hárky („údaje“). Bunky (riadky. Počet, 1). Koniec (xlUp). Riadok pre X = 2 na preberanie, ak hárky („údaje“). Bunky (X, 1) = List3.Range ("B3") Potom Sheet3.Range ("A11") = Listy ("Údaje"). Bunky (X, 1) List3.Range ("B11") = Listy (" Údaje "). Bunky (X, 2) List3.Range (" C11 ") = Listy (" Údaje "). Bunky (X, 3) &" "& Tabule (" údaje "). Bunky (X, 4) _ & "" & Tabuľky ("údaje"). Bunky (X, 5) & "" & Tabule ("Údaje"). Bunky (X, 6) List3.Range ("D11") = Listy ("Údaje"). Bunky (X, 7) Koniec ak nasledujúci X Koniec Podč
Vysvetlenie kódu:- Najprv definujeme premenné a potom sme definovali, ktorý riadok bude posledným riadkom, a potom sme definovali, čo a kde sa bude hľadať ID agenta a potom ako sa bude aktualizovať rozsah pre hľadané ID agenta.
Teraz priradíme toto makro k tlačidlu Hľadať.
- Kliknite pravým tlačidlom na tlačidlo
- Kliknite na Priradiť makro
- Tu je naším predmetom makra položka Searchdata, kliknite na položku Searchdata a potom kliknite na tlačidlo OK
Spustite makro:-
- Makro spustíte kliknutím na tlačidlo Hľadať
- Ak tam bude ID agenta, podrobnosti sa aktualizujú, inak sa podrobnosti nezobrazia
Na vytlačenie priradte nižšie uvedené makro:-
- Vložiť tlačidlo z karty Vývojár> Vložiť> Tlačidlo (ovládací prvok formulára)
- Napíšte makro do rovnakého modelu, kde sme napísali makro pre Searchdata, s názvom predmetu výtlačku
Sub PrintOut () Sheet3.Range ("A1: D12"). PrintPreview Sheet3.Range ("A1: D12"). PrintOut End Sub
- Priraďte makro tlačidlu, ako sme priradili údajom vyhľadávania
Týmto spôsobom môžeme vyhľadať údaje a potom dať výtlačok k hľadaným podrobnostiam prostredníctvom VBA v programe Microsoft Excel.
Ak sa vám páčili naše blogy, zdieľajte ich so svojimi priateľmi na Facebooku. A tiež nás môžete sledovať na Twitteri a Facebooku.
Radi by sme vás počuli, dajte nám vedieť, ako môžeme zlepšiť, doplniť alebo inovovať našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku