Excel VBA: Jinsi ya Kubadilisha Maandishi katika Kamba (Njia 5 Bora)

Hugh West

20-07-2023 Macros & Excel VBA
  • Shiriki Hii
Hugh West

Iwapo unatafuta njia za kubadilisha maandishi kwenye mfuatano kwa kutumia Excel VBA , basi utapata makala haya kuwa muhimu. Kubadilisha sehemu fulani ya maandishi kunaweza kuokoa muda mwingi katika kuandika maandishi tena. Kwa hivyo, hebu tuingie katika makala kuu ili kujua maelezo zaidi kuhusu kazi hii ya kubadilisha.

Pakua Kitabu cha Kazi

Badilisha Maandishi katika String.xlsm

Njia 5 za Kubadilisha Maandishi Katika Mfuatano Kwa Kutumia Excel VBA

Hapa, tuna seti ya data ifuatayo iliyo na baadhi ya rekodi za wafanyakazi walio na vitambulisho vyao vya barua pepe. Kazi yetu ni kubadilisha majina ya vikoa vya zamani na vipya. Katika mbinu zifuatazo, tutafanya kazi na seti hii ya data pamoja na baadhi ya mifuatano ya maandishi nasibu ili kubadilisha maandishi unayotaka na misimbo ya VBA .

Tumetumia 9>Toleo la Microsoft Excel 365 hapa, unaweza kutumia matoleo mengine yoyote kulingana na urahisi wako.

Mbinu-01: Badilisha Maandishi Kuanzia n-th Nafasi ya Mfuatano Nasibu

Hapa, tutabadilisha maandishi katika mfuatano wa maandishi nasibu kwa nafasi tofauti za kuanzia.

Hatua-01 :

➤ Nenda kwenye Kichupo cha Msanidi >> Msimbo Kikundi >> Chaguo la Msingi la Kuonekana .

Kisha, Kihariri cha Msingi cha Visual itafunguka.

➤ Nenda kwenye Ingiza Kichupo >> Moduli Chaguo.

Baada ya hapo, Moduli itaundwa.

Hatua-02 :

➤ Andika yafuatayomsimbo 

5808

Hapa, tumetangaza full_txt_str na updated_str kama String na kisha kuweka full_txt_str kwa maandishi nasibu. kamba- "Magari Mia Magari Hamsini Magari Kumi" . Kisha kipengele cha VBA REPLACE kinatumika kuchukua nafasi ya Magari sehemu ya mfuatano huu nasibu na Baiskeli na 1 inatumika hapa kuanza ubadilishaji kutoka nafasi 1 ya mfuatano huu. Hatimaye, tumekabidhi mfuatano huu mpya wa maandishi kwa updated_str na kwa kisanduku cha ujumbe ( MsgBox ) tutaona matokeo.

0>➤ Bonyeza F5 .

Kisha kisanduku cha ujumbe kitaonekana chenye mfuatano mpya wa maandishi na maandishi yaliyobadilishwa Baiskeli .

➤ Kufanya mchakato wa kubadilisha kutoka tukio la pili la Magari tumia msimbo ufuatao.

1753

Hapa, tumetumia nafasi ya kuanzia kama 14 kwa sababu tunataka kuwa na sehemu ya mfuatano baada ya Magari Mamia na kubadilisha Magari hapa.

➤ Baada ya kuendesha msimbo, tutakuwa na sanduku la ujumbe lifuatalo. na mfuatano wa maandishi kuanzia maandishi Hamsini na Baiskeli katika nafasi ya 1> Magari .

➤ Kwa kuwa na sehemu ya mwisho tu ya mfuatano huu tunatumia msimbo ufuatao.

5949

Hapa, tumetumia nafasi ya kuanzia kama 25 kwa sababu tunataka kuwa na sehemu ya mfuatano baada ya Magari Hamsini na kubadilisha Magari na Baiskeli 10> Baiskeli .

Soma Zaidi: Excel VBA: Badilisha Tabia katika Mfuatano kwa Nafasi (Njia 4 Bora)

Mbinu-02: Maandishi Mbadala ya n-th Kutokea kwa Mfuatano Nasibu Kwa Kutumia Excel VBA

Katika sehemu hii, tutabadilisha maandishi katika mfuatano nasibu kwa idadi tofauti ya matukio kwa usaidizi. ya VBA code.

Hatua :

➤ Fuata Hatua-01 ya Njia-1 .

➤ Andika msimbo ufuatao.

4507

Hapa, tumetangaza full_txt_str na updated_str kama String na kisha kupewa full_txt_str kwa mfuatano wa maandishi nasibu- “Magari Mia Hamsini Magari Kumi” . Baada ya hapo, REPLACE chaguo la kukokotoa hutumika kubadilisha Magari sehemu ya mfuatano huu nasibu na Baiskeli 9>, 1 inatumika hapa kuanza ubadilishaji kutoka nafasi 1 ya mfuatano huu, na ya mwisho 1 ni kwa kuhesabu idadi ya matukio. Kwa kutumia 1 kama nambari ya kuhesabu tunafafanua uingizwaji wa Magari tu ya kwanza. Hatimaye, tumekabidhi mfuatano huu mpya wa maandishi kwa updated_str na akisanduku cha ujumbe ( MsgBox ) tutaona matokeo.

➤ Bonyeza F5 .

Baadaye, sanduku la ujumbe litaonekana na maandishi mapya Baiskeli katika nafasi ya kwanza ya Magari 2>tu.

➤ Kwa kubadilisha matukio mawili ya kwanza ya Magari na Baiskeli tumia msimbo ufuatao.

3703

Hapa, 2 inatumika kama nambari ya kuhesabu kuchukua nafasi ya matukio mawili ya kwanza ya Magari na Baiskeli .

Baada ya kutekeleza msimbo, utakuwa na ubadilishanaji wa maandishi mawili ya kwanza 9>Magari yenye Baiskeli .

➤ Tumia nambari ifuatayo kuchukua nafasi ya matukio yote ya maandishi Magari .

1151

Hapa, hoja ya mwisho ya BADILISHA tendakazi ni 3 ambayo ni kuhesabu nambari inayoonyesha uingizwaji wa Magari yote na Baiskeli katika mfuatano wa maandishi.

➤ Bonyeza F5 .

Baadaye, tutafanya kuwa na kisanduku cha ujumbe kifuatacho chenye maandishi yaliyobadilishwa Baiskeli katika mfuatano.

Usomaji Sawa

  • Jinsi ya Kubadilisha Maandishi kwa Urejeshaji wa Gari katika Excel (Njia 4 Mlaini)
  • Excel VBA: Jinsi ya Kupata na Kutafuta Badilisha Maandishi katika Hati ya Neno
  • Jinsi ya Kubadilisha Maandishi baada ya Herufi Maalum katika Excel (Mbinu 3)
  • Badilisha Maandishi ya aSeli Kulingana na Hali katika Excel (Njia 5 Rahisi)

Mbinu-03: Badilisha Maandishi katika Mfuatano Nasibu na Kisanduku cha Kuingiza

Hapa, tutabadilisha maandishi fulani ya mfuatano wa nasibu wenye maandishi ambayo yatafafanuliwa na mtumiaji kwa usaidizi wa kitendakazi cha VBA InputBox .

Hatua :

➤ Fuata Hatua-01 ya Njia-1 .

➤ Andika msimbo ufuatao.

5677

Hapa, tumetangaza full_txt_str , new_txt , na updated_str kama String na kisha kupewa full_txt_str kwa mfuatano wa maandishi nasibu- "Magari Mia Hamsini Magari Kumi" . Ili kuwa na ingizo lililobainishwa na mtumiaji kama maandishi ya kubadilishwa na Magari katika mfuatano wa nasibu, tumetumia kitendakazi cha InputBox na kisha kuweka thamani hii. kwa txt_mpya . Kisha kipengele cha REPLACE kinatumika kubadilisha Magari sehemu ya mfuatano huu nasibu na new_txt . Hatimaye, tumeweka mfuatano huu mpya wa maandishi kwa updated_str na kwa kisanduku cha ujumbe ( MsgBox ) tutaona matokeo.

0>➤ Bonyeza F5.

Baada ya hapo, Sanduku la Kuingiza itaonekana ambapo unaweza kuingiza sehemu yoyote ya maandishi ambayo ungependa kuwa nayo kwenye mfuatano mpya.

➤ Andika Baiskeli au maandishi mengine yoyote unayotaka kisha ubofye Sawa .

Mwishowe, utaweza kuwa na matokeo yafuatayo kwa mfuatano mpya wa maandishi kuwa na maandishi mapya Baiskeli ndaninafasi ya Magari .

Soma Zaidi: Jinsi ya Kubadilisha Maandishi katika Mfumo wa Excel (Njia 7 Rahisi)

Mbinu-04: Badilisha Maandishi katika Msururu wa Mifuatano na Excel VBA

Hapa, tutabadilisha gmail sehemu ya vitambulisho vya barua pepe vilivyo na vikoa katika safuwima ya Kikoa Kipya , na ili kukusanya vitambulisho vipya vya barua pepe tumeingiza safu wima mpya; Kitambulisho cha Mwisho cha Barua Pepe .

Hatua :

➤ Fuata Hatua-01 ya Njia-1 .

➤ Andika msimbo ufuatao.

2353

Hapa, tumetumia FOR kitanzi kutekeleza operesheni kutoka 1> Safu ya 4 hadi Safu ya 13 . Kwa usaidizi wa taarifa ya IF-THEN , tumeangalia kama vitambulisho vya barua pepe vya Safu wima D vina “gmail” au la, na ili kutimiza kigezo hiki “gmail” sehemu ya vitambulisho vya barua pepe itabadilishwa na vikoa vipya vya Safu wima E ili kuunda vitambulisho vipya katika Safuwima F . Vinginevyo utakuwa na tupu katika visanduku sambamba vya Safuwima F .

➤ Bonyeza F5 .

Kisha, utakuwa na vitambulisho vipya vya barua pepe katika Kitambulisho cha Mwisho cha Barua pepe safu.

Soma Zaidi: Excel VBA  kupata na Kubadilisha Maandishi katika Safu wima (Mifano 2)

Mbinu-05: Badilisha Maandishi katika Mifuatano Mipya na Ingizo la Mtumiaji ili Kupata Maandishi

Unaweza kubadilisha vitambulisho vya barua pepe vifuatavyo navikoa vipya na utangaze cha kubadilisha katika vitambulisho vya awali ambavyo ingizo la mtumiaji linaweza kutumika kwa kufuata mbinu hii.

Hatua :

➤ Fuata Hatua-01 ya Njia-1 .

➤ Andika msimbo ufuatao.

8281

Hapa, tumefafanua partial_text kama String na kisha kuikabidhi kwa mfuatano ambao utatolewa na mtumiaji kupitia Sanduku la Kuingiza .

Baadaye, tulitumia FOR kitanzi kutekeleza operesheni kutoka Safu mlalo ya 4 hadi Safu ya 13 , na kwa kutumia taarifa ya IF-BASI , tuliangalia kama vitambulisho vya barua pepe vya Safu wima D vina “gmail” au sivyo. Na ili kutimiza kigezo hiki “gmail” sehemu ya vitambulisho vya barua pepe itabadilishwa na vikoa vipya vya Safu wima E ili kuunda. vitambulisho vipya katika Safuwima F . Vinginevyo utakuwa na tupu katika visanduku sambamba vya Safuwima F .

➤ Bonyeza F5 .

Baada ya hapo, utakuwa na Sanduku la Kuingiza ambapo itabidi uandike maandishi unayotaka kutafuta katika anuwai ya vitambulisho vya barua pepe (hapa tunayo. imeingia gmail ) na kisha ubofye Sawa .

Mwishowe, tunapata vitambulisho vyetu vya barua pepe vilivyosasishwa katika Mwisho. Kitambulisho cha Barua Pepe safu.

Soma Zaidi: Tafuta na Ubadilishe Maandishi katika Masafa kwa kutumia Excel VBA (Ukubwa na Fomu ya Mtumiaji)

Sehemu ya Mazoezi

Kwa kufanya mazoezi nawewe mwenyewe tumetoa sehemu ya Mazoezi kama ilivyo hapo chini kwenye laha iitwayo Mazoezi . Tafadhali fanya hivyo peke yako.

Hitimisho

Katika makala haya, tulijaribu kuangazia njia za kubadilisha maandishi katika mfuatano kwa kutumia Excel VBA . Natumai utapata manufaa. Ikiwa una mapendekezo au maswali yoyote, jisikie huru kuyashiriki katika sehemu ya maoni.

Chapisho lililotangulia Jinsi ya kutengeneza Chati ya Pai katika Excel (na Hatua Rahisi)
Chapisho linalofuata Kozi 40+ za Bure za Excel Mtandaoni zenye Vyeti

Hugh West ni mkufunzi na mchambuzi mwenye uzoefu wa juu wa Excel na uzoefu wa zaidi ya miaka 10 katika tasnia. Ana Shahada ya Kwanza katika Uhasibu na Fedha na Shahada ya Uzamili katika Utawala wa Biashara. Hugh ana shauku ya kufundisha na ameanzisha mbinu ya kipekee ya kufundisha ambayo ni rahisi kufuata na kuelewa. Ujuzi wake wa kitaalam wa Excel umesaidia maelfu ya wanafunzi na wataalamu ulimwenguni kote kuboresha ujuzi wao na kufaulu katika taaluma zao. Kupitia blogu yake, Hugh hushiriki ujuzi wake na ulimwengu, akitoa mafunzo ya bila malipo ya Excel na mafunzo ya mtandaoni ili kuwasaidia watu binafsi na biashara kufikia uwezo wao kamili.