Rivien laskeminen VBA: lla Excelissä (5 lähestymistapaa)

Hugh West

16-10-2023 Makrot &; Excel VBA
  • Jaa Tämä
Hugh West

Tänään näytän sinulle, miten voit laskea rivejä käyttämällä apuna VBA Excelissä mistä tahansa tietokokonaisuudesta. Näytän, miten voit laskea rivejä tietystä alueesta, valitusta alueesta, vastaamalla tiettyä kriteeriä, vastaamalla tiettyä tekstiarvoa ja jättämällä tyhjät solut pois.

Lataa harjoituskirja

Laske rivit VBA.xlsm:llä

5 tapaa laskea rivejä VBA: lla Excelissä

Tässä on tietosarja, jossa on joidenkin oppilaiden nimet ja heidän merkkinsä englanniksi koulussa nimeltä Sunflower Kindergarten.

Tänään tavoitteenamme on laskea rivien kokonaismäärä käyttäen apuna työkalua VBA-koodi .

1. VBA-koodin käyttäminen tietyn alueen rivien laskemiseen

⧪ Vaihe 1:

➤ Paina ALT+F11 näppäimistölläsi. VBA-ikkuna avautuu.

⧪ Vaihe 2:

➤ Mene osoitteeseen Lisää välilehti VBA ikkuna.

➤ Valitse käytettävissä olevista vaihtoehdoista Moduuli .

I

⧪ Vaihe 3:

➤ Uusi moduuli-ikkuna nimeltä "Moduuli 1" avautuu.

➤ Lisätään seuraava VBA koodia moduulissa.

Koodi: 

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

Huomautuksia:

  • Tämä koodi tuottaa Makro nimeltään Count_Rows .
  • The Kolmas koodin rivi sisältää määritellyn alueen " B4:C13″. Haluan laskea tämän alueen rivien määrän.
  • Käytä omaa.

⧪ Vaihe 4:

➤ Tallenna työkirja nimellä Excel-makroilla varustettu työkirja .

⧪ Vaihe 5:

➤ Palaa laskentataulukkoon ja paina painiketta ALT+F8 näppäimistölläsi.

➤ Valintaikkuna nimeltä Makro avautuu. Valitse Count_Rows ( Nimi Macro) ja klikkaa Suorita .

⧪ Vaihe 6:

➤ Näet pienen viestiruudun, joka näyttää rivien kokonaismäärän ( 10 tässä tapauksessa).

➤ Klikkaa OK poistuaksesi.

Lue lisää: Excel VBA laskemaan rivejä tietojen kanssa

2. Suorita Excelin VBA-koodi valitun alueen rivien laskemiseksi.

Edellisessä menetelmässä laskimme tietyn alueen rivien määrän ( B4:C13 ).

Mutta voimme myös käyttää VBA koodi, jolla lasketaan rivien määrä valitulla alueella haluamallamme tavalla.

Vaiheet ovat kaikki samat kuin Menetelmä 1 ( Vaihe 1-6 ).

⧪ Juuri saapunut Vaihe 3 edellisen koodin sijasta lisää tämä koodi:

Koodi: 

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

Huom:

  • Tämä koodi luo moduulin nimeltä Count_Selected_Rows .

⧪ Ja Vaihe 5 , ennen koodin suorittamista, valitse ensin alue. Tässä olen valinnut koko aineistoni (Ilman Sarakeotsikot ).

⧪ Paina sitten ALT+F8 , valitse Count_Selected_Rows ja napsauta Suorita .

Näet viestiruudun, joka näyttää valitun alueen rivien kokonaismäärän ( 10 tässä tapauksessa.)

3. Lisää VBA-koodi rivien laskemiseen Excelin kriteerien avulla Excelissä.

Voimme myös käyttää VBA koodi, jolla lasketaan tietyn kriteerin täyttävien rivien kokonaismäärä.

Luodaan esimerkiksi Makro joka laskee alle 40 pistettä saaneiden oppilaiden määrän.

Vaiheet ovat myös kaikki samat kuin Menetelmä 1 ( Vaihe 1-6 ).

⧪ Juuri saapunut Vaihe 3 , vaihda VBA koodi tähän:

Koodi: 

 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

Huom:

  • Tämä koodi luo moduulin nimeltä Count_Rows_with_Criteria .
  • Linjalla 6 , käytimme "<40" koska käytämme tätä kriteeriä, ja voitte muuttaa sitä tarpeidenne mukaan.

⧪ Ja Vaihe 5 , ennen koodin suorittamista, valitse solualue, jossa kriteerit ovat. Tässä olen valinnut vain sarakkeen C ( C4:C13 ), koska kriteeri on siinä.

⧪ Paina sitten ALT+F8 , valitse Count_Rows_with_Criteria ja napsauta Suorita .

Saat viestiruudun, joka näyttää kriteerisi täyttävien rivien kokonaismäärän ( 3 tässä tapauksessa.)

Samanlaisia lukemia

  • Excel Count näkyvät rivit (kaava ja VBA-koodi)
  • Miten Excel laskee rivit arvolla (8 tapaa)

4. Upota VBA-koodi rivien laskemiseen, joilla on tietty tekstiarvo.

Voit myös käyttää VBA koodi, jolla lasketaan tietyn tekstiarvon sisältävien rivien määrä.

Katsokaa tätä uutta tietoaineistoa.

Meillä on Kirjan ennätykset Martin Bookstore -nimisen kirjakaupan kirjoista.

Luodaan Makro joka laskee niiden kirjojen lukumäärän, joissa on tietty teksti tästä aineistosta.

Vaiheet ovat myös kaikki samat kuin Menetelmä 1 ( Vaihe 1-6 ).

⧪ Juuri saapunut Vaihe 3 , vaihda VBA koodi tähän:

Koodi: 

 Sub Count_Rows_with_Specific_Text() Dim Count As Integer Count = 0 Dim Text As String Text = InputBox("Syötä tekstiarvo: ") 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

Huom:

  • Tämä koodi luo moduulin nimeltä Count_Rows_with_Specific_Text (Lukumäärä_rivit_erityisellä_tekstillä) .

⧪ Ja Vaihe 5 , ennen koodin suorittamista, valitse solualue, jossa tekstiarvot ovat. Tässä olen valinnut solualueen B4:B13 ( Kirjojen nimi ).

⧪ Paina sitten ALT+F8 , valitse Count_Rows_with_Specific_Text (Lukumäärä_rivit_erityisellä_tekstillä) ja napsauta Suorita .

⧪ An Syöttölaatikko tulee näkyviin, jossa sinua pyydetään syöttämään tietty tekstiarvo, jota haluat verrata.

Tämän esimerkin vuoksi olen syöttänyt sen muodossa "historia" .

Lopuksi saat viestiruudun, joka näyttää tietyn tekstin sisältävien rivien kokonaismäärän ( 3 tässä tapauksessa.)

Lue lisää: Kuinka laskea rivejä tekstillä Excelissä

5. Laske rivit tyhjillä soluilla VBA:n avulla Excelissä.

Lopuksi kehitämme makron, joka laskee rivien kokonaismäärän lukuun ottamatta tyhjiä soluja tietokokonaisuudesta.

Katsokaa tätä uutta tietoaineistoa.

Meillä on Merkit joidenkin ehdokkaiden rekrytointikokeessa APEX group -nimisessä yrityksessä.

Valitettavasti jotkut ehdokkaat eivät kuitenkaan päässeet osallistumaan kokeeseen, ja heidän merkintöjensä tilalla on tyhjiä soluja.

Kehitetään makro, joka laskee rivien kokonaismäärän tyhjiä soluja lukuun ottamatta.

Se tarkoittaa, kuinka monta ehdokasta osallistui kokeeseen.

Vaiheet ovat kaikki samat kuin Menetelmä 1 ( Vaihe 1-6 ).

⧪ Juuri saapunut Vaihe 3 , kirjoita tämä VBA koodi aikaisemman koodin tilalle:

Koodi: 

 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

Huom:

  • Tämä koodi luo moduulin nimeltä Count_Rows_with_Blank_Cells_with_Blank_Cells (Lukumäärä_rivien_tyhjillä_soluilla) .

⧪ In Vaihe 5 ennen koodin suorittamista valitse solualue, jossa on tyhjiä soluja. Tässä olen valinnut alueen, jossa on tyhjiä soluja. C4:C13 ( Merkit Tesissä t).

⧪ Paina sitten ALT+F8 , valitse Count_Rows_with_Blank_Cells_with_Blank_Cells (Lukumäärä_rivien_tyhjillä_soluilla) ja napsauta Suorita .

Saat viestiruudun, joka näyttää rivien kokonaismäärän tyhjiä soluja lukuun ottamatta ( 7 tässä tapauksessa.)

Päätelmä

Näiden menetelmien avulla voit laskea rivejä, joissa on VBA Excelissä olevasta tietokokonaisuudesta, joka vastaa eri ehtoja. Onko sinulla ongelmia? Kysy meiltä.

Edellinen viesti Kuinka käyttää COUNTIFia päivämäärävälille Excelissä (6 sopivaa lähestymistapaa)
Seuraava postaus Kuinka käyttää INDEX MATCH -kaavaa Excelissä (9 esimerkkiä)

Hugh West on erittäin kokenut Excel-kouluttaja ja analyytikko, jolla on yli 10 vuoden kokemus alalta. Hän on koulutukseltaan laskentatoimen ja rahoituksen kandidaatti sekä kauppatieteiden maisteri. Hughilla on intohimo opettamiseen, ja hän on kehittänyt ainutlaatuisen opetusmenetelmän, jota on helppo seurata ja ymmärtää. Hänen asiantuntemuksensa Excelistä on auttanut tuhansia opiskelijoita ja ammattilaisia ​​maailmanlaajuisesti parantamaan taitojaan ja menestymään urallaan. Blogissaan Hugh jakaa tietämyksensä maailman kanssa tarjoamalla ilmaisia ​​Excel-opetusohjelmia ja verkkokoulutusta auttaakseen yksilöitä ja yrityksiä saavuttamaan täyden potentiaalinsa.