Upami anjeun milari sababaraha cara anu paling gampang pikeun milarian substring nganggo VBA, maka anjeun nuju dina tempat anu leres. Saatos ngalangkungan tulisan ieu, anjeun bakal tiasa mendakan posisi substring atanapi ekstrak data nganggo substring ieu atanapi ngarobih format substring kalayan gampang. Hayu urang lebet kana artikelna.

Unduh Workbook

9 Cara Milarian Substring Nganggo VBA

Di dieu, abdi gaduh ieu di handap. tabel data ku nu kuring baris némbongkeun cara manggihan substring dina string maké VBA. Abdi ogé bakal nyobian nunjukkeun cara milarian substring dina senar acak.

Kuring parantos ngalaksanakeun tugas ieu nganggo vérsi Microsoft Excel 365 , anjeun tiasa nganggo vérsi anu sanés numutkeun karesep anjeun.

Métode-1: Manggihan Substring dina String Nganggo VBA

Upami anjeun hoyong milarian substring anu dipikahoyong dina string nganggo VBA, anjeun tiasa nganggo fungsi InStr dina kode VBA.

Lengkah-01 :

➤Buka Developer Tab>> Visual Basic Option

Teras, Visual Basic Editor bakal muka.

➤Buka Selapkeun Tab>> Modul Pilihan

Sanggeus éta, hiji Modul bakal dijieun.

Lengkah-02 :

➤Tulis kodeu ieu

2460

Di dieu, InStr(1, “ Jigana kituna Kami", "pikir") bakal balik posisi substring of string a. 1 nyaétaposisi mimiti, " Jigana kituna Kami" nya éta string dimana anjeun bakal manggihan substring nu dipikahoyong, sarta "pikir" nya éta substring rék manggihan. Sacara standar, éta sénsitip kana hurup leutik jadi ati-ati kana kasus substring anu anjeun hoyong milarian.

➤Pencét F5

Hasil :

Sanggeus éta, anjeun bakal meunang Kotak Pesen ngandung posisi "pikir" substring.

Métode-2: Manggihan Substring Teu Sénsitip Husus dina String

Lamun anjeun hayang manggihan substring anu dipikahoyong dina senar teu paduli kasus ngagunakeun VBA, teras tuturkeun ieu métode.

Lengkah-01 :

➤Tuturkeun Lengkah-01 tina Metoda-1

8844

Di dieu, vbTextCompare dipaké pikeun manggihan substring sensitip-huruf leutik.

➤Pencét F5

Hasil :

Salajengna, anjeun bakal nampi Kotak Pesen ngandung posisi "pikir" substring.

Anjeun tiasa ngalakukeun hal anu sami nganggo kode di handap ieu.

9304

Di dieu, Pilihan Bandingkeun Teks bakal mendakan substring anu teu peka hurup.

➤Pencét F5

Hasil :

Sanggeus, anjeun Bakal meunang di handap ieu Kotak Pesen ngandung posisi substring "pikir" .

Métode-3: Ngagunakeun pungsi InstrRev dina VBA

Di dieu, kuring bakal nunjukkeun jalan pikeun milarian substring tina tungtung astring.

Lengkah-01 :

➤Tuturkeun Lengkah-01 tina Metoda-1

1271

InStrRev bakal manggihan substring ti sisi katuhu tinimbang sisi kénca.

➤Pencét F5

Hasil :

Terus, anjeun bakal meunang Kotak Pesen ngandung posisi kadua “I” substring tina sisi katuhu.

Métode-4: Manggihan posisi Substring dina String dina Range Data

Lamun hayang manggihan karakter husus “@” dina Id Surélék , teras turutan metodeu ieu. Abdi parantos nambihan kolom Posisi ka dieu.

Lengkah-01 :

➤Tuturkeun Lengkah-01 tina Metoda-1

2304

Bakal nyieun pungsi ngaranna FindSubstring (anjeun bisa make ngaran séjén)

nilai nyaéta rujukan sél nu ngandung string sarta dinyatakeun salaku Rentang .

Lengkah -02 :

➤Pilih kaluaran Sél E5

➤Ketik pungsi ieu (dijieun ku VBA )

=FindSubstring(D5)

D5 nyaéta sél anu ngandung string.

➤Pencét Asupkeun

➤Sered ka handap Eusian Cecekelan Alat

Hasil :

Sanggeusna, anjeun bakal meunang posisi karakter husus “ @” dina Id Surélék .

Bacaan Sarupa:

• Kumaha carana manggihanString dina Sél Nganggo VBA dina Excel (2 Métode)
• Teangan Salajengna Ngagunakeun VBA dina Excel (2 Conto)
• Kumaha Milarian String nganggo VBA dina Excel (8 Conto)
• VBA Milarian Baris Terakhir dina Excel (5 cara)

Métode-5: Mariksa Substring Tinangtu dina a String dina Range of Data

Misalna anjeun hoyong nyerat Lulus atanapi Gagal pakait kana nami murid gumantung kana Kolom Hasil dimana Pass atawa Gagal geus ditulis dina kurung. Pikeun manggihan substring ieu dina Kolom Hasil jeung tuliskeun dina Kolom Lulus atawa gagal Tuturkeun métode ieu.

Lengkah-01 :

➤Tuturkeun Lengkah-01 tina Metoda-1

2337

Di dieu, rentang sél nyaéta C5:C10 nu Kolom Hasil

InStr(cell.value, “Pass”) > 0 nyaéta kaayaan dimana jumlahna leuwih badag batan nol (lamun sél ngandung "Pass" )  mangka baris di handap bakal neruskeun tur masihan kaluaran dina sél padeukeut salaku Lulus .

Lamun kondisina jadi palsu hartina sél teu ngandung “Pass” mangka baris dina Else bakal ngajalankeun sarta méré nilai kaluaran dina sél anu padeukeut salaku Gagal .

Gelung ieu bakal diteruskeun pikeun tiap sél.

➤Pencét F5

Hasil :

Salajengna, anjeun bakal nampi kaluaran ieu dina Pas atanapi gagal kolom.

Métode-6: Mariksa Substring Tinangtu dina String sareng Ékstrak Data

Kuring bakal nunjukkeun jalan pikeun milarian murid anu ngaranna Michael dina kolom Ngaran Siswa sarta nimba datana nu saluyu maké VBA dina métode ieu.

Lengkah-01 :

➤Tuturkeun Lengkah-01 tina Metoda-1

2076

Di dieu, kuring geus ngagunakeun B100 salaku Rentang Lembar Aktif tapi anjeun tiasa nganggo rentang naon waé numutkeun pamakean anjeun.

InStr(1, Range("B" & i), "Michael") > 0 nyaéta sarat pikeun mariksa naha sél asup kolom B ngandung Michael

Range("E" & icount & ":G" & icount) nyaéta rentang dimana anjeun hoyong data kaluaran anjeun sareng Range("B" & i & ":D" & i).value bakal masihan nilai ti kolom B nepi ka D .

➤Pencét F5

Hasil :

Sanggeus éta, anjeun bakal meunang data ékstrak di handap ieu pikeun siswa anu ngaranna Michael .

Métode-7: Milarian Substring pikeun Kecap

Upami anjeun hoyong milarian substring salaku kecap, teras fol handap metoda ieu.

Lengkah-01 :

➤Tuturkeun Lengkah-01 tina Metoda-1

4956

Bakal mariksa lamun string ngandung nyaéta terus posisina bakal dibikeun

➤Pencét F5

Hasil :

Sanggeusna, anjeun bakal nampi kotak pesen di handap ieu anu nunjukkeun kecap anu aya dina posisi:6 (posisi nyaéta ).

Anjeun tiasa ngujikaluar kode ieu pikeun kecap nu teu aya dina string.

➤Ketik kodeu ieu

6110

➤Pencét F5

Hasil :

Sanggeusna, anjeun bakal meunang kotak pesen di handap ieu nu nembongkeun kecap teu kapanggih .

Métode-8: Nganggo fungsi Instr sareng LEFT

Di dieu, kuring bakal ngajelaskeun cara milarian posisi substring dina senar sareng nimba téks sateuacan substring ieu nganggo VBA jeung fungsi LEFT .

Lengkah-01 :

➤Tuturkeun Lengkah-01 tina Metode-1

3140

j = InStr(txt, "is") nyaéta posisi substring nyaéta jeung Left(txt, j - 1) bakal nimba substrings saméméh nyaéta .

➤Pencét F5

Hasil :

Salajengna, anjeun bakal nampi kotak pesen di handap ieu anu nunjukkeun Di dieu (substring sateuacan nyaéta ).

Métode-9: Bold a Substring Tertentu dina String

Anjeun tiasa ngandelkeun peunteun sateuacan tanda kurung dina Kolom Hasil ku cara nuturkeun ieu méto. d.

Lengkah-01 :

➤Tuturkeun Lengkah-01 tina Metoda- 1

5451

txt = InStr(1, Cell, "(") bakal mulangkeun posisi bracket kahiji jeung Cell.Characters(1, txt - 1).Font.Bold bakal nyieun substring saméméh bracket kahiji Kandel .

Lengkah-02 :

➤Pilih Kolom Hasil

➤Go ka Pamekar Tab>> Makro Pilihan

Lajeng, hiji Makro wizard bakal muncul.

➤Pilih Boldingsubstring (nami kode VBA) terus Jalankeun .

Hasil :

Sanggeus éta, peunteun dina Hasil Kolom bakal tebal.

Bagian Praktek

Pikeun ngalakonan latihan ku sorangan kami geus disadiakeun bagian Praktek kawas di handap dina lembar ngaranna Praktek . Punten laksanakeun ku nyalira.

Kacindekan

Dina artikel ieu, kuring nyoba nutupan cara panggampangna pikeun manggihan substring ngagunakeun VBA dina Excel sacara efektif. Miharep anjeun bakal manggihan eta mangpaat. Upami anjeun gaduh saran atanapi patarosan, mangga bagikeun ka kami.