VBA Row Count - Hoe het aantal gebruikte rijen in VBA tellen?

Inhoudsopgave

Excel VBA-aantal rijen

Bij VBA-programmering is het verwijzen naar rijen ook het belangrijkst en het tellen van rijen is een van de dingen waar u op moet letten als het gaat om VBA-codering. Er is veel waarde die we kunnen krijgen als we het belang kunnen begrijpen van het tellen van rijen met gegevens in het werkblad. In dit artikel laten we u zien hoe u rijen kunt tellen met VBA-codering.

Hoe rijen in VBA te tellen?

Voorbeeld 1

Om rijen te tellen, moeten we gebruik maken van het RANGE-object, in dit object moeten we het ROWS-object gebruiken, en hierin moeten we COUNT-eigenschap gebruiken.

Bekijk bijvoorbeeld de onderstaande gegevens in Excel.

Aan de hand van de bovenstaande gegevens moeten we bepalen hoeveel rijen er zijn uit het bereik A1 tot A8. Definieer dus eerst de variabele als geheel getal om het aantal rijen op te slaan.

Code:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer End Sub

Voor deze variabele zullen we rijnummers toewijzen, dus voer de variabelenaam en het gelijkteken in.

Code:

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

We moeten een reeks cellen leveren, dus open het object RANGE en geef het bereik op als "A1: A8". Code:

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

Zodra het bereik is opgegeven, moeten we het aantal rijen tellen, dus kies ROWS-eigenschap van RANGE-object.

In de eigenschap ROWS van het RANGE-object tellen we een aantal rijen, dus kies nu de eigenschap "COUNT".

Toon nu in het berichtvenster de waarde van de variabele.

Code:

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

Voer nu de code uit en bekijk het aantal rijen met geleverde cellen.

Ok, er zijn 8 rijen geleverd voor het bereik, dus het aantal rijen is 8 in het berichtvenster.

Voorbeeld 2

We hebben ook andere manieren om rijen te tellen, voor de bovenstaande methode moeten we een reeks cellen opgeven, en in deze reeks cellen wordt het aantal geselecteerde rijen weergegeven.

Maar stel je het scenario voor waarin we de laatst gebruikte van een kolom moeten vinden, neem bijvoorbeeld dezelfde gegevens als hierboven.

Om vanuit cel A1 naar de laatst gebruikte cel te gaan, drukken we op de sneltoets Excel-toets "Ctrl + Pijl-omlaag" , zodat u naar de laatste cel vóór de lege cel gaat.

Geef eerst de cel op als A1 met behulp van het RANGE-object.

Code:

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

Vanuit deze cel moeten we naar beneden gaan en in het werkblad gebruiken we Ctrl + Pijl-omlaag, maar in VBA gebruiken we de eigenschap END, kies deze eigenschap en open haakjes om opties te zien.

Kijk daar met de END-toets, we kunnen alle pijltjestoetsen zien zoals "xlDown, xlToLeft, xlToRight en xlUp", aangezien we naar beneden moeten gaan met de "xlDown" -optie.

Code:

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

Dit brengt je naar de laatste cel vóór een pauze, nu hebben we in de actieve cel het rijnummer nodig, dus gebruik de eigenschap RIJ.

Code:

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

Oke, klaar. Dit toont nu het laatste rijnummer, en dat is het aantal rijen.

Dus in rijen hebben we gegevens.

Voorbeeld # 3 - Zoek laatst gebruikte rij

Het vinden van de laatst gebruikte rij is zo belangrijk om te beslissen hoe vaak de lus moet worden uitgevoerd en ook in de bovenstaande methode stopt de laatste rij om te selecteren of er een breekpuntcel is, dus in deze methode kunnen we de laatst gebruikte rij vinden zonder enige problemen.

Open de eigenschap CELL.

Code:

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

Nu moeten we het rijnummer vermelden om mee te beginnen, het probleem hier is dat we niet zeker weten hoeveel rijen met gegevens we hebben, dus wat we kunnen doen is dat we meteen naar de laatste rij van het werkblad gaan, voor deze vermelding RIJEN .COUNT eigenschap.

Code:

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

Vervolgens moeten we vermelden in welke kolom we de laatst gebruikte rij vinden, dus in dit geval vinden we in de eerste kolom, dus noem 1.

Code:

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

Op dit moment gaat het naar de laatste cel van de eerste kolom, vanaf daar moeten we omhoog gaan om naar de laatst gebruikte cel te gaan, dus gebruik de eigenschap End (xlUp).

Code:

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

Dit brengt je dus naar de laatst gebruikte cel van kolom 1, en in deze cel hebben we het rijnummer nodig, dus gebruik de eigenschap ROW om het rijnummer te krijgen.

Code:

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

Dingen om te onthouden

  • COUNT geeft een aantal rijen in het werkblad.
  • Als u een bereik heeft, krijgt u een aantal rijen geselecteerd in het bereik.
  • ROW-eigenschap retourneert het rijnummer van de actieve cel.

Interessante artikelen...