Kā saskaitīt rindas ar VBA programmā Excel (5 pieejas)

Hugh West

16-10-2023 Makroprogrammas & amp; Excel VBA
  • Dalīties Ar Šo
Hugh West

Šodien es jums parādīšu, kā var skaitīt rindas ar VBA Es jums parādīšu, kā var saskaitīt rindas no konkrēta diapazona, no atlasīta diapazona, pēc konkrēta kritērija atbilstības, pēc konkrētas teksta vērtības atbilstības un pēc tukšo šūnu izslēgšanas.

Lejupielādēt Practice Workbook

Rindiņu skaitīšana ar VBA.xlsm

5 metodes rindu skaitīšanai ar VBA programmā Excel

Šeit mums ir datu kopa ar dažu skolēnu vārdiem un viņu atzīmēm angļu valodā skolā ar nosaukumu Sunflower Kindergarten.

Šodien mūsu mērķis ir saskaitīt kopējo rindu skaitu, izmantojot VBA kods .

1. Izmantojiet VBA kodu, lai saskaitītu rindas noteiktā diapazonā

⧪ 1. solis:

➤ Spiediet ALT+F11 uz tastatūras. VBA logs tiks atvērts.

⧪ 2. solis:

➤ Dodieties uz Ievietot cilnē VBA logs.

➤ No pieejamajām opcijām izvēlieties Modulis .

I

⧪ 3. solis:

➤ Tiek atvērts jauns moduļa logs ar nosaukumu "1. modulis" tiks atvērts.

➤ Ievietojiet šādu tekstu VBA kods modulī.

Kods: 

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

Piezīmes:

  • Šis kods rada Makro ko sauc par Count_Rows .
  • Portāls 3. koda rindā ir norādīts diapazons " B4:C13″. Es gribu saskaitīt rindu skaitu šajā diapazonā.
  • Jūs izmantojat savu.

⧪ 4. solis:

➤ Saglabājiet darbgrāmatu kā Excel darbgrāmata ar makrodatoriem .

⧪ 5:

➤ Atgriezieties savā darblapā un nospiediet ALT+F8 uz tastatūras.

➤ Dialoglodziņš ar nosaukumu Makro tiks atvērts. Izvēlieties Count_Rows ( Nosaukums Makro) un noklikšķiniet uz Palaist .

⧪ 6. solis:

➤ Jūs atradīsiet nelielu ziņojuma logu, kurā norādīts kopējo rindu skaits ( 10 šajā gadījumā).

➤ Noklikšķiniet uz LABI lai izietu.

Lasīt vairāk: Excel VBA, lai saskaitītu rindas ar datiem

2. Palaist Excel VBA kodu, lai saskaitītu rindas izvēlētajā diapazonā

Izmantojot iepriekšējo metodi, tika saskaitīts konkrēta diapazona rindu skaits ( B4:C13 ).

Bet mēs varam izmantot arī VBA kodu, lai saskaitītu rindu skaitu jebkurā izvēlētajā diapazonā atbilstoši mūsu vēlmēm.

Visi soļi ir tādi paši kā 1. metode ( 1.-6. solis ).

⧪ Tieši tagad 3. solis iepriekšējā koda vietā ievietojiet šo kodu:

Kods: 

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

Piezīme:

  • Šis kods izveido moduli ar nosaukumu Count_Selected_Rows .

⧪ Un 5. solis pirms koda palaišanas vispirms izvēlieties diapazonu. Šeit es esmu izvēlējies visu datu kopu (Bez Kolonnu virsraksti ).

⧪ Pēc tam nospiediet ALT+F8 , izvēlieties Count_Selected_Rows un noklikšķiniet uz Palaist .

Parādīsies ziņojuma logs, kurā būs norādīts kopējais rindu skaits izvēlētajā diapazonā ( 10 šajā gadījumā.)

3. Ievietojiet VBA kodu, lai saskaitītu rindas ar kritērijiem programmā Excel

Mēs varam izmantot arī VBA kodu, lai saskaitītu kopējo to rindu skaitu, kas atbilst noteiktam kritērijam.

Piemēram, izveidosim Makro kas uzskaitīs to skolēnu skaitu, kuri ieguvuši mazāk par 40 ballēm.

Visi soļi ir tādi paši kā 1. metode ( 1.-6. solis ).

⧪ Tieši tagad 3. solis , mainīt VBA kodu uz šo:

Kods: 

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

Piezīme:

  • Šis kods izveido moduli ar nosaukumu Count_Rows_with_Criteria .
  • Saskaņā ar 6 , mēs izmantojām "<40" jo tas ir kritērijs, ko mēs izmantojam. Mainiet to atbilstoši savām vajadzībām.

⧪ Un 5. solis , pirms koda palaišanas atlasiet šūnu diapazonu ar kritērijiem. Šeit es esmu atlasījis tikai kolonnu. C ( C4:C13 ), jo kritērijs atrodas tur.

⧪ Pēc tam nospiediet ALT+F8 , izvēlieties Count_Rows_with_Criteria un noklikšķiniet uz Palaist .

Jums tiks parādīts ziņojuma logs, kurā būs redzams kopējais to rindu skaits, kas atbilst jūsu kritērijam ( 3 šajā gadījumā.)

Līdzīgi lasījumi

  • Excel redzamo rindu skaits (formula un VBA kods)
  • Kā Excel saskaitīt rindas ar vērtību (8 veidi)

4. VBA koda iestrādāšana, lai saskaitītu rindas ar noteiktu teksta vērtību

Varat izmantot arī VBA kodu, lai saskaitītu to rindu skaitu, kurās ir noteikta teksta vērtība.

Aplūkojiet šo jauno datu kopu.

Mums ir Grāmatu rekordi dažas grāmatas no grāmatnīcas ar nosaukumu Martin Bookstore.

Izveidosim Makro kas saskaitīs to grāmatu skaitu, kurās ir konkrēts teksts no šīs datu kopas.

Visi soļi ir tādi paši kā 1. metode ( 1.-6. solis ).

⧪ Tieši tagad 3. solis , mainīt VBA kodu uz šo:

Kods: 

 Sub Count_Rows_with_Specific_Text() Dim Count As Integer Count = 0 Dim Text As String Text = InputBox("Ievadiet teksta vērtību: ") 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

Piezīme:

  • Šis kods izveido moduli ar nosaukumu Count_Rows_with_Specific_Text .

⧪ Un 5. solis , pirms koda palaišanas atlasiet šūnu diapazonu ar teksta vērtībām. Šeit es esmu izvēlējies diapazonu. B4:B13 ( Grāmatu nosaukums ).

⧪ Pēc tam nospiediet ALT+F8 , izvēlieties Count_Rows_with_Specific_Text un noklikšķiniet uz Palaist .

⧪ An Ievades lodziņš tiks parādīta iespēja, kurā būs jāievada konkrēta teksta vērtība, kurai vēlaties veikt atbilstību.

Šajā piemērā es to ievadīju kā "vēsture" .

Visbeidzot, tiks parādīts ziņojuma logs, kurā būs norādīts kopējais to rindu skaits, kurās ir konkrētais teksts ( 3 šajā gadījumā.)

Lasīt vairāk: Kā saskaitīt rindas ar tekstu programmā Excel

5. Skaitīt rindas ar tukšām šūnām, izmantojot VBA programmā Excel

Visbeidzot, mēs izstrādāsim makroprogrammu, kas saskaitīs datu kopas kopējo rindu skaitu, izņemot tukšās šūnas.

Aplūkojiet šo jauno datu kopu.

Mums ir Marks dažu kandidātu atlases testā uzņēmumā APEX group.

Taču diemžēl daži kandidāti nevarēja ierasties uz testu, un viņu atzīmju vietā ir tukšas ailes.

Izstrādāsim makroprogrammu, kas saskaitīs kopējo rindu skaitu, izņemot tukšās šūnas.

Tas nozīmē, cik daudz kandidātu piedalījās testā.

Visi soļi ir tādi paši kā 1. metode ( 1.-6. solis ).

⧪ Tieši tagad 3. solis , ievadiet šo VBA kodu, kas aizstāj iepriekšējo kodu:

Kods: 

 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

Piezīme:

  • Šis kods izveido moduli ar nosaukumu Count_Rows_with_Blank_Cells .

⧪ In 5. solis , pirms koda palaišanas izvēlieties šūnu diapazonu ar tukšajām šūnām. Šeit es esmu izvēlējies diapazonu C4:C13 ( Zīmes Tes t).

⧪ Pēc tam nospiediet ALT+F8 , izvēlieties Count_Rows_with_Blank_Cells un noklikšķiniet uz Palaist .

Parādīsies ziņojuma lodziņš, kurā būs norādīts kopējais rindu skaits, izņemot tukšās šūnas ( 7 šajā gadījumā.)

Secinājums

Izmantojot šīs metodes, varat saskaitīt rindas ar VBA no datu kopas programmā Excel, kas atbilst dažādiem nosacījumiem. Vai jums ir kādas problēmas? Jautājiet mums.

Iepriekšējais ieraksts Kā lietot COUNTIF datumu diapazonam programmā Excel (6 piemērotas pieejas)
Nākamais ieraksts Kā lietot INDEX MATCH formulu programmā Excel (9 piemēri)

Hjū Vests ir ļoti pieredzējis Excel treneris un analītiķis ar vairāk nekā 10 gadu pieredzi šajā nozarē. Viņam ir bakalaura grāds grāmatvedībā un finansēs un maģistra grāds uzņēmējdarbības vadībā. Hjū aizraujas ar mācīšanu, un viņš ir izstrādājis unikālu mācīšanas pieeju, kas ir viegli izpildāma un saprotama. Viņa ekspertu zināšanas programmā Excel ir palīdzējušas tūkstošiem studentu un profesionāļu visā pasaulē uzlabot savas prasmes un izcelties karjerā. Izmantojot savu emuāru, Hjū dalās savās zināšanās ar pasauli, piedāvājot bezmaksas Excel apmācības un tiešsaistes apmācību, lai palīdzētu personām un uzņēmumiem pilnībā izmantot savu potenciālu.