VBA sorszám - Hogyan lehet megszámolni a VBA használt sorainak számát?

Tartalomjegyzék

Excel VBA sorszám

A VBA programozásában a sorokra való hivatkozás is a legfontosabb, és a sorok számlálása az egyik olyan dolog, amellyel tisztában kell lennie a VBA kódolással kapcsolatban. Nagyon sok értéket kaphatunk, ha megértjük a munkalapon adatokkal rendelkező sorok számának fontosságát. Ebben a cikkben megmutatjuk, hogyan lehet számlálni a sorokat VBA kódolással.

Hogyan lehet megszámolni a sorokat a VBA-ban?

1. példa

A sorok számlálásához ki kell használnunk a RANGE objektumot, ebben az objektumban a ROWS objektumot kell használnunk, ebben pedig COUNT tulajdonságot kell használnunk.

Nézze meg például az alábbi adatokat az excelben.

A fenti adatok alapján meg kell határoznunk, hogy hány sor van az A1 és A8 tartományok között. Tehát először adja meg a változót egész számként a sorok számának tárolásához.

Kód:

Sub Count_Rows_Example1 () Dim No_Of_Rows, mint egész szám vége Sub

Ehhez a változóhoz sorszámokat rendelünk, ezért írja be a változó nevét, és írja ki az egyenlőségjelet.

Kód:

Sub Count_Rows_Example1 () Dim No_Of_Rows mint egész szám No_Of_Rows = End Sub

Meg kell adnunk egy cellatartományt, ezért nyissa meg a RANGE objektumot, és adja meg a tartományt „A1: A8” néven. Kód:

Alszám_Sorok_Példa1 () Dimenzió No_Of_Rows egész számként No_Of_Rows = Tartomány ("A1: A8") Vége Sub

Miután megadta a tartományt, meg kell számolnunk a sorok számát, ezért válassza a RANGE objektum ROWS tulajdonságát.

A RANGE objektum ROWS tulajdonságában számos sort számolunk, ezért válassza a „COUNT” tulajdonságot.

Most az üzenet mezőben mutassa meg a változó értékét.

Kód:

Sub Count_Rows_Example1 () Dim No_Of_Rows egész számként No_Of_Rows = Tartomány ("A1: A8"). Rows.Count MsgBox No_Of_Rows End Sub

Most futtassa a kódot, és nézze meg a szállított cellatartomány sorainak számát.

Ok, a sorhoz 8 sor tartozik, így a sorok száma 8 az üzenetmezőben.

2. példa

Más módjaink vannak a sorok számlálására is, a fenti módszerhez egy cellatartományt kell megadnunk, és ebben a tartományban a cellák mutatják a kiválasztott sorok számát.

De képzelje el azt a forgatókönyvet, ahol meg kell találnunk az oszlopok legutóbbi használatát, például ugyanazokat az adatokat vegyük fel, mint fent.

Az A1 cellából az utoljára használt cellához lépéshez nyomjuk meg a „Ctrl + Le nyíl” gyorsbillentyűt , így az az üres cellát megelőző utolsó cellába kerül.

Először adja meg a cellát A1-ként a RANGE objektum segítségével.

Kód:

Sub Count_Rows_Example2 () Dim No_Of_Rows egész számként No_Of_Rows = Tartomány ("A1") MsgBox No_Of_Rows End Sub

Ebből a cellából lefelé kell lépnünk, és a munkalapon a Ctrl + Le nyíl használatát használjuk, de a VBA-ban az END tulajdonságot használjuk, ezt a tulajdonságot választjuk, és a zárójelet megnyitva láthatjuk az opciókat.

Nézzen oda az END gombbal, és láthatjuk az összes nyílgombot, mint például: „xlDown, xlToLeft, xlToRight és xlUp”, mivel le kell lépnünk az „xlDown” opció használatával.

Kód:

Sub Count_Rows_Example2 () Dim No_Of_Rows egész számként No_Of_Rows = Tartomány ("A1"). Vége (xlDown) MsgBox No_Of_Rows End Sub

Ez a szünet előtti utolsó cellába visz, most az aktív cellában szükségünk van a sorszámra, ezért használja a ROW tulajdonságot.

Kód:

Sub Count_Rows_Example2 () Dim No_Of_Rows egész számként No_Of_Rows = Tartomány ("A1"). Vége (xlDown). Sor MsgBox No_Of_Rows End Sub

Rendben kész. Ez megmutatja az utolsó sorszámot, és ez lesz a sorok száma.

Tehát sorokban vannak adatok.

3. példa - Keresse meg az utoljára használt sort

Az utoljára használt sor megkeresése olyan fontos annak eldöntéséhez, hogy hányszor kell futtatni a hurkot, és a fenti módszerben az utolsó sor is megáll, hogy kiválassza, van-e töréspont cella, tehát ebben a módszerben az utoljára használt sort anélkül is megtalálhatjuk bármilyen probléma.

Nyissa meg a CELL tulajdonságot.

Kód:

Sub Count_Rows_Example3 () Dim No_Of_Rows egész számként No_Of_Rows = cellák (MsgBox No_Of_Rows End Sub

Először meg kell említenünk a sorszámot, a probléma az, hogy nem vagyunk biztosak abban, hogy hány adatsorunk van, ezért amit tehetünk, azonnal haladunk a munkalap utolsó sorához, ehhez a sorhoz .COUNT tulajdonság.

Kód:

Sub Count_Rows_Example3 () Dim No_Of_Rows egész számként No_Of_Rows = Cells (Rows.Count, MsgBox No_Of_Rows End Sub

Ezután meg kell említenünk, hogy melyik oszlopban találjuk meg az utoljára használt sort, tehát ebben az esetben az első oszlopban találjuk meg, ezért említsük meg az 1-et.

Kód:

Sub Count_Rows_Example3 () Dim No_Of_Rows egész számként No_Of_Rows = cellák (Rows.Count, 1) MsgBox No_Of_Rows End Sub

Ebben a pillanatban az első oszlop utolsó cellájába visz, onnantól kezdve felfelé kell lépnünk, hogy az utoljára használt cellába lépjünk, ezért használjuk az End (xlUp) tulajdonságot.

Kód:

Sub Count_Rows_Example3 () Dim No_Of_Rows egész számként No_Of_Rows = cellák (Rows.Count, 1). End (xlUp) MsgBox No_Of_Rows End Sub

Tehát ez az 1. oszlop legutóbb használt cellájába visz, és ebben a cellában szükségünk van a sorszámra, ezért a ROW tulajdonság használatával kapjuk meg a sorszámot.

Kód:

Sub Count_Rows_Example3 () Dim No_Of_Rows egész számként No_Of_Rows = cellák (Rows.Count, 1) .End (xlUp) .Row MsgBox No_Of_Rows End Sub

Dolgok, amikre emlékezni kell

  • A COUNT számos sort ad a munkalapon.
  • Ha van tartománya, akkor számos sort ad meg a tartományból.
  • A ROW tulajdonság visszaadja az aktív cellasorszámot.

érdekes cikkek...