Хэрэв та VBA ашиглан дэд мөрийг олох хамгийн хялбар аргуудыг хайж байгаа бол та зөв газартаа байна. Энэ нийтлэлийг уншсаны дараа та дэд мөрийн байрлалыг олох эсвэл энэ дэд мөрийг ашиглан өгөгдлийг задлах эсвэл дэд мөрийн форматыг хялбархан өөрчлөх боломжтой болно. Нийтлэл рүү орцгооё.

Дасгалын номыг татаж авах

VBA ашиглан дэд мөрийг олох 9 арга

Энд надад дараах зүйл байна. өгөгдлийн хүснэгтэд би VBA ашиглан мөр дэх дэд мөрийг олох арга замыг харуулах болно. Би мөн санамсаргүй мөрт дэд мөрийг олох аргуудыг харуулахыг хичээх болно.

Би энэ даалгаврыг Microsoft Excel 365 хувилбарыг ашиглан гүйцэтгэсэн тул та өөрт тохирох хувилбарыг ашиглаж болно.

Арга-1: VBA-г ашиглан мөрт дэд мөрийг олох

Хэрэв та VBA-г ашиглан мөрт өөрийн хүссэн дэд мөрийг олохыг хүсвэл <-г ашиглаж болно. 11>VBA код дахь InStr функц .

Алхам-01 :

➤ Хөгжүүлэгч Таб>> Visual Basic Сонголт

Дараа нь Visual Basic Editor нээгдэнэ.

➤<11 рүү очно уу> Tab>> Модуль оруулах Сонголт

Үүний дараа Модуль үүснэ.

Алхам-02 :

➤Дараах кодыг бичнэ үү

8206

Энд, InStr(1, “ I think so I am”, “think”) мөртийн дэд мөрийн байрлалыг буцаана. 1 ньэхлэх байрлал, “ Би бодож байна, тиймээс би байна” нь таны хүссэн дэд мөрийг олох мөр бөгөөд “think” нь олохыг хүсэж буй дэд мөр юм. Энэ нь өгөгдмөлдөө том жижиг жижиг жижиг үсгээр харгалздаг тул хайхыг хүсэж буй дэд мөрийн жижиг үсгээс болгоомжил.

➤ F5

товчийг дарна уу. Үр дүн :

Үүний дараа та "бодох" дэд мөрийн байрлалыг агуулсан дараах мессежийн хайрцаг г авах болно.

Арга-2: Мөр дэх жижиг жижиг жижиг мөрийг хайх

Хэрэв та VBA-г ашиглаж байгаа тохиолдолоос үл хамааран мөрөнд өөрийн хүссэн дэд мөрийг олохыг хүсвэл дараахыг дагана уу. арга.

Алхам-01 :

➤ Арга-1

9003

➤ F5

дарна уу. Үр дүн :

Дараа нь та "бодох" дэд мөрийн байрлалыг агуулсан дараах мессежийн хайрцаг г авах болно.

Та дараах кодыг ашиглан ижил зүйлийг хийж болно.

7704

Энд Текстийг харьцуулах сонголт жижиг жижиг жижиг жижиг мөрийг олох болно.

➤ F5

Үр дүн товчийг дарна уу:

Дараа нь Дараах "бодох" дэд мөрийн байрлалыг агуулсан мессежийн хайрцаг г авна.

Арга-3: InstrRev функцийг ашиглах VBA-д

Энд би a-ийн төгсгөлөөс дэд мөрийг олох аргыг зааж өгөх болнотэмдэгт мөр.

Алхам-01 :

➤ Арга-1

9745

➤ F5

Үр дүн :

Дараа нь та дараах Мессежийн хайрцаг хоёр дахь “I” дэд мөрийн байрлалыг агуулна. баруун тал.

Арга-4: Өгөгдлийн муж дахь мөр дэх дэд мөрийн байрлалыг олох

Хэрэв та тусгай тэмдэгтийг олохыг хүсвэл “@” Имэйл ID -д, дараа нь энэ аргыг дагана уу. Энэ зорилгоор би энд Байршил багана нэмсэн.

Алхам-01 :

➤Дагах Арга-1-ийн алхам-01

9734

Энэ нь FindSubstring (та өөр нэр ашиглаж болно) нэртэй функцийг үүсгэнэ

утга нь мөр агуулсан нүдний лавлагаа бөгөөд үүнийг Муж гэж зарласан.

Алхам -02 :

➤Гаралтыг сонгоно уу Э5 нүд

➤Дараах функцийг бичнэ үү ( VBA үүсгэсэн)

=FindSubstring(D5)

D5 нь мөр агуулсан нүд юм.

➤ дарна уу. ENTER

➤ Дүүргэх бариул Хэрэгслийг доош чирнэ үү

Үр дүн :

Дараа нь та Имэйл ID доторх “ @” тусгай тэмдэгтийн байрлалыг авах болно.

Ижил төстэй уншлага:

• Хэрхэн олох вэExcel дээр VBA ашиглан нүдэн доторх мөр (2 арга)
• Дараа нь Excel дээр VBA ашиглах (2 жишээ)
• Хэрхэн мөрийг олох вэ Excel дээрх VBA (8 жишээ)
• VBA Excel-ийн сүүлчийн мөрийг олох (5 арга)

Арга-5: Тодорхой дэд мөрийг шалгах a өгөгдлийн муж дахь мөр

Та Үр дүнгийн баганаас хамааран оюутнуудын нэрсийг Тэцэх эсвэл Харгалзахгүй гэж бичихийг хүсэж байна гэж бодъё. энд Тэцэх эсвэл Бүтэлгүй -г хаалтанд бичсэн байна. Энэ дэд мөрийг Үр дүн баганад олоод Тэцэх эсвэл бүтэлгүйтэх багананд бичихийн тулд энэ аргыг дагана уу.

Алхам-01 :

➤ Арга-1

7046

InStr(cell.value, "Pass") > 0 гэдэг нь тоо нь тэгээс их байх нөхцөл (нүдэнд “Өнөөх” байвал)   тэгвэл дараах мөр үргэлжлэх бөгөөд зэргэлдээх нүдэнд гаралтыг Өнгөрсөн<12 гэж өгнө>.

Хэрэв нөхцөл худал болвол нүдэнд ямар ч “Тэцэх” байхгүй гэсэн үг бол Үгүй бол -ын доорх мөр ажиллаж, гаралтын утгыг дараах хэсэгт өгнө. зэргэлдээ нүдийг Бүтэлгүй гэж бичнэ.

Энэ гогцоо нүд бүрт үргэлжлэх болно.

➤ F5 <товчийг дарна уу. 1>

Үр дүн :

Дараа нь Тэцэх эсвэл бүтэлгүйтэх хэсэгт та дараах үр дүнг авах болно. багана.

Арга-6: Мөр дэх тодорхой дэд мөрийг шалгаж, өгөгдлийг задлах

Би нэрлэгдсэн сурагчдыг олох арга замыг зааж өгнө. Майкл Оюутны нэр баганад байгаа бөгөөд энэ аргын VBA -г ашиглан тэдгээрийн харгалзах өгөгдлийг задлана.

Алхам-01 :

➤ Арга-1

1950

InStr(1, Range("B" & i), "Michael") > 0 нь байгаа нүдийг шалгах нөхцөл юм. B багана нь Майкл

Range("E" & icount & ":G" & icount) ыг агуулах бөгөөд таны гаралтын өгөгдлийг авахыг хүссэн муж бөгөөд Range("B" & i & ":D" & i).value утгуудыг өгөх болно. B баганаас D хүртэл.

➤ F5

<11 товчийг дарна уу>Үр дүн :

Үүний дараа та Майкл нэртэй оюутнуудын дараах задалсан өгөгдлийг авах болно.

Арга-7: Word-ын дэд мөрийг хайх

Хэрэв та дэд мөрийг үг хэлбэрээр олохыг хүсвэл fol энэ аргыг бага.

Алхам-01 :

➤ Арга-1

5579

Мөрт байгаа эсэхийг шалгах бөгөөд дараа нь түүний байрлалыг өгнө

➤ F5 дарна уу.

Үр дүн :

Дараа нь та дараах мессежийн хайрцагыг хүлээн авах бөгөөд энэ нь дараах байрлалд байгаа үг:6 (<11-ийн байрлал)>нь ).

Та тест хийж болноМөрт байхгүй үгэнд энэ кодыг гаргана уу.

➤Дараах кодыг бичнэ үү

4076

➤ F5 <дарна уу. 1>

Үр дүн :

Дараа нь Үг олдсонгүй гэсэн дараах мессежийн хайрцаг гарч ирнэ.

Арга-8: Instr болон LEFT функцийг ашиглах

Энд би мөр дэх дэд мөрийн байрлалыг олж, энэ дэд мөрийн өмнөх текстүүдийг ашиглан задлах аргыг тайлбарлах болно. VBA болон ЗҮҮН функц .

Алхам-01 :

➤ алхам-01 -ыг дагах 11>Арга-1

3540

j = InStr(txt, "is") нь дэд мөрийн байрлал бөгөөд Left(txt, j - 1) <11-ээс өмнөх дэд мөрүүдийг задлах болно>бол .

➤ F5

Үр дүн :

дарна уу. Дараа нь та дараах зурвасыг авах болно Энд ( бол -ын өмнөх дэд тэмдэгт).

Арга-9: Толбо Мөр дэх тодорхой дэд тэмдэгт

Та энэ аргыг дагаж Үр дүнгийн баганын халтны хаалтны өмнөх дүнг бүдүүн өнгөөр ​​будаж болно. d.

Алхам-01 :

➤ Аргын алхам-01 -ыг дагах 1

4502

txt = InStr(1, Cell, "(") эхний хаалтны байрлалыг буцаана, Cell.Characters(1, txt - 1).Font.Bold нь эхний хаалтны Bold дэд мөрийг хийнэ.

Алхам-02 :

➤ Үр дүнгийн баганыг сонгоно уу

➤Явах Хөгжүүлэгч Таб>> Макро Сонголт

Дараа нь Макро шидтэн гарч ирнэ.

➤ Boldingsubstring (VBA кодын нэр), дараа нь Run -г сонго.

Үр дүн :

Үүний дараа Үр дүн Багананд хүнлэгийг тодоор бичнэ.

Дасгалын хэсэг

Өөртөө дадлага хийхийн тулд бид доор дурдсантай адил Дасгал гэсэн хуудасны Дасгал хэсгийг өгсөн. Үүнийг өөрөө хий.

Дүгнэлт

Энэ нийтлэлд би VBA ашиглан дэд мөрийг олох хамгийн хялбар аргуудыг авч үзэхийг оролдсон. Excel дээр үр дүнтэй. Энэ нь танд хэрэг болно гэж найдаж байна. Хэрэв танд ямар нэгэн санал, асуулт байвал бидэнтэй чөлөөтэй хуваалцаарай.