Агуулгын хүснэгт
Хэрэв та Excel VBA ашиглан мөр дэх текстийг солих арга хайж байгаа бол энэ нийтлэл танд хэрэгтэй байх болно. Текстийн тодорхой хэсгийг солих нь текстийн мөрийг дахин бичихэд ихээхэн цаг хэмнэнэ. Тиймээс, энэ орлуулах ажлын талаар дэлгэрэнгүй мэдээлэл авахын тулд үндсэн нийтлэл рүү орцгооё.
Дасгалын номыг татаж авах
String.xlsm дахь текстийг солих
Excel VBA-г ашиглан мөрт текстийг солих 5 арга
Энд бид ажилчдын имэйл хаяг бүхий зарим бүртгэлийг агуулсан дараах өгөгдлийн багцтай байна. Бидний даалгавар бол хуучин домэйн нэрийг шинэ нэрээр солих явдал юм. Дараах аргуудын хувьд бид хүссэн текстээ VBA кодоор солихын тулд энэ өгөгдлийн багцтай зарим санамсаргүй текст мөрүүдтэй ажиллах болно.
Бид Microsoft Excel 365 хувилбарыг эндээс та өөрт тохирох хувилбарыг ашиглаж болно.
Арга-01: Санамсаргүй мөрийн n-р байрлалаас эхлэн текстийг солих
Энд бид өөр өөр эхлэлийн байрлалд зориулж санамсаргүй текстийн мөрт текстийг орлуулах болно.
Алхам-01 :
➤ Хөгжүүлэгч таб руу очно уу. >> Код Групп >> Visual Basic Сонголт.
Дараа нь Visual Basic Editor нээнэ.
➤ Оруулах Таб >> Модуль Сонголт руу очно уу.
Үүний дараа Модуль үүснэ.
Алхам-02 :
➤ Дараахыг бичнэ үүкод
9368
Энд бид full_txt_str ба updated_str -г мөр гэж зарлаж, full_txt_str -г санамсаргүй текст рүү оноов. string- “Зуун машин Тавин машин Арван машин” . Дараа нь VBA REPLACE функц нь энэ санамсаргүй хэлхээний Машин хэсгийг Унадаг дугуй<10-оор солиход хэрэглэгддэг> ба 1 -г энэ мөрийн 1 байрлалаас солих ажлыг эхлүүлэхэд ашиглана. Эцэст нь бид энэ шинэ текстийн мөрийг updated_str -д оноож, мессежийн хайрцаг ( MsgBox )-д бид үр дүнг харах болно.
➤ F5 товчийг дарна уу.
Дараа нь мессежийн хайрцаг Унадаг дугуй <гэсэн солигдсон текст бүхий шинэ текст мөр гарч ирнэ. 2>.
➤ Машин -ын хоёр дахь хувилбараас солих процессыг хийхийн тулд дараах кодыг ашиглана уу.
9570
Энд бид 14 эхлэлийн байрлалыг ашигласан, учир нь бид Зуун машин -ын дараа мөрийн хэсгийг авч, <1-г солихыг хүсэж байна> Машинууд энд.
➤ Кодоо ажиллуулсны дараа бид дараах мэдээний хайрцагтай болно. текстийн мөр текстээс эхлэн Тавин болон Унадаг дугуйтай <байрлалд 1> Машин .
➤ Энэ мөрийн зөвхөн сүүлийн хэсгийг авахын тулд бид дараах кодыг хэрэглэж байна.
9231
Энд бид эхлэх байрлалыг 25 гэж ашигласан Учир нь бид Тавин машин -ын дараа мөрийн хэсгийг авахыг хүсч байгаа бөгөөд Машин -г Унадаг дугуйгаар солихыг хүсэж байна. 10> энд.
Эцэст нь бид мессежийн хайрцагтай мөрийн хүссэн хэсгийг -ээр солих болно. Унадаг дугуй .
Дэлгэрэнгүй унших: Excel VBA: Мөр дэх тэмдэгтийг байрлалаар солих (4 үр дүнтэй арга)
Арга-02: Excel VBA-г ашиглан санамсаргүй мөрийн n-р тохиолдлыг орлуулах текстийг орлуулах
Энэ хэсэгт бид өөр өөр тохиолдлын тоогоор санамсаргүй мөрт байгаа текстийг тусламжаар солих болно. VBA кодын.
Алхам :
➤ Арга-1<-ийн Алхам-01 -ыг дагаж мөрдөөрэй. 2>.
➤ Дараах кодыг бичнэ үү.
1943
Энд бид full_txt_str болон updated_str -г мөр гэж зарласан. дараа нь full_txt_str санамсаргүй текст мөр- “Зуун машин тавин машин арван машин” -д оноов. Үүний дараа REPLACE функц нь энэ санамсаргүй хэлхээний Машин хэсгийг Унадаг дугуй <-аар солиход хэрэглэгддэг. 9>, 1 -г энэ мөрийн 1 байрлалаас солихыг эхлүүлэхэд ашигладаг бөгөөд эцсийн 1 тохиолдлын тоог тоолоход зориулагдсан. Тоолох тоо болгон 1 -г ашигласнаар бид зөвхөн эхний машин -ыг солихыг тодорхойлж байна. Эцэст нь бид энэ шинэ текстийн мөрийг updated_str -д оноож,мессежийн хайрцаг ( MsgBox ) бид үр дүнг харах болно.
➤ F5 товчийг дарна уу.
Дараа нь, мессежийн хайрцаг нь Машин <-ийн эхний байрлалд Унадаг дугуй шинэ тексттэй гарч ирнэ. 2>зөвхөн.
➤ Машин -ийн эхний хоёр тохиолдлыг Унадаг дугуй <10-оор солиход зориулагдсан> дараах кодыг ашиглана уу.
5764
Энд 2 -г Машин <2-ын эхний хоёр тохиолдлыг орлуулах тоолох дугаар болгон ашигладаг> Унадаг дугуйтай .
Кодыг ажиллуулсны дараа та эхний хоёр бичвэрийг солих болно Унадаг дугуйтай машин.
➤ Бүх тохиолдлуудыг солихын тулд дараах кодыг ашиглана уу. текстийн Машин .
3835
Энд REPLACE функцийн сүүлийн аргумент нь 3 бөгөөд энэ нь текстийн мөрөнд байгаа бүх Машин -г Унадаг дугуй -ээр сольж байгааг харуулсан тоолох тоо.
➤ F5 товчийг дарна уу.
Дараа нь бид Дараах мессежийн хайрцгийг Унадаг дугуй гэсэн орлуулсан бичвэртэй байна.
Ижил төстэй уншлага
- Excel-д текстийг тэрэгний буцаалтаар хэрхэн солих вэ (4 жигд хандлага)
- Excel VBA: Хэрхэн олох ба Word баримт дахь текстийг солих
- Excel дээр тодорхой тэмдэгтийн дараа текстийг хэрхэн солих вэ (3 арга)
- Текстийг солихExcel-ийн нөхцөл дээр суурилсан нүд (5 хялбар арга)
Арга-03: Санамсаргүй мөр доторх текстийг InputBox-оор солих
Энд бид тодорхой текстийг орлуулах болно. VBA InputBox функцийн -ын тусламжтайгаар хэрэглэгч тодорхойлох текст бүхий санамсаргүй мөр.
Алхам :
➤ Арга-1 -ийн Алхам-01 -ыг дагаж мөрдөөрэй.
➤ Дараах кодыг бичнэ үү.
9157
Энд бид зарлалаа. full_txt_str , new_txt , мөн updated_str -г мөр болгож full_txt_str -г санамсаргүй текстийн мөр-<9-д оноов> “Зуун машин тавин машин арван машин” . Хэрэглэгчийн тодорхойлсон оролтыг санамсаргүй мөр дэх Машин -ээр солих текст болгон оруулахын тулд бид InputBox функцийг ашиглаж, дараа нь энэ утгыг өгсөн. new_txt руу. Дараа нь REPLACE функц нь энэ санамсаргүй мөрийн Машин хэсгийг new_txt -ээр солиход хэрэглэгддэг. Эцэст нь, бид энэ шинэ текстийн мөрийг updated_str -д өгсөн бөгөөд мессежийн хайрцаг ( MsgBox )-д бид үр дүнг харах болно.
➤ F5 товчийг дарна уу.
Үүний дараа Оруулах хайрцаг гарч ирэх бөгөөд та шинэ мөрөнд оруулахыг хүссэн текстийнхээ хэсгийг оруулах боломжтой.
➤ Унадаг дугуй эсвэл өөр хүссэн текстээ бичээд OK товчийг дарна уу.
Эцэст нь та Унадаг дугуй шинэ тексттэй шинэ текст мөртэй дараах үр дүн гарна Машин -ын байрлал.
Дэлгэрэнгүй: Excel Формула дахь текстийг хэрхэн солих вэ (7 хялбар арга)
Арга-04: Мөр доторх текстийг Excel VBA-аар солих
Энд бид gmail хэсгийг орлуулах болно. Шинэ домэйн багананд байгаа домэйн бүхий и-мэйл ids, мөн шинэ имэйл id-г хуримтлуулахын тулд бид шинэ багана оруулсан; Эцсийн имэйлийн дугаар .
Алхам :
➤ Алхам-01 -г дагах -ийн Арга-1 .
➤ Дараах кодыг бичнэ үү.
7605
Энд бид FOR гогцоо ашиглан <-аас үйлдлийг гүйцэтгэв. 1> 4-р мөр -аас 13 хүртэл. IF-THEN мэдэгдлийн тусламжтайгаар бид D баганы имэйл ID-д “gmail” <10 агуулагдаж байгаа эсэхийг шалгасан> эсвэл үгүй, мөн энэ шалгуурыг хангахын тулд имэйл хаягийн “gmail” хэсгийг Е баганын шинэ домайнуудаар солино. 10> F баганад шинэ ID-г үүсгэнэ үү. Үгүй бол F баганын харгалзах нүднүүдэд хоосон зай байх болно.
➤ F5 дарна уу. .
Дараа нь Эцсийн Имэйлийн Id багананд шинэ имэйл ID-ууд байх болно.
Цааш унших: Excel VBA баган дахь текстийг олох, солих (2 жишээ)
Арга-05: Текстийг олохын тулд хэрэглэгчийн оруулсан мөрийн хүрээнд текстийг солих
Та дараах цахим шуудангийн дугааруудшинэ домэйнууд болон өмнөх id-д юу солихыг мэдэгдэнэ үү. Энэ аргыг дагаж хэрэглэгчийн оролтыг ашиглаж болно.
Алхам :
➤ Арга-1 -ийн Алхам-01 -ыг дагаж мөрдөөрэй.
➤ Дараах кодыг бичнэ үү.
4140
Энд бид -г тодорхойлсон. хэсэгчилсэн_текст -г мөр болгон, дараа нь Оролтын хайрцаг -аар дамжуулан хэрэглэгч өгөх мөрт онооно.
Дараа нь бид FOR гогцоо -г ашиглан 4-р мөр -аас 13-р мөр хүртэлх үйлдлийг гүйцэтгэсэн. Хэрэв-THEN мэйл, бид D баганын мэйл id-д “gmail” агуулж байгаа эсэхийг шалгасан. үгүй. Мөн энэ шалгуурыг хангахын тулд имэйл хаягийн “gmail” хэсэг нь Е баганын шинэ домайнуудаар солигдох болно. F баганад байгаа шинэ ids. Үгүй бол F баганын харгалзах нүднүүдэд хоосон зай байх болно.
➤ F5 товчийг дарна уу. .
Үүний дараа та Оролтын хайрцаг -тэй байх бөгөөд үүнд та имэйл id-н хүрээнд хайхыг хүссэн текстээ бичих хэрэгтэй (энд бид энд байна. gmail ) оруулаад OK товчийг дарна уу.
Эцэст нь бид Эцсийн хэсэгт шинэчлэгдсэн имэйл ID-г авч байна. Имэйлийн ID багана.
Дэлгэрэнгүй унших: Excel VBA (Макро болон UserForm) ашиглан муж доторх текстийг хайж олох, солих
Дасгалын хэсэг
Дадлага хийхэд зориулагдсанӨөрийгөө бид Дасгал нэртэй хуудсанд доорх шиг Дадлага хэсгийг өгсөн. Үүнийг өөрөө хийнэ үү.
Дүгнэлт
Энэ нийтлэлд бид Excel VBA ашиглан мөр дэх текстийг солих аргуудыг авч үзэхийг оролдсон. . Энэ нь танд хэрэг болно гэж найдаж байна. Хэрэв танд ямар нэгэн санал, асуулт байвал коммент хэсэгт хуваалцаарай.
