U ovom ćemo članku naučiti kako stvoriti korisnički obrazac za pretraživanje i ispis kroz VBA u programu Microsoft Excel.
Shvatimo jednostavnom vježbom:-
U Tablici 1 imamo podatke u kojima stupac A sadrži ID agenta, stupac B sadrži ime, stupac C Adresa, stupac D grad, regija stupca E, stupac F država i stupac G sadrži poštanski broj.
Na sljedećem listu (list 2) želimo dohvatiti pojedinosti prema dolje spomenutoj slici:-
Ako pretražujemo ID agenta, svi bi se detalji trebali pojaviti u rasponu A11: D11. I onda dajte ispis.
Slijedite dolje navedene korake za pretraživanje i ispis pojedinosti:-
- Pritisnite tipku F11 da biste otvorili uređivač Visual Basic
- Umetnite modul za pisanje koda za gumb za pretraživanje
- Napišite dolje navedeni kod:-
Podpodaci pretraživanja () Zatamnjivanje posljednjeg prikaza Dugo zatamnjivanje brojeva Kao cijeli broj Zadnji = listovi ("Podaci"). Ćelije (Redovi.broj, 1). Kraj (xlUp) .Red za X = 2 Za prosljeđivanje ako listovi ("Podaci"). Ćelije (X, 1) = Sheet3.Range ("B3") Zatim Sheet3.Range ("A11") = Sheets ("Podaci"). Cells (X, 1) Sheet3.Range ("B11") = Sheets (" Podaci "). Ćelije (X, 2) List 3.Range (" C11 ") = Tablice (" Podaci "). Ćelije (X, 3) &" "& Tablice (" podaci "). Ćelije (X, 4) _ & "" & Tablice ("podaci"). Ćelije (X, 5) & "" & Tablice ("Podaci"). Ćelije (X, 6) Tablica3.Range ("D11") = Tablice ("Podaci"). Ćelije (X, 7) Kraj ako je sljedeće X Kraj podv
Šifra Objašnjenje:- Prvo ćemo definirati varijable, a zatim smo definirali koji će redak biti zadnji red, a zatim smo definirali što će se i gdje tražiti ID agenta, a zatim kako će se raspon ažurirati za traženi ID agenta.
Sada ćemo dodijeliti ovu makronaredbu gumbu Traži.
- Desnom tipkom miša kliknite gumb
- Pritisnite Dodijeli makro
- Ovdje je naš predmet makroa Podaci o pretraživanju, kliknite na podatke pretraživanja, a zatim kliknite na U redu
Pokrenite makro:-
- Da biste pokrenuli makro, kliknite gumb Traži
- Ako će ID agenta biti tu, detalji će se ažurirati inače se detalji neće pojaviti
Za ispis dodijelite dolje spomenutu makro:-
- Umetnite gumb s kartice Developer> Insert> Button (kontrola obrasca)
- Napišite makronaredbu u isti model u kojem smo napisali makronaredbu za Searchdata, s nazivom predmeta Ispis
Sub PrintOut () List3.Range ("A1: D12"). PrintPreview Sheet3.Range ("A1: D12"). PrintOut End Sub
- Dodijelite makronaredbu gumbu kako smo dodijelili podacima za pretraživanje
Na taj način možemo pretraživati podatke, a zatim možemo ispisati tražene pojedinosti putem VBA u programu Microsoft Excel.
Ako vam se sviđaju naši blogovi, podijelite ih sa svojim prijateljima na Facebooku. Također nas možete pratiti na Twitteru i Facebooku.
Voljeli bismo čuti vaše mišljenje, javite nam kako možemo poboljšati, nadopuniti ili inovirati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte