Talaan ng nilalaman
Kung naghahanap ka ng mga paraan upang palitan ang text sa isang string gamit ang Excel VBA , makikita mong kapaki-pakinabang ang artikulong ito. Ang pagpapalit ng isang partikular na bahagi ng teksto ay maaaring makatipid ng maraming oras sa pag-type muli ng mga string ng teksto. Kaya, pumunta tayo sa pangunahing artikulo upang malaman ang mga detalye tungkol sa kapalit na gawaing ito.
I-download ang Workbook
Palitan ang Teksto sa String.xlsm
5 Paraan para Palitan ang Teksto sa String Gamit ang Excel VBA
Narito, mayroon kaming sumusunod na dataset na naglalaman ng ilang talaan ng mga empleyado kasama ang kanilang mga email id. Ang aming gawain ay palitan ang mga lumang domain name ng mga bago. Sa mga sumusunod na pamamaraan, gagana kami sa dataset na ito kasama ng ilang random na text string para palitan ang ninanais na text ng VBA na mga code.
Ginamit namin ang Microsoft Excel 365 na bersyon dito, maaari mong gamitin ang anumang iba pang mga bersyon ayon sa iyong kaginhawahan.
Paraan-01: Palitan ang Teksto Simula sa n-th Position ng Random String
Dito, papalitan namin ang text sa isang random na text string para sa iba't ibang panimulang posisyon.
Step-01 :
➤ Pumunta sa Developer Tab >> Code Group >> Visual Basic Option.
Pagkatapos, ang Visual Basic Editor magbubukas.
➤ Pumunta sa Insert Tab >> Module Option.
Pagkatapos nito, gagawa ng Module .
Step-02 :
➤ Isulat ang sumusunodcode
5577
Dito, idineklara namin ang full_txt_str at updated_str bilang String at pagkatapos ay itinalaga ang full_txt_str sa isang random na text string- “Daang Kotse Limampung Kotse Sampung Kotse” . Pagkatapos ay ginagamit ang VBA REPLACE function para palitan ang Mga Sasakyan bahagi ng random string na ito ng Mga Bisikleta at 1 ay ginagamit dito upang simulan ang pagpapalit mula sa posisyon 1 ng string na ito. Sa wakas, itinalaga namin ang bagong text string na ito sa updated_str at gamit ang isang message box ( MsgBox ) makikita namin ang resulta.
➤ Pindutin ang F5 .
Pagkatapos ay lalabas ang isang kahon ng mensahe kasama ang bagong text string na may pinalitan na text na Mga Bisikleta .
➤ Upang gawin ang proseso ng pagpapalit mula sa pangalawang pagkakataon ng Mga Sasakyan gamitin ang sumusunod na code.
8842
Dito, ginamit namin ang panimulang posisyon bilang 14 dahil gusto naming magkaroon ng bahagi ng string pagkatapos ng Daang Kotse at palitan ang Mga Sasakyan dito.
➤ Pagkatapos patakbuhin ang code, magkakaroon tayo ng sumusunod na kahon ng mensahe na may text string nagsisimula sa text Limampu at may Mga Bisikleta sa posisyong Mga Kotse .
➤ Para sa pagkakaroon lamang ng huling bahagi ng string na ito, inilalapat namin ang sumusunod na code.
6829
Dito, ginamit namin ang panimulang posisyon bilang 25 dahil gusto naming magkaroon ng bahagi ng string pagkatapos ng Limampung Kotse at palitan ang Mga Kotse ng Mga Bisikleta dito.
Sa wakas, magkakaroon tayo ng kahon ng mensahe kung saan ang gusto nating bahagi ng string ay may kapalit na Mga Bisikleta .
Magbasa Nang Higit Pa: Excel VBA: Palitan ang Character sa String ayon sa Posisyon (4 na Mabisang Paraan)
Method-02: Substitute Text para sa n-th Occurrence ng Random String Gamit ang Excel VBA
Sa seksyong ito, papalitan namin ang isang text sa isang random na string para sa iba't ibang bilang ng mga pangyayari sa tulong ng isang VBA code.
Mga Hakbang :
➤ Sundin ang Hakbang-01 ng Paraan-1 .
➤ I-type ang sumusunod na code.
9962
Dito, idineklara namin ang full_txt_str at updated_str bilang String at pagkatapos ay itinalaga ang full_txt_str sa isang random na text string- “Hundred Cars Fifty Cars Ten Cars” . Pagkatapos nito, ang REPLACE function ay ginagamit upang palitan ang Mga Sasakyan bahagi ng random string na ito ng Mga Bisikleta , 1 ay ginagamit dito upang simulan ang pagpapalit mula sa posisyon 1 ng string na ito, at ang huling 1 ay para sa pagbibilang ng bilang ng mga pangyayari. Sa pamamagitan ng paggamit ng 1 bilang numero ng pagbibilang, tinutukoy namin ang pagpapalit sa unang Mga Sasakyan lamang. Sa wakas, itinalaga namin ang bagong text string na ito sa updated_str at may amessage box ( MsgBox ) makikita natin ang resulta.
➤ Pindutin ang F5 .
Pagkatapos, lalabas ang isang kahon ng mensahe kasama ang bagong teksto Mga Bisikleta sa unang posisyon ng Mga Sasakyan lamang.
➤ Para sa pagpapalit ng unang dalawang instance ng Mga Sasakyan ng Mga Bisikleta gamitin ang sumusunod na code.
8747
Dito, 2 ay ginagamit bilang numero ng pagbibilang upang palitan ang unang dalawang instance ng Mga Sasakyan sa Mga Bisikleta .
Pagkatapos patakbuhin ang code, magkakaroon ka ng kapalit ng unang dalawang teksto Mga Sasakyan na may Mga Bisikleta .
➤ Ilapat ang sumusunod na code para palitan ang lahat ng instance ng tekstong Mga Kotse .
9160
Dito, ang huling argumento ng REPLACE function ay 3 na kung saan ay ang pagbibilang ng numero na nagsasaad ng pagpapalit ng lahat ng Mga Kotse na may Mga Bisikleta sa text string.
➤ Pindutin ang F5 .
Pagkatapos, gagawin namin magkaroon ng sumusunod na kahon ng mensahe na may pinalitan na teksto Mga bisikleta sa string.
Mga Katulad na Pagbasa
- Paano Palitan ang Text ng Carriage Return sa Excel (4 Smooth Approaches)
- Excel VBA: Paano Maghanap at Palitan ang Text sa Word Document
- Paano Palitan ang Text pagkatapos ng Tukoy na Character sa Excel (3 Paraan)
- Palitan ang Teksto ng isangCell Based on Condition in Excel (5 Easy Methods)
Method-03: Palitan ang Text sa Random String ng InputBox
Dito, papalitan namin ang isang partikular na text ng isang random na string na may text na tutukuyin ng isang user sa tulong ng VBA InputBox function .
Mga Hakbang :
➤ Sundin ang Hakbang-01 ng Paraan-1 .
➤ I-type ang sumusunod na code.
6412
Dito, idineklara namin full_txt_str , new_txt , at updated_str bilang String at pagkatapos ay itinalaga full_txt_str sa isang random na text string- “Daang Kotse Limampung Kotse Sampung Kotse” . Upang magkaroon ng input na tinukoy ng user bilang text na papalitan ng Mga Kotse sa random string, ginamit namin ang InputBox function at pagkatapos ay itinalaga ang value na ito sa new_txt . Pagkatapos ay ang REPLACE function ay ginagamit upang palitan ang Mga Sasakyan bahagi ng random string na ito ng new_txt . Sa wakas, itinalaga namin ang bagong text string na ito sa updated_str at gamit ang isang message box ( MsgBox ) makikita namin ang resulta.
➤ Pindutin ang F5 .
Pagkatapos nito, lalabas ang isang Input Box kung saan maaari kang magpasok ng anumang bahagi ng text na gusto mong magkaroon sa bagong string.
➤ I-type ang Mga Bisikleta o anumang iba pang text na gusto mo at pagkatapos ay pindutin ang OK .
Sa wakas, gagawin mo magkaroon ng sumusunod na resulta sa bagong text string na may bagong text Mga Bisikleta inang posisyon ng Mga Kotse .
Magbasa Nang Higit Pa: Paano Palitan ang Teksto sa Excel Formula (7 Madaling Paraan)
Paraan-04: Palitan ang Teksto sa Isang Hanay ng mga String ng Excel VBA
Dito, papalitan namin ang gmail bahagi ng ang mga email id na may mga domain sa column na Bagong Domain , at upang maipon ang mga bagong email id ay naglagay kami ng bagong column; Panghuling Email Id .
Mga Hakbang :
➤ Sundin ang Hakbang-01 ng Paraan-1 .
➤ I-type ang sumusunod na code.
3039
Dito, ginamit namin ang FOR loop upang isagawa ang operasyon mula sa Row 4 hanggang Row 13 . Sa tulong ng IF-THEN na pahayag, nasuri namin kung ang mga email id ng Column D ay naglalaman ng “gmail” o hindi, at para sa pagtupad sa pamantayang ito ang “gmail” bahagi ng mga email id ay papalitan ng mga bagong domain ng Column E upang lumikha ng mga bagong id sa Column F . Kung hindi, magkakaroon ka ng blangko sa kaukulang mga cell ng Column F .
➤ Pindutin ang F5 .
Pagkatapos, magkakaroon ka ng bagong email id sa Final Email Id column.
Magbasa Nang Higit Pa: Excel VBA upang Hanapin at Palitan ang Teksto sa isang Column (2 Halimbawa)
Paraan-05: Palitan ang Teksto sa Hanay ng mga String na may User Input para Maghanap ng Teksto
Maaari mong palitan ang sumusunod na mga email id kasama angbagong domain at ideklara kung ano ang papalitan sa mga nakaraang id na maaaring gamitin ang input ng user sa pamamagitan ng pagsunod sa pamamaraang ito.
Mga Hakbang :
➤ Sundin ang Hakbang-01 ng Paraan-1 .
➤ I-type ang sumusunod na code.
7185
Dito, tinukoy namin ang partial_text bilang isang String at pagkatapos ay itinalaga ito sa isang string na ibibigay ng isang user sa pamamagitan ng Input Box .
Pagkatapos, ginamit namin ang FOR loop upang isagawa ang operasyon mula Row 4 hanggang Row 13 , at gamit ang ang IF-THEN statement, tiningnan namin kung ang mga email id ng Column D naglalaman ng “gmail” o hindi. At para sa pagtupad sa pamantayang ito, ang “gmail” bahagi ng mga email id ay papalitan ng mga bagong domain ng Column E na gagawin ang mga bagong id sa Column F . Kung hindi, magkakaroon ka ng blangko sa kaukulang mga cell ng Column F .
➤ Pindutin ang F5 .
Pagkatapos nito, magkakaroon ka ng Input Box kung saan kailangan mong i-type ang text na gusto mong hanapin sa hanay ng mga email id (narito mayroon kaming ipinasok ang gmail ) at pagkatapos ay pindutin ang OK .
Sa wakas, nagkakaroon na kami ng aming mga na-update na email id sa Final Email Id column.
Magbasa Nang Higit Pa: Maghanap at Palitan ang isang Text sa isang Saklaw na may Excel VBA (Macro at UserForm)
Seksyon ng Pagsasanay
Para sa pagsasagawa ng pagsasanay niikaw mismo ay nagbigay kami ng seksyong Practice tulad ng nasa ibaba sa isang sheet na pinangalanang Practice . Mangyaring gawin ito nang mag-isa.
Konklusyon
Sa artikulong ito, sinubukan naming saklawin ang mga paraan upang palitan ang text sa isang string gamit ang Excel VBA . Sana ay mahanap mo itong kapaki-pakinabang. Kung mayroon kang anumang mga mungkahi o tanong, huwag mag-atubiling ibahagi ang mga ito sa seksyon ng komento.
