Brojanje redova VBA - Kako izračunati broj korištenih redova u VBA?

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.

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.

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

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

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

Jednom kada je raspon dostavljen, moramo izbrojati broj redaka, pa odaberite svojstvo ROWS objekta RANGE.

U svojstvu ROWS objekta RANGE brojimo broj redaka, pa odaberite svojstvo "COUNT" sada.

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

Sada pokrenite kôd i pogledajte broj redaka isporučenog raspona ćelija.

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.

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

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.

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

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

U redu, gotovo. Sada će se prikazati broj zadnjeg retka, a to će biti broj određenog broja redaka.

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

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)

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

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

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

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.

Zanimljivi članci...