Brojeve redaka u Excelu možemo pronaći na mnogo načina, ali VBA nudi više značajki i prilagodbi. Pomoću kojeg možemo pronaći brojeve redaka na pametne načine. Danas će ovaj članak prikazati 4 korisne makronaredbe za pronalaženje broja retka u Excelu pomoću VBA.

Preuzmite radnu knjigu za vježbu

Ovdje možete preuzeti besplatnu radnu knjigu programa Excel i vježbajte samostalno.

4 makronaredbe za pronalaženje broja retka pomoću VBA u Excelu

Upoznajte se s našim skupom podataka koje ćemo koristiti za istraživanje metoda koje predstavljaju prodaju nekih prodavača u različitim regijama.

Makro 1: VBA za pronalaženje broja retka promjenom odabira

Prvo ćemo upotrijebiti makronaredbu u programu Excel VBA da bismo pronašli broj retka odabirom bilo koje ćelije. To znači da ako samo odaberete bilo koju korištenu ćeliju, makronaredba će odmah prikazati broj retka. Za to ćete morati čuvati kodove na listu , a ne u modulu.

Koraci:

• U redu- kliknite na naslov lista i odaberite Prikaz koda iz kontekstualnog izbornika .

• Zatim napišite sljedeći kodovi-

9590

• Kasnije, nema potrebe pokretati kodove, samo se vratite na svoj list.

Raščlamba koda:

• Prvo sam stvorio Private Sub proceduru – Worksheet_SelectionChange .
• Zatim deklarira varijablu Rbroj kao Cijeli broj .
• row će odrediti broj retka aktivne ćelije.
• Sljedeće, naredba If će provjeriti aktivnu ćeliju bez obzira je li prazna ili ne, a zatim će MsgBox prikazati izlaz.

• Sada samo kliknite na bilo koju korištenu ćeliju i pokazat će vam red broj.

Pročitajte više: Excel VBA: Pronađite niz u stupcu i vratite broj retka

Makronaredba 2: Pronađite broj retka aktivne ćelije pomoću VBA

Ova makronaredba će vratiti broj retka aktivne ćelije u određenoj ćeliji našeg lista. Dakle, morat ćemo spomenuti naziv radnog lista i izlaznu ćeliju u našim kodovima. Ovdje ćemo koristiti ćeliju D14 kao našu izlaznu ćeliju.

Koraci:

• Pritisnite ALT + F11 za otvaranje VBA prozora .

• Dalje, kliknite na sljedeći način za umetanje novog modula: Umetni > Modul .

• Nakon toga unesite sljedeće kodove u modul-

3068

• Zatim se vratite na svoj list.

Raščlamba koda:

• Ovdje , Find_Row_Number_of_an_Active_Cell() je Sub
• wSheet je deklariran kao Worksheet
• Tada će izjava Set odabrati aktivnu ćeliju
• Raspon će vratiti broj retka u izlaznoj ćeliji.

• Sada odaberite ćeliju i kliknite na sljedeći način: Razvojni programer >Makronaredbe .

• Nakon što se pojavi u dijaloškom okviru Makro , samo odaberite naziv makronaredbe i pritisnite Pokreni .

Ubrzo nakon toga vidjet ćete da se broj retka odabrane ćelije vraća u našu izlaznu ćeliju.

Možete vidjeti da je ćelija B8 odabrana, tako da je 8 izlaz.

Pročitajte više: Kako dobiti broj retka trenutne ćelije u Excelu (4 brza načina)

Slična čitanja

• Kako povećati broj retka u Excel formula (6 praktičnih načina)
• Dohvaćanje broja retka iz raspona s Excel VBA (9 primjera)
• Kako vratiti broj retka Podudaranje ćelija u Excelu (7 metoda)
• Kako dobiti broj retka iz vrijednosti ćelije u Excelu (5 metoda)

Makro 3: VBA za pronalaženje broja retka podudaranjem vrijednosti

Ako želite pronaći broj retka traženjem vrijednosti, onda je ova makronaredba za vas. Morat ćete spomenuti vrijednost pretraživanja i broj stupca u kodovima kao što je prikazano na slici ispod.

Koraci:

• Slijedite prvi dva koraka od prethodne metode za umetanje novog modula.
• Zatim umetnite sljedeće kodove u njega-

1206

• Nakon toga vratite se na svoj list.

Raščlamba koda:

• Ovdje, Find_Row_Matching_a_Value() je Sub
• A wBook i wSheet su deklarirani kao Radni list i fCell je deklariran kao Raspon .
• wBook i wSheet su postavljeni za ActiveWorkbook i ActiveSheet .
• Const će uzeti unos za vrijednost pretraživanja.
• Kasnije, Raspon će pretraživati ​​vrijednost kroz spomenuti stupac.
• Dalje, naredbe If i Else pokazat će rezultat koristeći MsgBox .

• Kasnije, slijedite 5. korak iz prethodne metode da biste otvorili dijaloški okvir Makro .
• Odaberite naziv makronaredbe i samo pritisnite Pokreni .

Uskoro će vam okvir za obavijesti pokazati broj retka.

Pročitajte više: Excel VBA: Vrati broj reda vrijednosti (5 prikladnih metoda)

Makro 4: Gumb za traženje broja retka

U našoj posljednjoj metodi, pokazat ćemo vam najpametniju metodu za određivanje broja retka pomoću VBA makronaredbi. Napravit ćemo gumb i dodijelit ćemo mu makronaredbu. Kada kliknemo na gumb, otvorit će se okvir za unos u koji možemo unijeti traženu vrijednost za koju želimo broj retka. Prethodna makronaredba je mogla pretraživati ​​kroz spomenuti stupac, ali ova makronaredba može pretraživati ​​bilo koji stupac, bilo gdje na listu.

Koraci:

• Ponovo slijedite prva dva koraka iz druge metode za umetanje novog modula.
• Zatim umetnite sljedeće kodove u njega-

8827

• Zatim se vratite na tvojelist.

Raščlamba koda:

• Prvo sam stvorio Sub procedura Find_Row_Number().
• Zatim su deklarirane dvije varijable, mValue kao String i row kao Range .
• Zatim je korišten InputBox za umetanje vrijednosti.
• Kasnije, naredba Set i If pronaći će broj retka ako nije prazan.
• Konačno, MsgBox će prikazati izlaz.

• Kasnije kliknite Programer > Umetni , a zatim odaberite naredbu Gumb iz odjeljka Kontrole obrasca .

• Zatim dobit ćete znak plus pomoću kursora, povucite bilo gdje klikom na svoj list u skladu sa željenom veličinom i zatim otpustite klik.

• Nakon otpuštanja miša automatski će se otvoriti dijaloški okvir Dodjela makronaredbe .
• Odaberite naziv makronaredbe kako je navedeno u kodovima.
• Zatim samo pritisnite OK .

• Dalje, desnom tipkom miša kliknite gumb i odaberite Uredi tekst za uređivanje naziva gumba.

• Upišite naziv gumba, zatim kliknite bilo gdje izvan gumba i naziv će se promijeniti.

• Sada kliknite na gumb, otvorit će se okvir za unos.
• Na kraju, samo umetnite vrijednost za pretraživanje i pritisnite OK .

Sada pogledajte, prikazuje se broj retka podudaranjavrijednost.

Pročitajte više: Pronađi niz u stupcu i vrati broj retka u Excelu (7 načina)

Zaključak

To je sve za članak. Nadam se da će gore opisani postupci biti dovoljno dobri za pronalaženje broja retka u Excelu pomoću VBA. Slobodno postavite bilo koje pitanje u odjeljku za komentare i dajte mi povratne informacije. Posjetite ExcelWIKI da istražite više.