Kuidas lugeda ridu VBA-ga Excelis (5 lähenemisviisi)

Hugh West

16-10-2023 Makros &; Excel VBA
  • Jaga Seda
Hugh West

Täna ma näitan teile, kuidas saab lugeda ridu koos VBA Excelis mis tahes andmekogumist. Näitan teile, kuidas saab lugeda ridu konkreetsest vahemikust, valitud vahemikust, konkreetse kriteeriumi järgi, konkreetse tekstiväärtuse järgi ja tühjade lahtrite väljajätmise järgi.

Lae alla praktiline töövihik

Ridade loendamine VBA.xlsm abil

5 meetodit ridade loendamiseks VBAga Excelis

Siin on esitatud andmekogum, mis sisaldab mõnede õpilaste nimesid ja nende märkmeid inglise keeles koolis nimega Päikeselille lasteaed (Sunflower Kindergarten).

Täna on meie eesmärk lugeda ridade koguarvu, kasutades selleks VBA kood .

1. Kasutage VBA-koodi, et lugeda konkreetse vahemiku ridu

⧪ 1. samm:

➤ Press ALT+F11 klaviatuuril. VBA aken avatakse.

⧪ 2. samm:

➤ Minge Sisesta vahekaart VBA aken.

➤ Valikuvõimalustest valige Moodul .

I

⧪ 3. samm:

➤ Uus mooduli aken nimega "Moodul 1" avatakse.

➤ Lisage järgmine tekst VBA kood moodulis.

Kood: 

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

Märkused:

  • See kood toodab Makro nimega Count_Rows .
  • The Kolmas koodi rida sisaldab määratud vahemikku " B4:C13". Ma tahan loendada ridade arvu selles vahemikus.
  • Sa kasutad oma ühte.

⧪ 4. samm:

➤ Salvestage töövihik kui Exceli makrofunktsiooniga töövihik .

⧪ 5. samm:

➤ Pöörduge tagasi oma töölehele ja vajutage nuppu ALT+F8 klaviatuuril.

➤ dialoogiboks nimega Makro avaneb. Valige Count_Rows ( Nimi Makro) ja klõpsake Käivita .

⧪ 6. samm:

➤ Te leiate väikese teateakna, mis näitab ridade koguarvu ( 10 antud juhul).

➤ Klõpsake OK väljumiseks.

Loe edasi: Exceli VBA andmete ridade lugemiseks ridade abil

2. Exceli VBA-koodi käivitamine valitud vahemiku ridade loendamiseks

Eelmises meetodis loendasime konkreetse vahemiku ridade arvu ( B4:C13 ).

Kuid me võime kasutada ka VBA kood, et lugeda ridade arvu mis tahes valitud vahemikus vastavalt meie soovile.

Sammud on kõik samad kui Meetod 1 ( Samm 1-6 ).

⧪ Just in 3. samm , sisestage eelmise koodi asemel järgmine kood:

Kood: 

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

Märkus:

  • See kood loob mooduli nimega Count_Selected_Rows .

⧪ Ja aastal 5. samm , enne koodi käivitamist valige kõigepealt vahemik. Siin olen valinud kogu oma andmekogumi (ilma Veergude pealkirjad ).

⧪ Seejärel vajutage ALT+F8 , valige Count_Selected_Rows ja klõpsake nuppu Käivita .

Teile kuvatakse sõnumikast, mis näitab valitud vahemikus olevate ridade koguarvu ( 10 antud juhul.)

3. VBA-koodi sisestamine ridade loendamiseks kriteeriumidega Excelis

Me võime kasutada ka VBA kood, et lugeda konkreetset kriteeriumi säilitavate ridade koguarvu.

Näiteks loome Makro mis arvestab alla 40 hinde saanud õpilaste arvu.

Sammud on samuti kõik samad kui Meetod 1 ( Samm 1-6 ).

⧪ Just in 3. samm , muuta VBA koodi sellele:

Kood: 

 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

Märkus:

  • See kood loob mooduli nimega Count_Rows_with_Criteria .
  • Kooskõlas 6 kasutasime "<40" sest see on kriteerium, mida me kasutame. Te muudate seda vastavalt oma vajadusele.

⧪ Ja aastal 5. samm , enne koodi käivitamist valige lahtrite vahemik kriteeriumidega. Siin olen valinud ainult veeru C ( C4:C13 ), sest kriteerium asub seal.

⧪ Seejärel vajutage ALT+F8 , valige Count_Rows_with_Criteria , ja klõpsake nupule Käivita .

Saate teateakna, mis näitab teile kriteeriumile vastavate ridade koguarvu ( 3 antud juhul.)

Sarnased lugemised

  • Exceli nähtavate ridade loendamine (valem ja VBA-kood)
  • Kuidas Excel loeb ridu väärtusega (8 võimalust)

4. Embed VBA kood, et lugeda ridu, millel on konkreetne tekstiväärtus

Võite kasutada ka VBA kood, et lugeda ridade arvu, mis sisaldavad konkreetset tekstiväärtust.

Vaadake seda uut andmestikku.

Meil on Raamatu rekordid mõned raamatud raamatupoest nimega Martin Bookstore.

Loome Makro mis loeb selle andmekogumi hulgast välja raamatud, millel on konkreetne tekst.

Sammud on samuti kõik samad kui Meetod 1 ( Samm 1-6 ).

⧪ Just in 3. samm , muuta VBA koodi sellele:

Kood: 

 Sub Count_Rows_with_Specific_Text() Dim Count As Integer Count = 0 Dim Text As String Text = InputBox("Sisestage teksti väärtus: ") 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

Märkus:

  • See kood loob mooduli nimega Count_Rows_with_Specific_Text (arv_riduliste_ridade_arv) .

⧪ Ja aastal 5. samm , enne koodi käivitamist valige rakkude vahemik, kus on tekstiväärtused. Siin olen valinud vahemiku B4:B13 ( Raamatute nimi ).

⧪ Seejärel vajutage ALT+F8 , valige Count_Rows_with_Specific_Text (arv_riduliste_ridade_arv) , ja klõpsake nupule Käivita .

⧪ An Sisendkast ilmub, mis palub teil sisestada konkreetne tekstiväärtus, mida soovite sobitada.

Selle näite jaoks olen sisestanud selle kui "ajalugu" .

Lõpuks kuvatakse teile sõnumikast, mis näitab teile konkreetset teksti sisaldavate ridade koguarvu ( 3 antud juhul.)

Loe edasi: Kuidas lugeda ridu tekstiga Excelis

5. Tühjade lahtritega ridade loendamine VBA abil Excelis

Lõpuks töötame välja makro, mis loeb andmekogumi ridade koguarvu, välja arvatud tühjad lahtrid.

Vaadake seda uut andmestikku.

Meil on Marks mõne kandidaadi värbamistestis, mille korraldas ettevõte nimega APEX group.

Kuid kahjuks ei saanud mõned kandidaadid testile ilmuda ja nende märkide asemel on tühjad lahtrid.

Töötame välja makro, mis loeb ridade koguarvu, välja arvatud tühjad lahtrid.

See tähendab, kui palju kandidaate osales testis.

Sammud on kõik samad kui Meetod 1 ( Samm 1-6 ).

⧪ Just in 3. samm , sisesta see VBA kood varasema koodi asemel:

Kood: 

 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

Märkus:

  • See kood loob mooduli nimega Count_Rows_with_Blank_Cells_with_Blank_Cells .

⧪ In 5. samm , enne koodi käivitamist valige tühjade lahtritega vahemik. Siin olen valinud vahemiku C4:C13 ( Märgid Tes'is t).

⧪ Seejärel vajutage ALT+F8 , valige Count_Rows_with_Blank_Cells_with_Blank_Cells , ja klõpsake nupule Käivita .

Teile kuvatakse sõnumikast, mis näitab ridade koguarvu, välja arvatud tühjad lahtrid ( 7 antud juhul.)

Kokkuvõte

Nende meetodite abil saate lugeda ridu koos VBA Excelis olevast andmekogumist, mis vastab erinevatele tingimustele. Kas teil on probleeme? Küsige julgelt meilt.

Eelmine postitus Kuidas kasutada COUNTIFi kuupäeva vahemiku jaoks Excelis (6 sobivat lähenemist)
Järgmine postitus Kuidas kasutada INDEX MATCH valemit Excelis (9 näidet)

Hugh West on suurte kogemustega Exceli koolitaja ja analüütik, kellel on selles valdkonnas üle 10-aastane kogemus. Tal on raamatupidamise ja rahanduse bakalaureusekraad ning ärijuhtimise magistrikraad. Hugh’l on kirg õpetamise vastu ning ta on välja töötanud ainulaadse õpetamisviisi, mida on lihtne järgida ja mõista. Tema Exceli ekspertteadmised on aidanud tuhandetel õpilastel ja spetsialistidel üle maailma oma oskusi parandada ja karjääris silma paista. Oma ajaveebi kaudu jagab Hugh oma teadmisi maailmaga, pakkudes tasuta Exceli õpetusi ja veebikoolitusi, mis aitavad üksikisikutel ja ettevõtetel oma potentsiaali täielikult ära kasutada.