V tem članku se bomo naučili, kako ustvariti uporabniški obrazec za iskanje in tiskanje prek VBA v programu Microsoft Excel.
Razumejmo s preprosto vajo:-
V listu 1 imamo podatke, v katerih stolpec A vsebuje ID agenta, stolpec B vsebuje ime, stolpec C Naslov, stolpec D mesto, stolpec E območje, stolpec F država in stolpec G vsebuje poštno številko.
V naslednjem listu (list 2) želimo pridobiti podrobnosti v skladu s spodnjo sliko:-
Če iščemo ID zastopnika, bi se morale vse podrobnosti prikazati v obsegu A11: D11. Nato podajte izpis.
Za iskanje in tiskanje podrobnosti sledite spodnjim korakom:-
- Pritisnite tipko F11, da odprete urejevalnik Visual Basic
- Vstavite modul, da napišete kodo za iskalni gumb
- Napišite spodnjo kodo:-
Podizkusi Podatki () Zatemni zadnjo stran tako dolgo, kot šteje celo število Zadnja = listi ("Podatki"). Celice (Število vrstic.številka, 1). Konec (xlUp). Vrstni red za X = 2 Za sledenje, če listi ("Podatki"). Celice (X, 1) = Sheet3.Range ("B3") Potem Sheet3.Range ("A11") = Sheets ("Podatki"). Cells (X, 1) Sheet3.Range ("B11") = Sheets (" Podatki "). Celice (X, 2) List3.Range (" C11 ") = Listi (" Podatki "). Celice (X, 3) &" "& List (" podatki "). Celice (X, 4) _ & "" & Listi ("podatki"). Celice (X, 5) & "" & Listi ("Podatki"). Celice (X, 6) List3.Range ("D11") = Listi ("Podatki"). Celice (X, 7) End Če je naslednji X End Sub
Koda Pojasnilo:- Najprej bomo definirali spremenljivke, nato pa smo opredelili, katera vrstica bo zadnja vrstica, nato pa smo opredelili, kaj in kje bo iskan ID agenta, nato pa kako se bo obseg posodobil za iskan ID agenta.
Zdaj bomo ta makro dodelili gumbu za iskanje.
- Desni klik na gumb
- Kliknite na Dodeli makro
- Tukaj je naš predmet makra Searchdata, kliknite na searchdata in nato kliknite OK
Zaženite makro:-
- Če želite zagnati makro, kliknite gumb Iskanje
- Če bo tam ID agenta, se bodo podrobnosti posodobile, sicer se podrobnosti ne bodo prikazale
Če želite izpisati, dodelite spodaj omenjeni makro:-
- Vstavite gumb na zavihku Razvijalec> Vstavi> Gumb (nadzor obrazca)
- Makro napišite v istem modelu, kjer smo napisali makro za Searchdata, z imenom predmeta Printout
Sub PrintOut () List3.Range ("A1: D12"). PrintPreview Sheet3.Range ("A1: D12"). PrintOut End Sub
- Gumbu dodelite makro, kot smo ga dodelili iskalnim podatkom
Na ta način lahko poiščemo podatke in nato podamo izpis iskanim podrobnostim prek VBA v Microsoft Excelu.
Če so vam bili naši blogi všeč, jih delite s prijatelji na Facebooku. Prav tako nas lahko spremljate na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo, dopolnimo ali inoviramo svoje delo in ga izboljšamo. Pišite nam na spletni strani elektronske pošte