Broj redaka VBA programa Excel
U VBA programiranju najvažnije je i pozivanje na retke, a brojanje redaka jedna je od stvari koje morate biti svjesni kada je riječ o VBA kodiranju. Puno vrijednosti možemo dobiti ako shvatimo važnost brojanja redaka koji sadrže podatke na radnom listu. U ovom ćemo vam članku pokazati kako brojati retke pomoću VBA kodiranja.
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba_.jpg.webp)
Kako brojati redove u VBA?
Primjer # 1
Da bismo brojali retke, trebamo upotrijebiti RANGE objekt, u ovom objektu moramo koristiti ROWS objekt, a u ovome trebamo koristiti COUNT svojstvo.
Na primjer, pogledajte dolje navedene podatke u Excelu.
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__2.jpg.webp)
Iz gornjih podataka moramo prepoznati koliko je redaka od raspona A1 do A8. Dakle, prvo definirajte varijablu kao cijeli broj za spremanje broja redaka.
Kodirati:
Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer End Sub
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__3.jpg.webp)
Za ovu ćemo varijablu dodijeliti brojeve redaka, pa unesite naziv varijable i izvucite znak jednakosti.
Kodirati:
Sub Count_Rows_Example1 () Dim No_Of_Rows as Integer No_Of_Rows = End Sub
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__4.jpg.webp)
Moramo osigurati niz ćelija, pa otvorite RANGE objekt i navedite raspon kao "A1: A8". Kodirati:
Sub Count_Rows_Example1 () Dim No_Of_Rows as Integer No_Of_Rows = Range ("A1: A8") End Sub
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__5.jpg.webp)
Jednom kada je raspon dostavljen, moramo izbrojati broj redaka, pa odaberite svojstvo ROWS objekta RANGE.
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__6.jpg.webp)
U svojstvu ROWS objekta RANGE brojimo broj redaka, pa odaberite svojstvo "COUNT" sada.
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__7.jpg.webp)
Sada u okviru za poruke pokažite vrijednost varijable.
Kodirati:
Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1: A8"). Rows.Count MsgBox No_Of_Rows End Sub
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__8.jpg.webp)
Sada pokrenite kôd i pogledajte broj redaka isporučenog raspona ćelija.
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__9.jpg.webp)
U redu, za raspon se isporučuje 8 redaka, tako da je broj redova 8 u okviru za poruke.
Primjer # 2
Imamo i druge načine brojanja redaka, za gornju metodu trebamo dostaviti niz ćelija, a u tim ćelijama raspona prikazuje broj odabranih redaka.
Ali zamislite scenarij u kojem trebamo pronaći zadnji upotrijebljeni bilo koji stupac, na primjer, uzeti iste podatke kao što je prikazano gore.
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__2.jpg.webp)
Da biste se premjestili iz posljednje korištene ćelije iz ćelije A1, pritisnite prečac excel tipku “Ctrl + strelica prema dolje” , tako da ćete se odvesti do zadnje ćelije prije prazne ćelije.
Prvo stavite ćeliju kao A1 pomoću objekta RANGE.
Kodirati:
Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1") MsgBox No_Of_Rows End Sub
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__10.jpg.webp)
Iz ove ćelije se moramo pomaknuti prema dolje, a na radnom listu koristimo Ctrl + strelica prema dolje, ali u VBA koristimo svojstvo END, odaberite ovo svojstvo i otvorite zagradu da biste vidjeli opcije.
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__11.jpg.webp)
Pogledajte tamo pomoću tipke END možemo vidjeti sve tipke sa strelicama poput "xlDown, xlToLeft, xlToRight i xlUp", jer se moramo pomaknuti prema dolje pomoću opcije "xlDown".
Kodirati:
Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1"). End (xlDown) MsgBox No_Of_Rows End Sub
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__12.jpg.webp)
To će vas odvesti do posljednje ćelije prije bilo kojeg odmora, sada u aktivnoj ćeliji trebamo broj retka, pa koristite svojstvo ROW.
Kodirati:
Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1"). End (xlDown) .Row MsgBox No_Of_Rows End Sub
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__13.jpg.webp)
U redu, gotovo. Sada će se prikazati broj zadnjeg retka, a to će biti broj određenog broja redaka.
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__14.jpg.webp)
Dakle, u redovima imamo podatke.
Primjer # 3 - Pronađi zadnji korišteni redak
Pronalaženje posljednjeg korištenog retka toliko je važno da se odluči koliko puta se petlja mora pokrenuti, a također se u gornjoj metodi zadnji redak zaustavlja da odabere postoji li ćelija točke prekida, tako da u ovoj metodi možemo pronaći zadnji korišteni redak bez ima li problema.
Otvorite svojstvo CELL.
Kodirati:
Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (MsgBox No_Of_Rows End Sub
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__15.jpg.webp)
Sada za početak moramo spomenuti broj retka, problem je u tome što nismo sigurni koliko redaka podataka imamo, pa ono što možemo učiniti je da odmah prijeđemo na zadnji redak radnog lista, za ovo spominjanje REDOVI .COUNT svojstvo.
Kodirati:
Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, MsgBox No_Of_Rows End Sub)
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__16.jpg.webp)
Dalje, moramo spomenuti u kojem stupcu nalazimo zadnji upotrijebljeni redak, pa u ovom slučaju nalazimo u prvom stupcu, pa spomenite 1.
Kodirati:
Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, 1) MsgBox No_Of_Rows End Sub
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__17.jpg.webp)
U ovom će vas trenutku odvesti do posljednje ćelije prvog stupca, od tamo nadalje moramo se pomicati prema gore da bismo prošli posljednju korištenu ćeliju, pa koristite svojstvo End (xlUp).
Kodirati:
Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, 1) .End (xlUp) MsgBox No_Of_Rows End Sub
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__18.jpg.webp)
Dakle, ovo će vas odvesti do posljednje korištene ćelije stupca 1, a u ovoj ćeliji trebamo broj retka, pa upotrijebite svojstvo ROW da biste dobili broj retka.
Kodirati:
Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, 1) .End (xlUp) .Row MsgBox No_Of_Rows End Sub
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__19.jpg.webp)
Stvari koje treba zapamtiti
- COUNT će dati broj redaka na radnom listu.
- Ako imate raspon, dat će niz redaka odabranih u rasponu.
- Svojstvo ROW vratit će broj aktivnog retka ćelije.