Število vrstic VBA - Kako prešteti število uporabljenih vrstic v VBA?

Število vrstic v programu Excel VBA

Pri programiranju VBA je najpomembnejše tudi sklicevanje na vrstice, štetje vrstic pa je ena od stvari, ki se jih morate zavedati pri kodiranju VBA. Veliko vrednosti lahko dobimo, če razumemo pomen štetja vrstic, ki imajo podatke na delovnem listu. V tem članku vam bomo pokazali, kako šteti vrstice z uporabo kodiranja VBA.

Kako šteti vrstice v VBA?

Primer # 1

Za štetje vrstic moramo uporabiti objekt RANGE, v tem objektu moramo uporabiti objekt ROWS, v tem pa moramo uporabiti lastnost COUNT.

Na primer, v Excelu si oglejte spodnje podatke.

Iz zgornjih podatkov moramo ugotoviti, koliko vrstic je od obsega A1 do A8. Torej najprej definirajte spremenljivko kot celo število, da shranite število vrstic.

Koda:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer End Sub

Za to spremenljivko bomo dodelili številke vrstic, zato vnesite ime spremenljivke in izpišite znak enakosti.

Koda:

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

Zagotoviti moramo vrsto celic, zato odprite RANGE objekt in ponudite obseg kot »A1: A8«. Koda:

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

Ko je obseg dobavljen, moramo prešteti število vrstic, zato izberite lastnost ROWS predmeta RANGE.

V lastnosti ROWS predmeta RANGE štejemo število vrstic, zato izberite lastnost »COUNT« zdaj.

Zdaj v okencu za sporočila pokažite vrednost spremenljivke.

Koda:

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

Zdaj zaženite kodo in si oglejte število vrstic dobavljenega obsega celic.

Ok, za obseg je na voljo 8 vrstic, zato je v polju za sporočila 8 vrstic.

2. primer

Imamo tudi druge načine štetja vrstic, za zgornjo metodo moramo navesti obseg celic in v celicah tega obsega prikazuje število izbranih vrstic.

Toda predstavljajte si scenarij, v katerem moramo najti zadnji uporabljeni kateri koli stolpec, na primer vzeti enake podatke, kot je prikazano zgoraj.

Če se iz celice A1 premaknemo na zadnjo uporabljeno celico, pritisnemo bližnjično tipko excel »Ctrl + puščica dol« , da vas popelje do zadnje celice pred prazno celico.

Najprej podajte celico kot A1 z uporabo predmeta RANGE.

Koda:

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

Iz te celice se moramo pomakniti navzdol in na delovnem listu uporabimo Ctrl + puščica dol, v VBA pa lastnost END, izberite to lastnost in odprite oklepaj, da si ogledate možnosti.

Poglejte tja s tipko END, kjer lahko vidimo vse puščične tipke, kot so "xlDown, xlToLeft, xlToRight in xlUp", saj se moramo pomakniti navzdol z uporabo možnosti "xlDown".

Koda:

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

To vas bo pripeljalo do zadnje celice pred kakršnim koli odmorom, zdaj v aktivni celici potrebujemo številko vrstice, zato uporabite lastnost ROW.

Koda:

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, končano. Zdaj bo to prikazalo zadnjo številko vrstice, to pa bo štetje števila vrstic.

Torej v vrsticah imamo podatke.

Primer # 3 - Poiščite zadnjo uporabljeno vrstico

Iskanje zadnje uporabljene vrstice je tako pomembno, da se odločimo, kolikokrat se mora zanka zagnati, in tudi pri zgornji metodi se zadnja vrstica ustavi, da izbere, ali obstaja kakšna celica z mejno točko, zato lahko v tej metodi poiščemo zadnjo uporabljeno vrstico brez kakršne koli težave.

Odprite lastnost CELL.

Koda:

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

Zdaj moramo za začetek omeniti številko vrstice. Tukaj je težava, ker nismo prepričani, koliko vrstic podatkov imamo, zato lahko takoj pojdemo v zadnjo vrstico delovnega lista, za to omembo ROWS .COUNT lastnost.

Koda:

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

Nato moramo omeniti, v katerem stolpcu najdemo zadnjo uporabljeno vrstico, zato v tem primeru najdemo v prvem stolpcu, zato omenite 1.

Koda:

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

V tem trenutku vas bo pripeljal do zadnje celice prvega stolpca, od tam naprej pa se moramo premakniti navzgor, da gremo do zadnje uporabljene celice, zato uporabite lastnost End (xlUp).

Koda:

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

Torej, to vas bo pripeljalo do zadnje uporabljene celice stolpca 1 in v tej celici potrebujemo številko vrstice, zato za pridobitev številke vrstice uporabite lastnost ROW.

Koda:

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

Stvari, ki si jih je treba zapomniti

  • COUNT bo na delovnem listu dal število vrstic.
  • Če imate obseg, bo prikazal vrsto vrstic, izbranih v obsegu.
  • Lastnost ROW vrne številko aktivne vrstice celice.

Zanimive Članki...