Kako šteti vrstice z VBA v Excelu (5 pristopov)

Hugh West

16-10-2023 Makroji in Excel VBA
  • Deliti To
Hugh West

Danes vam bom pokazal, kako lahko štejete vrstice z VBA v Excelu iz katerega koli podatkovnega niza. Pokazal vam bom, kako lahko štejete vrstice iz določenega območja, iz izbranega območja, z ustrezanjem določenemu merilu, z ustrezanjem določeni vrednosti besedila in z izključitvijo praznih celic.

Prenesi delovni zvezek za prakso

Štetje vrstic z VBA.xlsm

5 metod za štetje vrstic z VBA v Excelu

Tu imamo nabor podatkov z imeni nekaterih učencev in njihovimi oznakami v angleščini na šoli z imenom Sunflower Kindergarten.

Danes je naš cilj prešteti skupno število vrstic z uporabo Koda VBA .

1. Uporaba kode VBA za štetje vrstic določenega območja

⧪ Korak 1:

➤ Pritisnite ALT+F11 na tipkovnici. Okno VBA se bo odprlo.

⧪ Korak 2:

➤ Pojdite na Vstavite v zavihku VBA okno.

➤ Med razpoložljivimi možnostmi izberite Modul .

I

⧪ Korak 3:

➤ Novo okno modula z imenom "Modul 1" se bo odprlo.

➤ Vstavite naslednje VBA koda v modulu.

Koda: 

 Sub Count_Rows() Dim rng As Range Set rng = Range("B4:C13") MsgBox rng.Rows.Count End Sub

Opombe:

  • Ta koda ustvari Makro . Count_Rows .
  • Spletna stran 3. vrstica kode vsebuje določeno območje " B4:C13″. Želim prešteti število vrstic v tem območju.
  • Uporabite svojo.

⧪ 4. korak:

➤ Delovni zvezek shranite kot Delovni zvezek Excel s podporo za makre .

⧪ 5. korak:

➤ Vrnite se na delovni list in pritisnite ALT+F8 na tipkovnici.

➤ Pogovorno okno z imenom Makro se bo odprla. Izberite Count_Rows ( Ime Makro) in kliknite na Spustite .

⧪ Korak 6:

➤ V majhnem sporočilnem oknu se prikaže število vseh vrstic ( 10 v tem primeru).

➤ Kliknite . V REDU za izhod.

Preberite več: Excel VBA za štetje vrstic s podatki

2. Zaženite Excelovo kodo VBA za štetje vrstic v izbranem območju

Pri prejšnji metodi smo šteli število vrstic določenega območja ( B4:C13 ).

Lahko pa uporabimo tudi VBA kodo za štetje števila vrstic v poljubnem izbranem območju po naši želji.

Vsi koraki so enaki kot pri Metoda 1 ( Korak 1-6 ).

⧪ Pravkar v Korak 3 namesto prejšnje kode vstavite to kodo:

Koda: 

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

Opomba:

  • Ta koda ustvari modul z imenom Count_Selected_Rows .

⧪ In v Korak 5 Preden zaženete kodo, najprej izberite območje. Tukaj sem izbral celoten nabor podatkov (brez Naslovi stolpcev ).

⧪ Nato pritisnite ALT+F8 , izberite Count_Selected_Rows in kliknite na Spustite .

Prikazalo se bo okno s sporočilom, v katerem bo prikazano skupno število vrstic v izbranem območju ( 10 v tem primeru.)

3. Vstavite kodo VBA za štetje vrstic z merili v Excelu

Uporabimo lahko tudi VBA koda za štetje skupnega števila vrstic, ki izpolnjujejo določeno merilo.

Ustvarimo na primer Makro ki bo štel število učencev, ki so dobili manj kot 40 točk.

Koraki so prav tako vsi enaki kot Metoda 1 ( Korak 1-6 ).

⧪ Pravkar v Korak 3 , spremenite VBA kodo na to:

Koda: 

 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

Opomba:

  • Ta koda ustvari modul z imenom Count_Rows_with_Criteria .
  • V liniji 6 , smo uporabili "<40" ker je to merilo, ki ga uporabljamo. Spremenite ga glede na svoje potrebe.

⧪ In v Korak 5 , preden zaženete kodo, izberite obseg celic z merili. Tukaj sem izbral samo stolpec C ( C4:C13 ), ker je tam merilo.

⧪ Nato pritisnite ALT+F8 , izberite Count_Rows_with_Criteria in kliknite na Spustite .

V sporočilnem oknu se prikaže skupno število vrstic, ki izpolnjujejo vaše merilo ( 3 v tem primeru.)

Podobna branja

  • Excel štetje vidnih vrstic (formula in koda VBA)
  • Kako Excel šteje vrstice z vrednostjo (8 načinov)

4. Vgradnja kode VBA za štetje vrstic z določeno vrednostjo besedila

Uporabite lahko tudi VBA kodo za štetje števila vrstic, ki vsebujejo določeno besedilno vrednost.

Oglejte si ta novi niz podatkov.

Imamo Knjižni zapisi nekaj knjig iz knjigarne Martin Bookstore.

Ustvarimo Makro ki bo preštela število knjig z določenim besedilom iz tega nabora podatkov.

Koraki so prav tako vsi enaki kot Metoda 1 ( Korak 1-6 ).

⧪ Pravkar v Korak 3 , spremenite VBA kodo na to:

Koda: 

 Sub Count_Rows_with_Specific_Text() Dim Count As Integer Count = 0 Dim Text As String Text = InputBox("Vnesite vrednost besedila: ") 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

Opomba:

  • Ta koda ustvari modul z imenom Count_Rows_with_Specific_Text .

⧪ In v Korak 5 Preden zaženete kodo, izberite območje celic z besedilnimi vrednostmi. Tukaj sem izbral območje B4:B13 ( Ime knjig ).

⧪ Nato pritisnite ALT+F8 , izberite Count_Rows_with_Specific_Text in kliknite na Spustite .

⧪ An Vnosno polje se prikaže okno, v katerem morate vnesti določeno vrednost besedila, ki jo želite ujemati.

V tem primeru sem ga vnesel kot "zgodovina" .

Na koncu se prikaže okno s sporočilom, ki prikazuje skupno število vrstic, ki vsebujejo določeno besedilo ( 3 v tem primeru.)

Preberite več: Kako šteti vrstice z besedilom v programu Excel

5. Štetje vrstic s praznimi celicami z uporabo VBA v Excelu

Na koncu bomo razvili makro, ki bo preštel skupno število vrstic brez praznih celic iz podatkovnega niza.

Oglejte si ta novi niz podatkov.

Imamo Marks nekaterih kandidatov na zaposlitvenem testu podjetja APEX group.

Žal se nekateri kandidati niso mogli udeležiti testa, zato so namesto njihovih ocen prazna polja.

Razvijmo makro, ki bo preštel skupno število vrstic brez praznih celic.

To pomeni, koliko kandidatov se je udeležilo testa.

Vsi koraki so enaki kot pri Metoda 1 ( Korak 1-6 ).

⧪ Pravkar v Korak 3 , vnesite to VBA namesto prejšnje kode:

Koda: 

 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

Opomba:

  • Ta koda ustvari modul z imenom Count_Rows_with_Blank_Cells .

⧪ V Korak 5 Preden zaženete kodo, izberite območje celic s praznimi celicami. Tukaj sem izbral območje C4:C13 ( Oznake v sistemu Tes t).

⧪ Nato pritisnite ALT+F8 , izberite Count_Rows_with_Blank_Cells in kliknite na Spustite .

V sporočilnem oknu se prikaže skupno število vrstic brez praznih celic ( 7 v tem primeru.)

Zaključek

S temi metodami lahko štejete vrstice z VBA iz niza podatkov v Excelu, ki ustrezajo različnim pogojem. Imate težave? Vprašajte nas.

Prejšnja objava Kako uporabiti COUNTIF za datumsko območje v Excelu (6 primernih pristopov)
Naslednja objava Kako uporabiti formulo INDEX MATCH v Excelu (9 primerov)

Hugh West je zelo izkušen trener Excela in analitik z več kot 10-letnimi izkušnjami v industriji. Po izobrazbi je diplomirani računovodstvo in finance ter magisterij poslovne administracije. Hugh ima strast do poučevanja in je razvil edinstven pristop k poučevanju, ki ga je enostavno slediti in razumeti. Njegovo strokovno znanje o Excelu je pomagalo na tisoče študentom in strokovnjakom po vsem svetu, da so izboljšali svoje sposobnosti in se izkazali v karieri. Prek svojega bloga Hugh deli svoje znanje s svetom, ponuja brezplačne vadnice za Excel in spletno usposabljanje, ki posameznikom in podjetjem pomaga doseči njihov polni potencial.