Hvernig á að telja raðir með VBA í Excel (5 aðferðir)

  • Deildu Þessu
Hugh West

Í dag skal ég sýna þér hvernig hægt er að telja línur með VBA í Excel úr hvaða gagnasetti sem er. Ég skal sýna þér hvernig hægt er að telja línur frá ákveðnu bili, frá völdum bili, með því að passa við ákveðna viðmiðun, með því að passa við ákveðið textagildi og með því að útiloka auðu reiti.

Hlaða niður æfingu. Vinnubók

Telja raðir með VBA.xlsm

5 aðferðir til að telja raðir með VBA í Excel

Hér höfum við gagnasett með nöfnum sumra nemenda og merkjum þeirra á ensku í skóla sem heitir Sunflower Kindergarten.

Í dag er markmið okkar að telja heildarfjöldi lína með VBA kóða .

1. Notaðu VBA kóða til að telja raðir af tilteknu bili

Skref 1:

Ýttu á ALT+F11 á lyklaborðinu þínu. VBA glugginn opnast.

Skref 2:

Farðu á flipann Setja inn í VBA glugganum.

Úr valkostunum í boði skaltu velja Module .

I

Skref 3:

Nýr einingagluggi sem heitir “Module 1” opnast.

Settu inn eftirfarandi VBA kóða í einingunni.

Kóði:

2934

Athugasemdir:

  • Þessi kóði framleiðir a Macro sem kallast Count_Rows .
  • 3rd lína kóðans inniheldur tilgreint svið „ B4:C13″. Ég vil telja fjölda lína á þessu bili.
  • Þúnotaðu einn.

Skref 4:

Vistaðu vinnubókina sem Excel Macro-Enabled Workbook .

Skref 5:

➤ Farðu aftur í vinnublaðið þitt og ýttu á ALT+F8 á lyklaborðinu þínu.

➤ Gluggi sem heitir Macro opnast. Veldu Count_Rows ( Nafn fjölva) og smelltu á Run .

Skref 6:

Þú munt finna lítinn skilaboðareit sem sýnir fjölda heildarlína ( 10 í þessu tilfelli ).

Smelltu á OK til að hætta.

Lesa meira: Excel VBA til að telja línur með gögnum

2. Keyrðu Excel VBA kóða til að telja línur af völdum sviðum

Í fyrri aðferðinni töldum við fjölda lína á tilteknu sviði ( B4:C13 ).

En við getum líka notað VBA kóða til að telja fjölda lína á hvaða svið sem er í samræmi við ósk okkar.

Skrefin eru öll þau sömu og Aðferð 1 ( Skref 1-6 ).

⧪ Bara í Skref 3 , í staðinn fyrir fyrri kóða, settu þennan kóða inn:

Kóði:

2943

Athugið:

  • Þessi kóði býr til einingu sem heitir Count_Selected_Rows .

⧪  Og í Skref 5 , áður en þú keyrir kóðann skaltu velja svið fyrst. Hér hef ég valið allt gagnasettið mitt (Án dálkahausanna ).

⧪ Ýttu síðan á ALT+F8 , veldu Count_Selected_Rows og smelltu á Hlaupa .

Þú munt fá skilaboðareit sem sýnir þér heildarfjölda lína á valinu þínu ( 10 í þessu mál.)

3. Settu inn VBA kóða til að telja raðir með viðmiðum í Excel

Við getum líka notað VBA kóða til að telja heildarfjölda lína sem viðhalda tilteknu viðmiði.

Til dæmis, búum til Macro sem mun telja fjölda nemenda sem fengu færri einkunn en 40.

Skrefin eru líka öll þau sömu og Aðferð 1 ( Skref 1-6 ).

⧪ Bara í Skref 3 , breyttu VBA kóðanum í þennan:

Kóði:

7025

Athugið:

  • Þessi kóði býr til einingu sem heitir Count_Rows_with_Criteria .
  • Í línu 6 notuðum við “<40” vegna þess að þetta er viðmiðið sem við notum. Þú breytir því í samræmi við þarfir þínar.

⧪  Og í Skref 5 , áður en þú keyrir kóðann, veldu svið hólfa með viðmið. Hér hef ég aðeins valið dálk C ( C4:C13 ) vegna þess að viðmiðunin liggur þar.

⧪ Ýttu svo á ALT+F8 , veldu Count_Rows_with_Criteria og smelltu á Run .

Þú færð skilaboðareit sem sýnir þú heildarfjöldi lína sem uppfylla skilyrðin þín ( 3 í þessu tilfelli.)

Svipuð lestur

  • Excel telur sýnilegar raðir (formúla og VBA kóða)
  • Hvernig Excel telur raðir með gildi (8Leiðir)

4. Fella inn VBA kóða til að telja línur með ákveðið textagildi

Þú getur líka notað VBA kóða til að telja fjölda lína sem innihalda tiltekið textagildi.

Líttu á þetta nýja gagnasett.

Við höfum bókaskrár sumra bóka bókabúðar sem heitir Martin Bookstore.

Við skulum búa til Macro sem mun telja fjölda bóka sem hafa ákveðinn texta úr þessu gagnasetti.

Skrefin eru líka öll þau sömu og Aðferð 1 ( Skref 1-6 ).

⧪ Bara í Skref 3 , breyttu VBA kóðanum í þennan:

Kóði:

4423

Athugið:

  • Þessi kóði býr til einingu sem heitir Count_Rows_with_Specific_Text .

⧪  Og í Skref 5 , áður en þú keyrir kóðann, skaltu velja svið reita með textagildunum. Hér hef ég valið svið B4:B13 ( Nafn bókanna ).

⧪ Ýttu svo á ALT+ F8 , veldu Count_Rows_with_Specific_Text og smelltu á Run .

⧪ An Input Box birtist sem mun biðja þig um að slá inn tiltekið textagildi sem þú vilt passa við.

Í þágu þessa dæmis hef ég slegið það inn sem “saga” .

Að lokum færðu skilaboðareit sem sýnir þér heildarfjölda lína sem innihalda tiltekinn texta ( 3 í þessu tilfelli.)

Lesa meira: Hvernig á að telja línur með texta íExcel

5. Telja raðir með tómum hólfum með því að nota VBA í Excel

Að lokum munum við þróa fjölva sem mun telja heildarfjölda raða að undanskildum auðum hólfum úr gagnasetti.

Sjáðu á þetta nýja gagnasafn.

Við erum með einkunn sumra umsækjenda í ráðningarprófi hjá fyrirtæki sem heitir APEX group.

En því miður gátu sumir umsækjendur ekki komið fram í prófinu og það eru auðir reiti í stað einkunna þeirra.

Við skulum þróa fjölva sem mun telja heildarfjölda lína fyrir utan auðu reiti.

Það þýðir hversu margir umsækjendur komu fram í prófinu.

Skrefin eru öll þau sömu og Aðferð 1 ( Skref 1-6 ).

⧪ Bara í Skref 3 , sláðu inn þennan VBA kóða í stað þess fyrri:

Kóði:

7791

Athugið:

  • Þessi kóði býr til einingu sem heitir Count_Rows_with_Blank_Cells .

⧪  Í Skref 5 , áður en þú keyrir kóðann, veldu svið hólfa með auðu reitunum. Hér hef ég valið svið C4:C13 ( Merk í Tes t).

⧪ Ýttu svo á ALT +F8 , veldu Count_Rows_with_Blank_Cells og smelltu á Run .

Þú færð skilaboðareit sem sýnir þér heildarfjöldi lína fyrir utan auðu reiti ( 7 í þessu tilfelli.)

Niðurstaða

Notkun þessar aðferðir, þú getur talið línur með VBA úr gögnumsett í Excel sem samsvarar ýmsum skilyrðum. Ertu í vandræðum? Ekki hika við að spyrja okkur.

Hugh West er mjög reyndur Excel þjálfari og sérfræðingur með yfir 10 ára reynslu í greininni. Hann er með BA gráðu í bókhaldi og fjármálum og meistaragráðu í viðskiptafræði. Hugh hefur ástríðu fyrir kennslu og hefur þróað einstaka kennsluaðferð sem auðvelt er að fylgja eftir og skilja. Sérfræðiþekking hans á Excel hefur hjálpað þúsundum nemenda og fagfólks um allan heim að bæta færni sína og skara fram úr í starfi. Í gegnum bloggið sitt deilir Hugh þekkingu sinni með heiminum og býður upp á ókeypis Excel námskeið og netþjálfun til að hjálpa einstaklingum og fyrirtækjum að ná fullum möguleikum.