Tabela e përmbajtjes
Nëse jeni duke kërkuar për disa nga mënyrat më të lehta për të gjetur nënvarg duke përdorur VBA, atëherë jeni në vendin e duhur. Pasi të keni kaluar nëpër këtë artikull, do të jeni në gjendje të gjeni pozicionin e një nënvargu ose të nxirrni të dhëna duke përdorur këtë nënvarg ose të ndryshoni formatin e një nënvargu me lehtësi. Le të futemi te artikulli.
Shkarkoni Librin e Punës
Përmbajtjen e mostrës
9 mënyra për të gjetur nënvarg duke përdorur VBA
Këtu, kam sa vijon tabela e të dhënave me të cilën do të tregoj mënyrat e gjetjes së nënvargut në një varg duke përdorur VBA. Do të përpiqem të tregoj gjithashtu mënyrat e gjetjes së nënvargut në një varg të rastësishëm.
Këtë detyrë e kam kryer duke përdorur versionin Microsoft Excel 365 , mund të përdorni çdo version tjetër sipas lehtësisë suaj.
Metoda-1: Gjetja e nënvargut në një varg duke përdorur VBA
Nëse dëshironi të gjeni nënvargun tuaj të dëshiruar në një varg duke përdorur VBA, mund të përdorni funksioni InStr në kodin VBA.
Hapi-01 :
➤Shko te Zhvilluesi Tab>> Visual Basic Opsioni
Më pas, Editori Visual Basic do të hapet.
➤Shko te Fut Tab>> Moduli Opsioni
Pas kësaj, do të krijohet një Modul .
Hapi-02 :
➤Shkruani kodin e mëposhtëm
4044
Këtu, InStr(1, " Mendoj prandaj jam”, “mendoj”) do të kthejë pozicionin e nënvargut të një vargu. 1 ështëpozicioni i fillimit, " Mendoj, prandaj jam" është vargu ku do të gjeni nënvargun tuaj të dëshiruar dhe "mendoni" është nënvargu që dëshironi të gjeni. Është si parazgjedhje e ndjeshme ndaj shkronjave të vogla, prandaj kini kujdes nga rasti i nënvargut tuaj që dëshironi të kërkoni.
➤Shtypni F5
Rezultati :
Pas kësaj, do të merrni Kutinë e mesazheve që përmban pozicionin e nënvargut “mendo” .
Metoda-2: Gjetja e nënvargut të pandjeshëm ndaj shkronjave në një varg
Nëse dëshironi të gjeni nënvargun tuaj të dëshiruar në një varg, pavarësisht nga rasti duke përdorur VBA, atëherë ndiqni këtë metodë.
Hapi-01 :
➤Ndiq Hapin-01 nga Metodën-1
3205
Këtu, vbTextCompare përdoret për të gjetur nënvarg pa ndjeshmëri të madhe.
➤Shtypni F5
Rezultati :
Më pas, ju do të merrni Kutinë e mesazheve që përmban pozicionin e nënvargut "mendoni" .
Të njëjtën gjë mund ta bëni duke përdorur kodin e mëposhtëm.
6707
Këtu, Teksti i Krahasimit të Opsionit do të gjejë nënvarg pa ndjeshmëri të madhe.
➤Shtypni F5
Rezultati :
Më pas, ju do do të marrë Kutinë e mesazheve të mëposhtme që përmban pozicionin e nënvargut “mendo” .
Metoda-3: Përdorimi i funksionit InstrRev në VBA
Këtu, unë do të tregoj mënyrën për të gjetur një nënvarg nga fundi i njëvarg.
Hapi-01 :
➤Ndiq Hapin-01 nga Metodën-1
4137
InStrRev do të gjejë nënvargun nga ana e djathtë në vend të anës së majtë.
➤Shtypni F5
Rezultati :
Më pas, do të merrni Kutinë e mesazheve që përmban pozicionin e nënvargut të dytë “I” nga anën e djathtë.
Metoda-4: Gjetja e pozicionit të nënvargut në një varg në një varg të dhënash
Nëse dëshironi të gjeni karakterin special “@” në Id-in e emailit , më pas ndiqni këtë metodë. Unë kam shtuar këtu kolonën Pozicioni për këtë qëllim.
Hapi-01 :
➤Ndiq Hapi-01 nga Metoda-1
5529
Do të krijojë një funksion të quajtur FindSubstring (mund të përdorni çdo emër tjetër)
vlera është referenca e qelizës që përmban vargun dhe është deklaruar si Range .
Hapi -02 :
➤Zgjidhni daljen Qeliza E5
➤Shkruani funksionin e mëposhtëm (krijuar nga VBA )
=FindSubstring(D5)
D5 është qeliza që përmban vargun.
➤Shtypni ENTER
➤Zvarrit poshtë Doreza e mbushjes Mjeti
Rezultati :
Më pas, do të merrni pozicionet e karakterit special “ @” në Id-in e emailit .
Lexime të ngjashme:
- Si të gjeshVargu në një qelizë duke përdorur VBA në Excel (2 metoda)
- Gjeni Tjetrin duke përdorur VBA në Excel (2 shembuj)
- Si të gjeni vargun me VBA në Excel (8 shembuj)
- VBA Gjeni rreshtin e fundit në Excel (5 mënyra)
Metoda-5: Kontrollimi i një nënvargu të caktuar në një varg në një gamë të dhënash
Supozoni se doni të shkruani Kaloni ose Dështoni të korrespondojë me emrat e studentëve në varësi të kolonës Rezultati ku Kalimi ose Dështoi është shkruar në një kllapa. Për të gjetur këtë nënvarg në kolonën Rezultati dhe shkruani atë në kolonën Kalo ose dështoj ndiq këtë metodë.
Hapi-01 :
➤Ndiq Hapin-01 të Metodës-1
3940
Këtu, diapazoni i qelizave është C5:C10 e cila është kolona Rezultati
InStr(cell.value, "Pass") > 0 është kushti ku numri është më i madh se zero (kur qeliza përmban “Pass” ) atëherë rreshti vijues do të vazhdojë dhe do të japë daljen në qelizën ngjitur si Kaluar .
Nëse kushti bëhet false do të thotë se një qelizë nuk përmban asnjë “Pass” atëherë rreshti nën Else do të ekzekutohet dhe do të japë vlerën e daljes në qeliza ngjitur si Dështoi .
Ky qark do të vazhdojë për secilën qelizë.
➤Shtypni F5
Rezultati :
Më pas, do të merrni rezultatet e mëposhtme në Kaloni ose dështoni kolona.
Metoda-6: Kontrollimi i një nënvargu të caktuar në një varg dhe nxjerrja e të dhënave
Unë do të tregoj mënyrën për të gjetur studentët e emërtuar Michael në kolonën Emri i studentit dhe nxirrni të dhënat e tyre përkatëse duke përdorur VBA në këtë metodë.
Hapi-01 :
➤Ndiq Hapin-01 të Metodës-1
4179
Këtu, kam përdorur B100 si Rapsi i fletëve aktive por ju mund të përdorni çdo gamë sipas përdorimit tuaj.
InStr(1, Range("B" & i), "Michael") > 0 është kushti për të kontrolluar nëse qeliza në kolona B përmban Michael
Range("E" & icount & ":G" & icount) është diapazoni ku dëshironi të dhënat tuaja të daljes dhe Range("B" & i & ":D" & i).value do të japë vlerat nga kolonat B në D .
➤Shtypni F5
Rezultati :
Pas kësaj, do të merrni të dhënat e mëposhtme të nxjerra për studentët që kanë emrin Michael .
Metoda-7: Kërkimi i nënvargut për Word
Nëse dëshironi të gjeni nënvargun si fjalë, atëherë fol ul këtë metodë.
Hapi-01 :
➤Ndiq Hapin-01 nga Metodën-1
4800
Do të kontrollojë nëse vargu përmban është dhe më pas do të jepet pozicioni i tij
➤Shtypni F5
Rezultati :
Më pas, do të merrni kutinë e mëposhtme të mesazhit që tregon fjalën e gjetur në pozicionin:6 (pozicioni i është ).
Mund të provonihiqni këtë kod për një fjalë që nuk është në varg.
➤Shkruani kodin e mëposhtëm
4766
➤Shtypni F5
Rezultati :
Më pas, do të merrni kutinë e mëposhtme të mesazhit që tregon fjala nuk u gjet .
Metoda-8: Duke përdorur funksionin Instr dhe LEFT
Këtu, unë do të shpjegoj mënyrën për të gjetur pozicionin e një nënvargu në një varg dhe do të nxjerr tekstet përpara këtij nënvargu duke përdorur VBA dhe funksioni LEFT .
Hapi-01 :
➤Ndiq Hapin-01 nga Metoda-1
9009
j = InStr(txt, "is") është pozicioni i nënvargut është dhe Left(txt, j - 1) do të nxjerrë nënvargjet përpara është .
➤Shtypni F5
Rezultati :
Më pas, do të merrni kutinë e mëposhtme të mesazhit që tregon Këtu (nënvargu para është ).
Metoda-9: Bolding një nënvarg i caktuar në një varg
Mund të shkruash notat përpara kllapave në kolonën Rezultati duke ndjekur këtë metodë d.
Hapi-01 :
➤Ndiq Hapin-01 të Metodës- 1
7517
txt = InStr(1, Cell, "(") do të kthejë pozicionin e kllapës së parë dhe Cell.Characters(1, txt - 1).Font.Bold do të bëjë nënvargun përpara kllapës së parë Bold .
Hapi-02 :
➤Zgjidhni kolonën Rezultati
➤Shko te Zhvilluesi Tab>> Makrot Opsioni
Më pas, një Makro magjistari do të shfaqet.
➤Zgjidh Boldingsubstring (emri i kodit VBA) dhe më pas Run .
Rezultati :
Pas kësaj, notat në kolonën Rezultati do të jenë të theksuara.
Seksioni i praktikës
Për të bërë praktikë vetë, ne kemi ofruar një seksion Praktika si më poshtë në një fletë të quajtur Praktika . Ju lutemi bëjeni vetë.
Përfundim
Në këtë artikull, u përpoqa të mbuloj mënyrat më të lehta për të gjetur nënvarg duke përdorur VBA në Excel në mënyrë efektive. Shpresoj se do ta gjeni të dobishme. Nëse keni ndonjë sugjerim ose pyetje, mos ngurroni t'i ndani ato me ne.
