Rijen tellen met VBA in Excel (5 manieren)

Hugh West

16-10-2023 Macro's & Excel VBA
  • Deel Dit
Hugh West

Vandaag laat ik je zien hoe je rijen kunt tellen met VBA Ik laat u zien hoe u rijen kunt tellen uit een specifiek bereik, uit een geselecteerd bereik, door te voldoen aan een specifiek criterium, door te voldoen aan een specifieke tekstwaarde en door de lege cellen uit te sluiten.

Download Praktijk Werkboek

Rijen tellen met VBA.xlsm

5 Methoden om rijen te tellen met VBA in Excel

Hier hebben we een dataset met de namen van enkele leerlingen en hun cijfers in het Engels op een school genaamd Sunflower Kindergarten.

Vandaag is ons doel het totale aantal rijen te tellen met behulp van een VBA-code .

1. VBA-code gebruiken om rijen van een specifiek bereik te tellen

⧪ Stap 1:

➤ Druk op ALT+F11 op uw toetsenbord. De VBA-venster gaat open.

⧪ Stap 2:

➤ Ga naar de Plaats tabblad in de VBA raam.

➤ Selecteer uit de beschikbare opties Module .

I

⧪ Stap 3:

➤ Een nieuw modulevenster genaamd "Module 1" gaat open.

➤ Voeg het volgende in VBA code in de module.

Code: 

 Sub Aantal rijen() Dim rng Als Bereik Stel rng = Bereik("B4:C13") MsgBox rng.Rows.Count Einde Sub

Opmerkingen:

  • Deze code produceert een Macro genaamd Aantal rijen .
  • De 3e regel van de code bevat het opgegeven bereik " B4:C13″. Ik wil het aantal rijen in dit bereik tellen.
  • Je gebruikt die van jou.

⧪ Stap 4:

➤ Sla de werkmap op als Excel werkmap met macro's .

⧪ Stap 5:

➤ Keer terug naar uw werkblad en druk op ALT+F8 op je toetsenbord.

➤ Een dialoogvenster genaamd Macro wordt geopend. Selecteer Count_Rows ( De naam van de Macro) en klik op Ren .

⧪ Stap 6:

➤ U vindt een klein berichtvenster met het aantal totale rijen ( 10 in dit geval).

➤ Klik op OK om af te sluiten.

Lees meer: Excel VBA om rijen met gegevens te tellen

2. Excel VBA-code uitvoeren om rijen van een geselecteerd bereik te tellen

Bij de vorige methode telden wij het aantal rijen van een bepaald bereik ( B4:C13 ).

Maar we kunnen ook een VBA code om het aantal rijen in een geselecteerd bereik te tellen volgens onze wens.

De stappen zijn allemaal hetzelfde als Methode 1 ( Stap 1-6 ).

⧪ Net binnen Stap 3 voeg in plaats van de vorige code deze code in:

Code: 

 Sub Count_Selected_Rows() Dim rng As Range Set rng = Selection MsgBox rng.Rows.Count End Sub

Let op:

  • Deze code maakt een module genaamd Count_Selected_Rows .

⧪ En in Stap 5 Selecteer eerst een bereik voordat u de code uitvoert. Hier heb ik mijn hele gegevensverzameling geselecteerd (zonder de Kolomkoppen ).

⧪ Druk dan op ALT+F8 kies Count_Selected_Rows en klik op Ren .

U krijgt een berichtvenster met het totale aantal rijen in het door u geselecteerde bereik ( 10 in dit geval.)

3. VBA-code invoegen om rijen met criteria te tellen in Excel

We kunnen ook een VBA code om het totale aantal rijen te tellen die aan een bepaald criterium voldoen.

Laten we bijvoorbeeld een Macro die het aantal studenten telt die minder dan 40 punten haalden.

De stappen zijn ook allemaal hetzelfde als Methode 1 ( Stap 1-6 ).

⧪ Net binnen Stap 3 verander de VBA code naar dit:

Code: 

 Sub Count_Rows_with_Criteria() Dim Count As Integer Count = 0 For i = 1 To Selection.Rows.Count If Selection.Cells(i, 1) <40 Then Count = Count + 1 End If Next i MsgBox Count End Sub

Let op:

  • Deze code maakt een module genaamd Aantal rijen met criteria .
  • In lijn 6 gebruikten we "<40" omdat dit het criterium is dat we gebruiken. Je verandert het naar behoefte.

⧪ En in Stap 5 voordat u de code uitvoert, selecteert u het cellenbereik met de criteria. Hier heb ik alleen de kolom geselecteerd C ( C4:C13 ) omdat het criterium daar ligt.

⧪ Druk dan op ALT+F8 kies Aantal rijen met criteria en klik op Ren .

U krijgt een berichtvenster met het totale aantal rijen dat aan uw criterium voldoet ( 3 in dit geval.)

Vergelijkbare lezingen

  • Excel Zichtbare rijen tellen (Formule en VBA-code)
  • Hoe Excel rijen met waarde telt (8 manieren)

4. VBA-code insluiten om rijen met een specifieke tekstwaarde te tellen

U kunt ook een VBA code om het aantal rijen te tellen die een specifieke tekstwaarde bevatten.

Kijk naar deze nieuwe gegevens.

We hebben de Boekrecords van enkele boeken van een boekhandel genaamd Martin Bookstore.

Laten we een Macro die het aantal boeken met een specifieke tekst uit deze gegevensverzameling telt.

De stappen zijn ook allemaal hetzelfde als Methode 1 ( Stap 1-6 ).

⧪ Net binnen Stap 3 verander de VBA code naar dit:

Code: 

 Sub Count_Rows_with_Specific_Text() Dim Count As Integer Count = 0 Dim Text As String Text = InputBox("Voer de tekstwaarde in: ") LText = LCase(Text) For i = 1 To Selection.Rows.Count Words = Split(Selection.Cells(i, 1)) For Each j In Words LWord = LCase(j) If LText = LWord Then Count = Count + 1 End If Next j Next i MsgBox Count End Sub

Let op:

  • Deze code maakt een module genaamd Aantal_rijen_met_specifieke_tekst .

⧪ En in Stap 5 Selecteer, voordat u de code uitvoert, het cellenbereik met de tekstwaarden. Hier heb ik het bereik geselecteerd B4:B13 ( Naam van de boeken ).

⧪ Druk dan op ALT+F8 kies Aantal_rijen_met_specifieke_tekst en klik op Ren .

⧪ An Invoervak verschijnt, waarin u wordt gevraagd de specifieke tekstwaarde in te voeren waarmee u wilt overeenkomen.

Voor dit voorbeeld heb ik het ingevoerd als "geschiedenis" .

Tenslotte krijgt u een berichtvenster met het totale aantal rijen die de specifieke tekst bevatten ( 3 in dit geval.)

Lees meer: Rijen tellen met tekst in Excel

5. Rijen met lege cellen tellen met VBA in Excel

Tenslotte zullen we een Macro ontwikkelen die het totale aantal rijen telt exclusief de lege cellen van een gegevensverzameling.

Kijk naar deze nieuwe gegevens.

We hebben de Marks van sommige kandidaten in een wervingstest van een bedrijf genaamd APEX groep.

Maar helaas konden sommige kandidaten niet op de test verschijnen en zijn er blanco cellen in plaats van hun cijfers.

Laten we een Macro ontwikkelen die het totale aantal rijen telt exclusief de lege cellen.

Dat wil zeggen, hoeveel kandidaten hebben deelgenomen aan de test.

De stappen zijn allemaal hetzelfde als Methode 1 ( Stap 1-6 ).

⧪ Net binnen Stap 3 voer dit in VBA code in plaats van de vorige:

Code: 

 Sub Count_Rows_with_Blank_Cells() Dim Count As Integer Count = 0 For i = 1 To Selection.Rows.Count If Selection.Cells(i, 1) "" Then Count = Count + 1 End If Next i MsgBox Count End Sub

Let op:

  • Deze code maakt een module genaamd Aantal rijen met lege cellen .

⧪ In Stap 5 Voordat u de code uitvoert, selecteert u het cellenbereik met de lege cellen. Hier heb ik het bereik geselecteerd C4:C13 ( Markeringen in de Tes t).

⧪ Druk dan op ALT+F8 kies Aantal rijen met lege cellen en klik op Ren .

U krijgt een berichtvenster met het totale aantal rijen exclusief de lege cellen ( 7 in dit geval.)

Conclusie

Met deze methoden kunt u rijen tellen met VBA uit een dataset in Excel die aan verschillende voorwaarden voldoet. Heb je problemen? Vraag het ons gerust.

Vorige post Hoe COUNTIF gebruiken voor datumbereik in Excel (6 geschikte benaderingen)
Volgende bericht Hoe te gebruiken INDEX MATCH formule in Excel (9 voorbeelden)

Hugh West is een zeer ervaren Excel-trainer en -analist met meer dan 10 jaar ervaring in de branche. Hij heeft een bachelor in Accounting en Finance en een master in Business Administration. Hugh heeft een passie voor lesgeven en heeft een unieke lesaanpak ontwikkeld die gemakkelijk te volgen en te begrijpen is. Zijn deskundige kennis van Excel heeft duizenden studenten en professionals over de hele wereld geholpen hun vaardigheden te verbeteren en uit te blinken in hun carrière. Via zijn blog deelt Hugh zijn kennis met de wereld en biedt hij gratis Excel-tutorials en online trainingen aan om individuen en bedrijven te helpen hun volledige potentieel te bereiken.