Počet řádků VBA - Jak spočítat počet použitých řádků ve VBA?

Počet řádků VBA aplikace Excel

V programování VBA je také nejdůležitější odkaz na řádky a počítání řádků je jednou z věcí, které si musíte být vědomi, pokud jde o kódování VBA. Existuje mnoho hodnot, které můžeme získat, pokud pochopíme důležitost počítání řádků, které mají data v listu. V tomto článku vám ukážeme, jak počítat řádky pomocí kódování VBA.

Jak počítat řádky ve VBA?

Příklad č. 1

Chcete-li počítat řádky, musíme využít objekt RANGE, v tomto objektu musíme použít objekt ROWS a v tomto musíme použít vlastnost COUNT.

Podívejte se například na níže uvedená data v aplikaci Excel.

Z výše uvedených údajů musíme určit, kolik řádků je od rozsahu A1 do A8. Nejprve tedy definujte proměnnou jako celé číslo pro uložení počtu řádků.

Kód:

Sub Count_Rows_Example1 () Dim No_Of_Rows jako celé číslo End Sub

Pro tuto proměnnou přiřadíme čísla řádků, takže zadejte název proměnné a znaménko rovná se.

Kód:

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

Musíme poskytnout řadu buněk, proto otevřete objekt RANGE a zadejte rozsah jako „A1: A8“. Kód:

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

Jakmile je zadán rozsah, musíme spočítat počet řádků, proto zvolte vlastnost ROWS objektu RANGE.

Ve vlastnosti ROWS objektu RANGE počítáme několik řádků, proto nyní vyberte vlastnost „COUNT“.

Nyní v okně se zprávou zobrazte hodnotu proměnné.

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

Nyní spusťte kód a podívejte se na počet řádků zadaného rozsahu buněk.

Dobře, pro rozsah je zadáno 8 řádků, takže počet řádků je 8 v okně se zprávou.

Příklad č. 2

Máme i jiné způsoby počítání řádků, pro výše uvedenou metodu musíme zadat rozsah buněk a v tomto rozsahu buněk se zobrazí počet vybraných řádků.

Představte si ale scénář, kdy musíme najít poslední použitý sloupec, například vzít stejná data, jak je vidět výše.

Chcete-li přejít na poslední použitou buňku z buňky A1, stiskneme klávesovou zkratku aplikace Excel „Ctrl + šipka dolů“ , takže se dostanete do poslední buňky před prázdnou buňkou.

Nejprve zadejte buňku jako A1 pomocí objektu RANGE.

Kód:

Sub Count_Rows_Example2 () Dim No_Of_Rows jako celé číslo No_Of_Rows = Range ("A1") MsgBox No_Of_Rows End Sub

Z této buňky se musíme přesunout dolů a v listu použijeme Ctrl + šipka dolů, ale ve VBA použijeme vlastnost KONEC, vybereme tuto vlastnost a otevřenou závorku zobrazíme možnosti.

Podívejte se tam pomocí klávesy END, kde vidíme všechny klávesy se šipkami jako „xlDown, xlToLeft, xlToRight a xlUp“, protože musíme přejít dolů, použijte možnost „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ím se dostanete do poslední buňky před jakoukoli přestávkou, nyní v aktivní buňce potřebujeme číslo řádku, takže použijte vlastnost ROW.

Kód:

Sub Count_Rows_Example2 () Dim No_Of_Rows jako celé číslo No_Of_Rows = Range ("A1"). End (xlDown) .Row MsgBox No_Of_Rows End Sub

Dobře, hotovo. Nyní se zobrazí číslo posledního řádku a bude to počet několika řádků.

Takže v řádcích máme data.

Příklad č. 3 - Najít poslední použitý řádek

Nalezení posledního použitého řádku je tak důležité rozhodnout, kolikrát musí smyčka běžet, a také ve výše uvedené metodě se poslední řádek zastaví, aby se vybralo, zda existuje nějaká buňka zarážky, takže v této metodě můžeme najít poslední použitý řádek bez nějaké problémy.

Otevřete vlastnost CELL.

Kód:

Sub Count_Rows_Example3 () Dim No_Of_Rows jako celé číslo No_Of_Rows = buňky (MsgBox No_Of_Rows End Sub

Nyní musíme zmínit číslo řádku, kterým je třeba začít, problém je v tom, že si nejsme jisti, kolik řádků dat máme, takže to, co můžeme udělat, je rovnou přejít na poslední řádek listu, pro tuto zmínku ŘÁDKY .COUNT vlastnost.

Kód:

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

Dále musíme zmínit, ve kterém sloupci nacházíme poslední použitý řádek, takže v tomto případě nacházíme v prvním sloupci, takže uveďte 1.

Kód:

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

V tuto chvíli vás zavede do poslední buňky prvního sloupce, odtud se musíme posunout nahoru a přejít na poslední použitou buňku, takže použijte vlastnost 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

Tím se dostanete do poslední použité buňky ve sloupci 1 a v této buňce potřebujeme číslo řádku, takže k získání čísla řádku použijte vlastnost 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

Věci k zapamatování

  • COUNT přidá v listu několik řádků.
  • Pokud máte rozsah, pak bude mít počet řádků vybraných v rozsahu.
  • Vlastnost ROW vrátí číslo aktivního řádku buňky.

Zajímavé články...