Mündəricat
Əgər siz Excel VBA istifadə edərək sətirdə mətni əvəz etmək yollarını axtarırsınızsa, bu məqaləni faydalı tapa bilərsiniz. Müəyyən mətn hissəsinin dəyişdirilməsi mətn sətirlərini yenidən yazmağa xeyli vaxta qənaət edə bilər. Beləliklə, bu əvəzetmə tapşırığı haqqında təfərrüatları bilmək üçün əsas məqaləyə keçək.
İş kitabını endirin
String.xlsm-də Mətni dəyişdirin
Excel VBA istifadə edərək sətirdə mətni əvəz etməyin 5 yolu
Burada işçilərin e-poçt identifikatorları ilə bəzi qeydlərini ehtiva edən aşağıdakı məlumat dəstinə sahibik. Bizim vəzifəmiz köhnə domen adlarını yeniləri ilə əvəz etməkdir. Aşağıdakı üsullarda biz istədiyiniz mətni VBA kodları ilə əvəz etmək üçün bəzi təsadüfi mətn sətirləri ilə birlikdə bu verilənlər toplusu ilə işləyəcəyik.
Biz
Metod-01: Təsadüfi sətirin n-ci mövqeyindən başlayaraq mətni dəyişdirin
Burada biz müxtəlif başlanğıc mövqeləri üçün təsadüfi mətn sətirindəki mətni əvəz edəcəyik.
Addım-01 :
➤ Developer Tabına keçin >> Kod Qrup >> Visual Basic Seçim.
Sonra, Visual Basic Redaktoru açılacaq.
➤ Daxil edin Tabına >> Modul Seçiminə keçin.
Bundan sonra Modul yaradılacaq.
Addım-02 :
➤ Aşağıdakıları yazınkod
2088
Burada biz full_txt_str və updated_str -ni String kimi elan etdik və sonra full_txt_str təsadüfi mətnə təyin etdik string- “Yüz Maşın Əlli Maşın On Maşın” . Sonra VBA REPLACE funksiyası bu təsadüfi sətirin Avtomobillər hissəsini Velosipedlər<10 ilə əvəz etmək üçün istifadə olunur> və 1 burada bu sətirin 1 mövqeyindən dəyişdirməyə başlamaq üçün istifadə olunur. Nəhayət, biz bu yeni mətn sətirini updated_str -a təyin etdik və mesaj qutusu ( MsgBox ) ilə nəticəni görəcəyik.
➤ F5 düyməsini basın.
Sonra mesaj qutusu əvəz edilmiş mətnlə yeni mətn sətri ilə Velosipedlər
➤ Maşınların ikinci instansiyasından dəyişdirmə prosesini yerinə yetirmək üçün aşağıdakı kodu istifadə edin.
5346
Burada biz başlanğıc mövqeyini 14 kimi istifadə etdik, çünki biz Yüz Maşın dan sonra sətir hissəsinə sahib olmaq və <1-i əvəz etmək istəyirik> Maşınlar burada.
➤ Kodu çalışdırdıqdan sonra bizdə aşağıdakı mesaj qutusu olacaq mətn sətri mətndən başlayaraq Əlli və Velosipedlər ilə
➤ Bu sətirin yalnız sonuncu hissəsinə malik olmaq üçün biz aşağıdakı kodu tətbiq edirik.
5113
Burada biz başlanğıc mövqeyini 25 kimi istifadə etdik çünki biz Fifty Cars dan sonra sətir hissəsinə sahib olmaq və Maşınları Velosipedlər ilə əvəz etmək istəyirik. 10> burada.
Nəhayət, bizdə mesaj qutusu olacaq, sətirin istədiyimiz hissəsi ilə əvəz olunacaq. Velosipedlər .
Daha çox oxuyun: Excel VBA: Sətirdəki Simvolları Mövqe üzrə Dəyişdirin (4 Effektiv Yol)
Metod-02: Excel VBA-dan istifadə edərək təsadüfi sətirin n-ci baş verməsi üçün mətni əvəz edin
Bu bölmədə biz köməyi ilə müxtəlif sayda təsadüflər üçün təsadüfi sətirdəki mətni əvəz edəcəyik. VBA kodunun.
Addımlar :
➤ Metod-1-in Addım-01 -ni izləyin. 2>.
➤ Aşağıdakı kodu yazın.
2534
Burada biz full_txt_str və updated_str -ni String kimi elan etdik. və sonra full_txt_str təsadüfi mətn sətirinə təyin edildi- “Yüz Maşın Əlli Maşın On Maşın” . Bundan sonra REPLACE funksiyası bu təsadüfi sətirin Maşınlar hissəsini Velosipedlər
➤ F5 düyməsini basın.
Sonra, mesaj qutusu yeni mətnlə Velosipedlər Maşınlar <-un ilk mövqesində görünəcək 2>yalnız.
➤ Maşınların ilk iki nümunəsini Velosipedlər <10 ilə əvəz etmək üçün> aşağıdakı kodu istifadə edin.
3071
Burada 2 Maşınlar <2-nin ilk iki nümunəsini əvəz etmək üçün hesablama nömrəsi kimi istifadə olunur> Velosipedlər ilə.
Kodu işlətdikdən sonra ilk iki mətni <əvəz edəcəksiniz. 9> Velosipedli avtomobillər.
➤ Bütün nümunələri əvəz etmək üçün aşağıdakı kodu tətbiq edin mətnin Avtomobillər .
6425
Burada REPLACE funksiyasının son arqumenti 3 dir. mətn sətirində Maşınların bütününün Velosipedlərin ilə əvəz edilməsini göstərən sayma nömrəsi.
➤ F5 düyməsini basın.
Sonra biz sətirdə əvəzlənmiş mətn Velosipedlər olan aşağıdakı mesaj qutusu olsun.
Oxşar oxunuşlar
- Excel-də mətni daşınma ilə necə əvəz etmək olar (4 hamar yanaşma)
- Excel VBA: Tapmaq və necə etmək olar Word Sənədində Mətni Dəyişdirin
- Excel-də xüsusi simvoldan sonra mətni necə əvəz etmək olar (3 üsul)
- Mətni dəyişdirinExcel-də Vəziyyətə Əsaslanan Hüceyrə (5 Asan Metod)
Metod-03: Təsadüfi Sətirdə Mətni InputBox ilə əvəz edin
Burada biz müəyyən bir mətni əvəz edəcəyik. VBA InputBox funksiyası vasitəsilə istifadəçi tərəfindən müəyyən ediləcək mətnlə təsadüfi sətir.
Addımlar :
➤ Metod-1 -in Addım-01 -ni izləyin.
➤ Aşağıdakı kodu daxil edin.
5043
Burada biz elan etdik full_txt_str , new_txt və updated_str String kimi və sonra full_txt_str təsadüfi mətn sətirinə təyin edildi- “Yüz Maşın Əlli Maşın On Maşın” . Təsadüfi sətirdə Avtomobillər ilə əvəz olunacaq mətn kimi istifadəçi tərəfindən müəyyən edilmiş girişə sahib olmaq üçün biz InputBox funksiyasından istifadə etdik və sonra bu dəyəri təyin etdik. new_txt üçün. Sonra REPLACE funksiyası bu təsadüfi sətirin Maşınlar hissəsini new_txt ilə əvəz etmək üçün istifadə olunur. Nəhayət, biz bu yeni mətn sətirini updated_str -ə təyin etdik və mesaj qutusu ( MsgBox ) ilə nəticəni görəcəyik.
➤ F5 düyməsini basın.
Bundan sonra, yeni sətirdə olmasını istədiyiniz hər hansı mətn hissəsini daxil edə biləcəyiniz Daxiletmə qutusu görünəcək.
➤ Velosipedlər və ya istədiyiniz hər hansı digər mətni yazın və sonra OK düyməsini basın.
Nəhayət, yeni mətni olan yeni mətn sətri ilə aşağıdakı nəticə əldə edin Velosipedlər Maşınlar mövqeyi.
Ətraflı oxuyun: Excel Formulasında Mətni Necə Dəyişdirmək olar (7 Asan Yol)
Metod-04: Sətirlər diapazonunda mətni Excel VBA ilə əvəz edin
Burada biz gmail qismini əvəz edəcəyik. Yeni Domen sütununda domenləri olan e-poçt idləri və yeni e-poçt idlərini toplamaq üçün yeni sütun əlavə etdik; Son E-poçt İd-si .
Addımlar :
➤ Addım-01 izləyin Metod-1 .
➤ Aşağıdakı kodu daxil edin.
3410
Burada FOR döngəsindən istifadə etdik. 1> 4-cü sətir -dən 13-cü sətir . IF-THEN ifadəsinin köməyi ilə biz D sütununun e-poçt identifikatorlarında “gmail” <10-un olub olmadığını yoxladıq> və ya yox və bu meyarın yerinə yetirilməsi üçün e-poçt identifikatorlarının “gmail” hissəsi Sütun E
➤ F5 düyməsini basın. .
Sonra, yeni e-poçt identifikatorlarınız Yekun E-poçt İdentifikatoru sütununda olacaq.
Ətraflı oxuyun: Sütunda Mətni Tapmaq və Dəyişmək üçün Excel VBA (2 Nümunə)
Metod-05: Mətni Tapmaq üçün İstifadəçi Girişi ilə Sətirlər Aralığında Mətni əvəz edin
Siz ilə aşağıdakı e-poçt identifikatorlarıyeni domenlər və əvvəlki identifikatorlarda nəyin əvəz olunacağını bəyan edin. Bu metoda əməl etməklə istifadəçi daxiletməsindən istifadə edilə bilər.
Addımlar :
➤ Metod-1 in Addım-01 -ni izləyin.
➤ Aşağıdakı kodu yazın.
9108
Burada biz -ni təyin etdik. qismən_mətn -ni String olaraq təyin edin və sonra onu Daxiletmə Qutusu vasitəsilə istifadəçi tərəfindən veriləcək sətirə təyin edin.
Daha sonra biz 4-cü sətir dan 13-cü sətir əməliyyatını yerinə yetirmək üçün FOR döngəsindən istifadə etdik və istifadə etdik. ƏGƏR-THEN ifadəsi ilə biz D sütununun e-poçt identifikatorlarında “gmail” və ya ehtiva edib-etmədiyini yoxladıq yox. Və bu kriteriyanın yerinə yetirilməsi üçün e-poçt identifikatorlarının “gmail” hissəsi yaratmaq üçün Sütun E yeni domenləri ilə əvəz olunacaq. F sütununda yeni idlər. Əks halda F sütununun müvafiq xanalarında boşluq olacaq.
➤ F5 düyməsini basın. .
Bundan sonra sizdə Daxiletmə qutusu olacaq, burada e-poçt identifikatorları diapazonunda axtarmaq istədiyiniz mətni yazmalısınız (burada bizdə gmail daxil edin) və sonra OK düyməsini basın.
Nəhayət, biz yenilənmiş e-poçt identifikatorlarımızı Finalda təqdim edirik. E-poçt İd sütun.
Ətraflı oxuyun: Excel VBA (Makro və UserForm) ilə diapazonda mətni tapın və dəyişdirin
Təcrübə Bölməsi
Məşq etmək üçünözünüz üçün Təcrübə adlı vərəqdə aşağıdakı kimi bir Təcrübə bölməsini təqdim etdik. Zəhmət olmasa özünüz edin.
Nəticə
Bu məqalədə Excel VBA-dan istifadə edərək sətirdəki mətni əvəz etməyin yollarını əhatə etməyə çalışdıq. . Ümid edirəm ki, faydalı tapacaqsınız. Hər hansı təklif və ya sualınız varsa, şərh bölməsində paylaşın.
