Počet riadkov VBA - Ako spočítať počet použitých riadkov vo VBA?

Počet riadkov VBA v programe Excel

Pri programovaní VBA je najdôležitejšie odkazovať na riadky a počítanie riadkov je jednou z vecí, ktoré si musíte uvedomiť, pokiaľ ide o kódovanie VBA. Existuje veľa hodnoty, ktorú môžeme získať, ak pochopíme dôležitosť počítania riadkov, ktoré majú údaje v hárku. V tomto článku si ukážeme, ako počítať riadky pomocou kódovania VBA.

Ako počítať riadky vo VBA?

Príklad č

Na počítanie riadkov je potrebné použiť objekt RANGE, v tomto objekte musíme použiť objekt ROWS a v tomto prípade musíme použiť vlastnosť COUNT.

Napríklad sa pozrite na nasledujúce údaje v programe Excel.

Z vyššie uvedených údajov musíme zistiť, koľko riadkov je v rozmedzí od A1 do A8. Najprv teda definujte premennú ako celé číslo, aby ste uložili počet riadkov.

Kód:

Sub Count_Rows_Example1 () Dim No_Of_Rows ako celočíselný koncový sub

Pre túto premennú priradíme čísla riadkov, takže zadajte názov premennej a znamienko rovnosti.

Kód:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = End Sub

Musíme poskytnúť celý rad buniek, takže otvorte objekt RANGE a zadajte rozsah ako „A1: A8“. Kód:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1: A8") End Sub

Po zadaní rozsahu musíme spočítať počet riadkov, preto zvoľte vlastnosť ROWS objektu RANGE.

Vo vlastnosti ROWS objektu RANGE počítame niekoľko riadkov, takže teraz zvoľte vlastnosť „COUNT“.

Teraz v okne správy ukážte hodnotu premennej.

Kód:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1: A8"). Rows.Count MsgBox No_Of_Rows End Sub

Teraz spustite kód a pozrite si počet riadkov dodaného rozsahu buniek.

Dobre, pre rozsah je zadaných 8 riadkov, takže počet riadkov je 8 v okne správy.

Príklad č

Máme aj iné spôsoby počítania riadkov, pre vyššie uvedenú metódu musíme dodať rozsah buniek a v tomto rozsahu buniek zobrazuje počet vybratých riadkov.

Ale predstavte si scenár, keď potrebujeme nájsť posledné použité ktoréhokoľvek stĺpca, napríklad vziať rovnaké údaje, ako sú uvedené vyššie.

Ak sa chcete presunúť z bunky A1 do poslednej použitej bunky, stlačte klávesovú skratku programu Excel „Ctrl + šípka nadol“ , čím sa dostanete do poslednej bunky pred prázdnou bunkou.

Najskôr dodajte bunku ako A1 pomocou objektu RANGE.

Kód:

Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1") MsgBox No_Of_Rows End Sub

Z tejto bunky sa musíme posunúť nadol a v pracovnom hárku použijeme Ctrl + šípka nadol, ale vo VBA použijeme vlastnosť END, zvolíme túto vlastnosť a otvoríme zátvorku, aby sme videli možnosti.

Ak sa tam pozriete s klávesom END, vidíme všetky klávesy so šípkami ako „xlDown, xlToLeft, xlToRight a xlUp“, pretože je potrebné sa presunúť nadol pomocou možnosti „xlDown“.

Kód:

Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1"). End (xlDown) MsgBox No_Of_Rows End Sub

Týmto sa dostanete do poslednej bunky pred každou prestávkou, teraz v aktívnej bunke potrebujeme číslo riadku, takže použite vlastnosť ROW.

Kód:

Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1"). End (xlDown) .Row MsgBox No_Of_Rows End Sub

OK, hotovo. Teraz sa zobrazí číslo posledného riadku, a to bude počet z počtu riadkov.

Takže v riadkoch máme údaje.

Príklad # 3 - Nájdite posledný použitý riadok

Nájdenie posledného použitého riadku je také dôležité, aby ste sa rozhodli, koľkokrát musí slučka bežať, a tiež vo vyššie uvedenej metóde sa posledný riadok zastaví, aby ste vybrali, či existuje nejaká bunka zarážky, takže v tejto metóde nájdeme posledný použitý riadok bez žiadne problémy.

Otvorte vlastníctvo CELL.

Kód:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (MsgBox No_Of_Rows End Sub

Teraz musíme spomenúť číslo riadku, ktorý tu máme začať, problémom je, že si nie sme istí, koľko riadkov údajov máme, takže čo môžeme urobiť, je ísť rovno do posledného riadku tabuľky, pre túto zmienku ROWS .COUNT vlastnosť.

Kód:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, MsgBox No_Of_Rows End Sub

Ďalej si musíme spomenúť, v ktorom stĺpci nájdeme posledný použitý riadok, takže v tomto prípade nájdeme v prvom stĺpci, takže uveďte 1.

Kód:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, 1) MsgBox No_Of_Rows End Sub

V tomto okamihu sa dostanete do poslednej bunky prvého stĺpca, odtiaľ sa ďalej musíme posúvať nahor, aby ste prešli na poslednú použitú bunku, takže použite vlastnosť End (xlUp).

Kód:

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

Takto sa dostanete do poslednej použitej bunky stĺpca 1 a v tejto bunke potrebujeme číslo riadku, takže na získanie čísla riadku použite vlastnosť ROW.

Kód:

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

Na čo treba pamätať

  • COUNT dá v hárku počet riadkov.
  • Ak máte rozsah, poskytne daný rad riadkov vybratých v rozsahu.
  • Vlastnosť ROW vráti číslo aktívneho riadku bunky.

Zaujímavé články...