Tabela e përmbajtjes
Sot do t'ju tregoj se si mund të numëroni rreshtat me VBA në Excel nga çdo grup të dhënash. Unë do t'ju tregoj se si mund të numëroni rreshtat nga një gamë specifike, nga një diapazon i zgjedhur, duke përputhur një kriter specifik, duke përputhur një vlerë të caktuar teksti dhe duke përjashtuar qelizat bosh.
Shkarko Praktika Libri i punës
Numërimi i rreshtave me VBA.xlsm
5 metoda për të numëruar rreshtat me VBA në Excel
Këtu kemi një grup të dhënash me emrat e disa nxënësve dhe notat e tyre në anglisht në një shkollë të quajtur Sunflower Kindergarten.
Sot objektivi ynë është të numërojmë numri total i rreshtave duke përdorur një kod VBA .
1. Përdorni kodin VBA për të numëruar rreshtat e një diapazoni specifik
⧪ Hapi 1:
➤ Shtypni ALT+F11 në tastierën tuaj. Dritarja VBA do të hapet.
⧪ Hapi 2:
➤ Shkoni te skeda Insert në dritaren VBA .
➤ Nga opsionet në dispozicion, zgjidhni Modul .
I
⧪ Hapi 3:
➤ Do të hapet një dritare e re e modulit të quajtur “Moduli 1” .
➤ Futni VBA-në e mëposhtme kodi në modul.
Kodi:
6516
Shënime:
- Ky kod prodhon një Makro i quajtur Count_Rows .
- Rreshti 3 i kodit përmban diapazonin e specifikuar “ B4:C13″. Dëshiroj të numëroj numrin e rreshtave në këtë varg.
- Jupërdorni një tuaj.
⧪ Hapi 4:
➤ Ruaje librin e punës si Excel Macro-Enabled Workbook .
⧪ Hapi 5:
➤ Kthehuni në fletën tuaj të punës dhe shtypni ALT+F8 në tastierën tuaj.
➤ Do të hapet një kuti dialogu e quajtur Macro . Zgjidhni Count_Rows ( Emri i Macro) dhe klikoni në Run .
⧪ Hapi 6:
➤ Do të gjeni një kuti të vogël mesazhi që tregon numrin e rreshtave totale ( 10 në këtë rast ).
➤ Klikoni OK për të dalë.
Lexo më shumë: Excel VBA për të numëruar rreshtat me të dhëna
2. Ekzekutoni kodin Excel VBA për të numëruar rreshtat e një diapazoni të zgjedhur
Në metodën e mëparshme, ne numëruam numrin e rreshtave të një diapazoni specifik ( B4:C13 ).
Por ne mund të përdorim gjithashtu një kod VBA për të numëruar numrin e rreshtave në çdo gamë të zgjedhur sipas dëshirës sonë.
Hapat janë të gjithë të njëjtë si Metoda 1 ( Hapi 1-6 ).
⧪ Vetëm në Hapi 3 , në vend të kodit të mëparshëm, fut këtë kod:
Kodi:
1338
Shënim:
- Ky kod krijon një modul të quajtur Count_Selected_Rows .
⧪ Dhe në Hapi 5 , përpara se të ekzekutoni kodin, zgjidhni fillimisht një interval. Këtu kam zgjedhur të gjithë grupin tim të të dhënave (Pa Titujt e kolonave ).
⧪ Më pas shtypni ALT+F8 , zgjidhni Count_Selected_rowws dhe klikoni mbi Run .
Do të merrni një kuti mesazhi që ju tregon numrin total të rreshtave në diapazonin tuaj të zgjedhur ( 10 në këtë rast.)
3. Fut kodin VBA për të numëruar rreshtat me kritere në Excel
Ne gjithashtu mund të përdorim një kod VBA për të numëruar numrin total të rreshtave që mbajnë një kriter specifik.
Për shembull, le të krijojmë një Makro që do të numërojë numrin e studentëve që kanë marrë notat më pak se 40.
Hapat janë gjithashtu të gjithë të njëjtë si Metoda 1 ( Hapi 1-6 ).
⧪ Vetëm në Hapi 3 , ndryshoni kodin VBA në këtë:
Kodi:
7267
Shënim:
- Ky kod krijon një modul të quajtur Count_Rows_with_Criteria .
- Në rreshtin 6 , kemi përdorur “<40” sepse ky është kriteri që po përdorim. Ju e ndryshoni atë sipas nevojës tuaj.
⧪ Dhe në Hapi 5 , përpara se të ekzekutoni kodin, zgjidhni gamën e qelizave me kriteret. Këtu kam zgjedhur vetëm kolonën C ( C4:C13 ) sepse kriteri qëndron aty.
⧪ Më pas shtypni ALT+F8 , zgjidhni Count_Rows_with_Criteria dhe klikoni në Run .
Do të merrni një kuti mesazhi që tregon ju numrin total të rreshtave që përmbushin kriterin tuaj ( 3 në këtë rast.)
Lexime të ngjashme
- Excel Numërimi i rreshtave të dukshëm (Formula dhe Kodi VBA)
- Si numëron Excel rreshtat me vlerë (8Mënyrat)
4. Vendosni kodin VBA për të numëruar rreshtat që kanë një vlerë specifike teksti
Mund të përdorni gjithashtu një kod VBA për të numëruar numrin e rreshtave që përmbajnë një vlerë të veçantë teksti.
Shiko këtë grup të ri të dhënash.
Ne kemi Regjistrimet e Librit të disa librave të një librari të quajtur Martin Bookstore.
Le të krijojmë një Makro që do të numërojë numrin e librave që kanë një tekst specifik nga ky grup të dhënash.
Hapat janë gjithashtu të gjithë të njëjtë si Metoda 1 ( Hapi 1-6 ).
⧪ Vetëm në Hapi 3 , ndryshoni kodin VBA në këtë:
Kodi:
4756
Shënim:
- Ky kod krijon një modul të quajtur Count_Rows_with_Specific_Text .
⧪ Dhe në Hapi 5 , përpara se të ekzekutoni kodin, zgjidhni gamën e qelizave me vlerat e tekstit. Këtu kam zgjedhur diapazonin B4:B13 ( Emri i librave ).
⧪ Më pas shtypni ALT+ F8 , zgjidhni Count_Rows_with_Specific_Text dhe klikoni në Run .
⧪ Një Kuti hyrëse do të shfaqet që do t'ju kërkojë të futni vlerën specifike të tekstit që dëshironi të përputhet.
Për hir të këtij shembulli, unë e kam futur atë si “histori” .
0>
Më në fund, do të merrni një kuti mesazhi që ju tregon numrin total të rreshtave që përmbajnë tekstin specifik ( 3 në këtë rast.)
Lexo më shumë: Si të numërohen rreshtat me tekst nëExcel
5. Numëroni rreshtat me qeliza boshe duke përdorur VBA në Excel
Më në fund, ne do të zhvillojmë një makro që do të numërojë numrin total të rreshtave duke përjashtuar qelizat bosh nga një grup të dhënash.
Shiko tek këtë grup të ri të dhënash.
Ne kemi Notat të disa kandidatëve në një test rekrutimi të një kompanie të quajtur APEX group.
Por për fat të keq, disa kandidatë nuk mund të paraqiteshin në test dhe ka qeliza bosh në vend të notave të tyre.
Le të zhvillojmë një makro që do të numërojë numrin total të rreshtave duke përjashtuar qelizat bosh.
>Kjo do të thotë se sa kandidatë u paraqitën në test.
Hapat janë të gjithë të njëjtë si Metoda 1 ( Hapi 1-6 ).
⧪ Vetëm në Hapin 3 , futni këtë kod VBA në vend të atij të mëparshëm:
Kodi:
9757
Shënim:
- Ky kod krijon një modul të quajtur Count_Rows_with_Blank_Cells .
⧪ Në Hapi 5 , përpara se të ekzekutoni kodin, zgjidhni gamën e qelizave me qelizat bosh. Këtu kam zgjedhur intervalin C4:C13 ( Shënon në Tes t).
⧪ Më pas shtyp ALT +F8 , zgjidhni Count_Rows_with_Blank_Cells dhe klikoni në Run .
Do të merrni një kuti mesazhi që ju tregon numri total i rreshtave duke përjashtuar qelizat bosh ( 7 në këtë rast.)
Përfundim
Përdorimi këto metoda, ju mund të numëroni rreshtat me VBA nga një e dhënëvendosur në Excel duke përputhur kushte të ndryshme. A keni ndonjë problem? Mos ngurroni të na pyesni.