Agar siz Excel VBA yordamida satrdagi matnni almashtirish yoʻllarini izlayotgan boʻlsangiz, ushbu maqola sizga foydali boʻladi. Muayyan matn qismini almashtirish matn satrlarini qayta yozishda ko'p vaqtni tejash imkonini beradi. Shunday qilib, keling, ushbu almashtirish vazifasi haqida tafsilotlarni bilish uchun asosiy maqolaga o'tamiz.

Ishchi kitobni yuklab olish

Excel VBA yordamida satrdagi matnni almashtirishning 5 ta usuli

Bu yerda bizda xodimlarning elektron pochta identifikatorlari bilan ba'zi yozuvlarini o'z ichiga olgan quyidagi ma'lumotlar to'plami mavjud. Bizning vazifamiz eski domen nomlarini yangilariga almashtirishdir. Quyidagi usullarda biz kerakli matnni VBA kodlari bilan almashtirish uchun ushbu ma'lumotlar to'plami va tasodifiy matn satrlari bilan ishlaymiz.

Biz Microsoft Excel 365 versiyasi bu yerda, siz o'zingizga qulay bo'lgan boshqa versiyalardan foydalanishingiz mumkin.

01-usul: Tasodifiy satrning n-pog'onasidan boshlab matnni almashtirish

Bu erda biz tasodifiy matn qatoridagi matnni turli boshlang'ich pozitsiyalar uchun almashtiramiz.

01-bosqich :

➤ Tuzuvchi yorlig'iga o'ting >> Kod Grup >> Visual Basic Variant.

Keyin, Visual Basic muharriri ochiladi.

➤ Qo'shish Yorliq >> Moduli Variant.

Bundan keyin Modul yaratiladi.

02-bosqich :

➤ Quyidagilarni yozingkod

1326

Bu yerda biz full_txt_str va updated_str ni String deb e'lon qildik va keyin full_txt_str ni tasodifiy matnga tayinladik. string- “Yuz mashina ellik mashina o‘n mashina” . Keyin VBA REPLACE funksiyasi ushbu tasodifiy qatorning Avtomobillar qismini Velosipedlar<10 bilan almashtirish uchun ishlatiladi> va 1 bu yerda ushbu satrning 1 pozitsiyasidan almashtirishni boshlash uchun ishlatiladi. Nihoyat, biz ushbu yangi matn qatorini updated_str ga tayinladik va xabarlar oynasi ( MsgBox ) bilan biz natijani ko'ramiz.

➤ F5 tugmasini bosing.

Keyin xabar qutisi almashtirilgan matnli yangi matn qatori bilan paydo bo'ladi Velosipedlar .

➤ Avtomobillar ning ikkinchi nusxasidan almashtirish jarayonini bajarish uchun quyidagi koddan foydalaning.

4074

Bu erda biz boshlang'ich pozitsiyani 14 deb ishlatdik, chunki biz Yuz mashina dan keyin satrning bir qismiga ega bo'lishni va <1 ni almashtirmoqchimiz> Mashinalar bu yerda.

➤ Kodni ishlash dan so'ng bizda quyidagi xabar qutisi paydo bo'ladi matn qatori matndan boshlab Ellik va Velosipedlar bilan Avtomobillar .

➤ Ushbu qatorning faqat oxirgi qismiga ega bo'lish uchun biz quyidagi kodni qo'llaymiz.

3741

Bu erda biz boshlang'ich pozitsiyadan 25 sifatida foydalandik chunki biz satrning Ellikta mashina dan keyingi qismiga ega boʻlishni va Avtomobillarni ni Velosipedlar bilan almashtirishni xohlaymiz. 10> bu yerda.

Nihoyat, bizda xabar qutisi boʻladi, unda satrning kerakli qismi bilan almashtiriladi. Velosipedlar .

Batafsil o'qing: Excel VBA: satrdagi belgilarni joylashuv bo'yicha almashtirish (4 samarali usul)

Metod-02: Excel VBA-dan foydalanib tasodifiy satrning n-chi sodir bo'lgan matnni almashtirish

Ushbu bo'limda biz turli xil hodisalar soni uchun tasodifiy qatordagi matnni yordami bilan almashtiramiz. VBA kodi.

Qadamlar :

➤ Usul-1 01-bosqich ga rioya qiling. 2>.

➤ Quyidagi kodni kiriting.

4025

Bu yerda biz full_txt_str va updated_str ni String deb e'lon qildik. va keyin full_txt_str tasodifiy matn qatoriga tayinlangan- “Yuz mashina ellik mashina o‘n mashina” . Shundan so'ng, REPLACE funktsiyasi ushbu tasodifiy qatorning Avtomobillar qismini Velosipedlar , 1 bu satrning 1 pozitsiyasidan almashtirishni boshlash uchun ishlatiladi va oxirgi 1 hodisalar sonini hisoblash uchun. Hisoblash raqami sifatida 1 dan foydalanib, biz faqat birinchi Avtomobillar ni almashtirishni aniqlaymiz. Nihoyat, biz ushbu yangi matn qatorini updated_str ga vaxabar qutisi ( MsgBox ) biz natijani ko'ramiz.

➤ F5 tugmasini bosing.

Keyin, yangi matn bilan xabar qutisi paydo bo'ladi Velosipedlar birinchi pozitsiyada Avtomobillar faqat.

➤ Avtomobillar ning dastlabki ikki nusxasini Velosipedlar <10 bilan almashtirish uchun> quyidagi koddan foydalaning.

7549

Bu yerda 2 Avtomobillar <2 ning dastlabki ikki nusxasini almashtirish uchun hisoblash raqami sifatida ishlatiladi>bilan Velosipedlar .

Kodni ishga tushirgandan so'ng siz birinchi ikkita matnni almashtirasiz Velosipedli li avtomobillar.

➤ Barcha misollarni almashtirish uchun quyidagi kodni qo'llang matnning Avtomobillar .

9697

Bu yerda REPLACE funksiyasining oxirgi argumenti 3 bu matn qatoridagi barcha Avtomobillar ni Velosipedlar bilan almashtirishni ko'rsatadigan hisoblash raqami.

➤ F5 tugmasini bosing.

Keyin biz satrda xabar qutisi o'rniga Velosipedlar matni mavjud.

Shunga o'xshash o'qishlar

• Matnni Excelda vagonni qaytarish bilan qanday almashtirish mumkin (4 silliq yondashuv)
• Excel VBA: qanday topish va Word hujjatidagi matnni almashtirish
• Excelda ma'lum bir belgidan keyin matnni qanday almashtirish (3 usul)
• Matnni almashtirishExcelda shartga asoslangan hujayra (5 ta oson usul)

03-usul: Tasodifiy satrdagi matnni InputBox bilan almashtiring

Bu erda biz ma'lum bir matnni almashtiramiz. VBA InputBox funksiyasi yordamida foydalanuvchi tomonidan aniqlanadigan matnli tasodifiy qator.

Qadamlar :

➤ Usul-1 ning 01-bosqich -ga amal qiling.

➤ Quyidagi kodni kiriting.

1273

Bu yerda biz e'lon qildik full_txt_str , new_txt va updated_str String sifatida va keyin full_txt_str tasodifiy matn qatoriga tayinlangan- “Yuz mashina ellik mashina o‘n mashina” . Tasodifiy satrdagi Avtomobillar bilan almashtiriladigan matn sifatida foydalanuvchi tomonidan belgilangan kiritish uchun biz InputBox funksiyasidan foydalandik va keyin bu qiymatni tayinladik. new_txt ga. Keyin REPLACE funksiyasi bu tasodifiy qatorning Avtomobillar qismini new_txt bilan almashtirish uchun ishlatiladi. Nihoyat, biz ushbu yangi matn qatorini updated_str ga tayinladik va xabarlar oynasi ( MsgBox ) bilan biz natijani ko'ramiz.

➤ F5 tugmasini bosing.

Shundan keyin Kirish oynasi paydo bo'ladi, unda siz yangi qatorga ega bo'lishni xohlagan istalgan matn qismini kiritishingiz mumkin.

➤ Velosipedlar yoki xohlagan boshqa matnni kiriting va OK tugmasini bosing.

Nihoyat, siz Yangi matn qatori bilan quyidagi natijaga ega bo'ling Velosipedlar da Avtomobillar pozitsiyasi.

Batafsil o'qing: Excel formulasida matnni qanday almashtirish mumkin (7 oson usul)

04-usul: Satrlar diapazonidagi matnni Excel VBA bilan almashtiring

Bu yerda biz gmail qismini almashtiramiz. Yangi domen ustunidagi domenlar bilan elektron pochta identifikatorlari va yangi elektron pochta identifikatorlarini to'plash uchun biz yangi ustun qo'shdik; Yakuniy elektron pochta identifikatori .

Qadamlar :

➤ 01-qadam ga rioya qiling Usul-1 .

➤ Quyidagi kodni kiriting.

8020

Bu yerda biz Usul-1 operatsiyasini bajarish uchun FOR siklidan foydalandik. 1> 4-qator to 13-qator . IF-THEN bayonoti yordamida biz D ustun elektron pochta identifikatorlarida “gmail” <10 mavjudligini tekshirdik> yoki yo'q va bu mezonni bajarish uchun “gmail” elektron pochta identifikatorlari qismi E ustunining yangi domenlari bilan almashtiriladi. F ustunida yangi identifikatorlarni yaratish uchun 10> . Aks holda F ustunining tegishli kataklarida bo'sh joy bo'ladi.

➤ F5 tugmasini bosing. .

Keyin, sizda yangi elektron pochta identifikatorlari Yakuniy elektron pochta identifikatori ustunida bo'ladi.

Batafsil o'qing: Ustundagi matnni topish va almashtirish uchun Excel VBA (2 ta misol)

05-usul: Matnni topish uchun foydalanuvchi kiritishi bilan satrlar diapazonidagi matnni almashtirish

Siz bilan quyidagi elektron pochta identifikatorlariyangi domenlar va oldingi identifikatorlarda nimani almashtirish kerakligini e'lon qiling, bu usulga rioya qilish orqali foydalanuvchi kiritishidan foydalanish mumkin.

Qadamlar :

➤ Usul-1 ning 01-bosqich -ga rioya qiling.

➤ Quyidagi kodni kiriting.

6430

Bu yerda biz ni aniqladik. qisman_matn ni String sifatida belgilang va keyin uni Kirish qutisi orqali foydalanuvchi tomonidan beriladigan qatorga tayinlang.

Keyinchalik, biz FOR siklidan 4-qator dan 13-qator gacha boʻlgan amalni bajarish uchun foydalandik. IF-THEN bayonida biz D ustunining elektron pochta identifikatorlarida “gmail” yoki borligini tekshirdik. emas. Va bu mezonni bajarish uchun “gmail” elektron pochta identifikatorlari qismi yaratish uchun E ustuni yangi domenlari bilan almashtiriladi. F ustunidagi yangi identifikatorlar. Aks holda F ustunining tegishli kataklarida bo'sh joy bo'ladi.

➤ F5 tugmasini bosing. .

Shundan so'ng sizda Kirish qutisi bo'ladi, bu erda siz elektron pochta identifikatorlari oralig'ida qidirmoqchi bo'lgan matnni kiritishingiz kerak bo'ladi (bu erda biz mavjud gmail ga kirdi) va keyin OK tugmasini bosing.

Nihoyat, bizda yangilangan elektron pochta identifikatorlari Yakuniy. Elektron pochta identifikatori ustun.

Batafsil: Excel VBA (Makro va UserForm) yordamida diapazondagi matnni toping va almashtiring

Amaliyot bo'limi

Mashq qilish uchuno'zingiz uchun biz Amaliyot nomli varaqda quyida bo'lgani kabi Amaliyot bo'limini taqdim etdik. Iltimos, buni o'zingiz bajaring.

Xulosa

Ushbu maqolada biz Excel VBA-dan foydalanib satrdagi matnni almashtirish usullarini ko'rib chiqishga harakat qildik. . Umid qilamanki, siz buni foydali deb topasiz. Agar sizda biron bir taklif yoki savol bo'lsa, ularni sharhlar bo'limida baham ko'ring.