Мазмұны
Егер сіз Excel VBA көмегімен жолдағы мәтінді ауыстыру жолдарын іздесеңіз, онда бұл мақала сізге пайдалы болады. Белгілі бір мәтін бөлігін ауыстыру мәтін жолдарын қайта теру кезінде көп уақытты үнемдеуі мүмкін. Сонымен, осы ауыстыру тапсырмасы туралы мәліметтерді білу үшін негізгі мақалаға көшейік.
Жұмыс кітабын жүктеп алу
String.xlsm ішіндегі мәтінді ауыстыру
Excel VBA көмегімен жолдағы мәтінді ауыстырудың 5 жолы
Мұнда бізде электрондық пошта идентификаторлары бар қызметкерлердің кейбір жазбалары бар келесі деректер жинағы бар. Біздің міндетіміз - ескі домендік атауларды жаңаларымен ауыстыру. Келесі әдістерде біз қажетті мәтінді VBA кодтарымен ауыстыру үшін осы деректер жиынтығымен және кейбір кездейсоқ мәтін жолдарымен жұмыс істейміз.
Біз <пайдаландық. 9>Microsoft Excel 365 нұсқасы осы жерде, сіз өзіңізге ыңғайлы кез келген басқа нұсқаларды пайдалана аласыз.
Әдіс-01: Кездейсоқ жолдың n-ші орнынан бастап мәтінді ауыстыру
Мұнда біз әртүрлі бастапқы орындарға кездейсоқ мәтін жолындағы мәтінді ауыстырамыз.
01-қадам :
➤ Әзірлеуші қойындысына өтіңіз. >> Код Топ >> Visual Basic Опция.
Содан кейін Visual Basic өңдегіші ашылады.
➤ Кірістіру қойындысы >> Модуль Опцияға өтіңіз.
Одан кейін Модуль жасалады.
02-қадам :
➤ Келесіні жазыңызкоды
9676
Мұнда біз full_txt_str және updated_str -ді жол деп жариялап, содан кейін full_txt_str кездейсоқ мәтінге тағайындадық. string- «Жүз машина Елу машина Он машина» . Содан кейін VBA REPLACE функциясы осы кездейсоқ жолдың Автомобильдер бөлігін Велосипедтермен<10 ауыстыру үшін пайдаланылады> және 1 осы жерде ауыстыруды осы жолдың 1 позициясынан бастау үшін пайдаланылады. Соңында, біз бұл жаңа мәтіндік жолды updated_str параметріне тағайындадық және хабар терезесімен ( MsgBox ) нәтижені көреміз.
➤ F5 пернесін басыңыз.
Содан кейін Велосипедтер <ауыстырылған мәтіні бар жаңа мәтін жолы бар хабарлама терезесі пайда болады. 2>.
➤ Ауыстыру процесін Автомобильдердің екінші данасын орындау үшін келесі кодты пайдаланыңыз.
4270
Мұнда біз бастапқы орынды 14 ретінде пайдаландық, себебі біз Жүз көлік жолдан кейінгі бөлігін алғымыз келеді және <1-ді ауыстырғымыз келеді> Көліктер осы жерде.
➤ Кодты іске қосқаннан кейін бізде келесі хабарлама өрісі болады. мәтін жолы мәтіннен басталып Елу және Велосипедтермен <орнында 1> Автомобильдер .
➤ Бұл жолдың тек соңғы бөлігін алу үшін біз келесі кодты қолданамыз.
6490
Мұнда біз бастапқы орынды 25 ретінде қолдандық себебі біз Елу машина кейін жолдың бөлігін алғымыз келеді және Автомобильдерді Велосипедтермен ауыстырамыз. 10> осы жерде.
Соңында бізде хабарлама жолағы болатын жолдың қажетті бөлігі -ге ауыстырылады. Велосипедтер .
Толығырақ оқу: Excel VBA: Жолдағы таңбаны орны бойынша ауыстыру (4 тиімді жол)
Әдіс-02: Excel VBA көмегімен кездейсоқ жолдың n-ші реті үшін мәтінді ауыстыру
Бұл бөлімде біз кездейсоқ жолдағы мәтінді әр түрлі оқиғалар санының көмегімен ауыстырамыз. VBA кодының.
Қадамдар :
➤ 1-әдістің 01-қадам қадамын орындаңыз. 2>.
➤ Келесі кодты теріңіз.
3027
Мұнда біз full_txt_str және updated_str -ді Жол деп жарияладық. содан кейін full_txt_str кездейсоқ мәтін жолына тағайындалды- “Жүз көлік елу көлік он көлік” . Осыдан кейін REPLACE функциясы Автомобильдер осы кездейсоқ жолдың бөлігін Велосипедтермен <ауыстыру үшін пайдаланылады. 9>, 1 осы жолдың 1 позициясынан ауыстыруды бастау үшін пайдаланылады, ал соңғы 1 оқиғалардың санын есептеу үшін. Есептік сан ретінде 1 қолдану арқылы біз тек бірінші Автомобильдерді ауыстыруды анықтаймыз. Соңында, біз бұл жаңа мәтін жолын updated_str жәнехабар терезесі ( MsgBox ) біз нәтижені көреміз.
➤ F5 пернесін басыңыз.
Содан кейін, хабарлама өрісі жаңа мәтінмен Велосипедтер Автомобильдердің < бірінші орнында пайда болады. 2>тек.
➤ Автомобильдер алғашқы екі данасын Велосипедтермен <10 ауыстыру үшін> келесі кодты пайдаланыңыз.
1945
Мұнда 2 2 Автомобильдердің <2 алғашқы екі данасын ауыстыру үшін пайдаланылады> Велосипедтермен .
Кодты іске қосқаннан кейін сізде алғашқы екі мәтін <ауыстырылады. 9> Велосипедтері бар автомобильдер.
➤ Барлық даналарды ауыстыру үшін келесі кодты қолданыңыз мәтіннің Автомобильдер .
7010
Мұнда REPLACE функциясының соңғы аргументі 3 болып табылады. мәтін жолындағы барлық Автомобильдер Велосипедтер мен ауыстырылғанын көрсететін санақ саны.
➤ F5 пернесін басыңыз.
Одан кейін біз Жолда ауыстырылған Велосипедтер мәтіні бар келесі хабарлама терезесі бар.
Ұқсас оқулықтар
- Excel бағдарламасында мәтінді каретка қайтаруымен қалай ауыстыруға болады (4 тегіс тәсіл)
- Excel VBA: қалай табуға болады және Word құжатындағы мәтінді ауыстыру
- Excel бағдарламасында белгілі бір таңбадан кейінгі мәтінді ауыстыру (3 әдіс)
- Мәтінді ауыстыруExcel бағдарламасындағы шартқа негізделген ұяшық (5 оңай әдіс)
03-әдіс: Кездейсоқ жолдағы мәтінді кіріс ұяшығымен ауыстыру
Мұнда біз белгілі бір мәтінді ауыстырамыз. VBA InputBox функциясы көмегімен пайдаланушы анықтайтын мәтіні бар кездейсоқ жол.
Қадамдар :
➤ 1-әдіс -нің 01-қадам сын орындаңыз.
➤ Келесі кодты теріңіз.
8781
Осы жерде, біз мәлім еттік full_txt_str , new_txt және updated_str жол ретінде, содан кейін full_txt_str кездейсоқ мәтін жолына тағайындалды- «Жүз машина Елу машина Он машина» . Кездейсоқ жолда Cars мен ауыстырылатын мәтін ретінде пайдаланушы анықтаған енгізу үшін біз InputBox функциясын қолданып, содан кейін осы мәнді тағайындадық. new_txt файлына. Содан кейін REPLACE функциясы осы кездейсоқ жолдың Cars бөлігін new_txt -мен ауыстыру үшін пайдаланылады. Соңында, біз бұл жаңа мәтіндік жолды updated_str параметріне тағайындадық және хабар терезесімен ( MsgBox ) нәтижені көреміз.
➤ F5 пернесін басыңыз.
Осыдан кейін жаңа жолда болғыңыз келетін кез келген мәтін бөлігін енгізуге болатын Енгізу өрісі пайда болады.
➤ Велосипедтер немесе қалаған кез келген басқа мәтінді теріп, OK түймесін басыңыз.
Соңында, сіз жаңа мәтіні бар Велосипедтер жаңа мәтін жолымен келесі нәтижеге ие болыңыз Автомобильдер орны.
Толығырақ: Excel формуласындағы мәтінді қалай ауыстыруға болады (7 оңай әдіс)
Әдіс-04: Жолдар ауқымындағы мәтінді Excel VBA бағдарламасымен ауыстыру
Мұнда біз gmail бөлігін ауыстырамыз Жаңа домен бағанындағы домендері бар электрондық пошта идентификаторлары және жаңа электрондық пошта идентификаторларын жинақтау үшін біз жаңа баған енгіздік; Соңғы электрондық пошта идентификаторы .
Қадамдар :
➤ 01-қадам орындаңыз Әдіс-1 .
➤ Келесі кодты теріңіз.
6172
Мұнда біз <операциясын орындау үшін FOR циклін қолдандық. 1> 4-жол -ден 13-жол . IF-THEN операторының көмегімен біз D бағанының электрондық пошта идентификаторларында “gmail” <10 бар-жоғын тексердік> немесе жоқ, және осы критерийді орындау үшін электрондық пошта идентификаторларының “gmail” бөлігі E<бағанының жаңа домендерімен ауыстырылады. 10> F бағанында жаңа идентификаторларды жасау үшін. Әйтпесе F бағанының сәйкес ұяшықтарында бос орын болады.
➤ F5 пернесін басыңыз. .
Содан кейін сізде Соңғы электрондық пошта идентификаторы бағанында жаңа электрондық пошта идентификаторлары болады.
Толығырақ: Excel VBA бағандағы мәтінді табу және ауыстыру (2 мысал)
05-әдіс: Мәтінді табу үшін пайдаланушы енгізуімен жолдар ауқымындағы мәтінді ауыстыру
келесі электрондық пошта идентификаторларымен біргежаңа домендерді және алдыңғы идентификаторларда нені ауыстыру керектігін жариялау үшін пайдаланушы енгізуі осы әдісті орындау арқылы пайдаланылуы мүмкін.
Қадамдар :
➤ 1-әдіс ішіндегі 01-қадам орындаңыз.
➤ Келесі кодты теріңіз.
6685
Мұнда біз анықтадық. ішінара_мәтін Жол ретінде, содан кейін оны пайдаланушы Енгізу өрісі арқылы беретін жолға тағайындайды.
Содан кейін біз 4-жолдан 13-жол операциясын орындау үшін FOR циклін қолдандық. IF-THEN мәлімдемесінде біз D бағанының электрондық пошта идентификаторларында “gmail” немесе бар-жоғын тексердік. емес. Осы критерийді орындау үшін электрондық пошта идентификаторларының “gmail” бөлігі Е бағаны жаңа домендерімен ауыстырылады. F бағанындағы жаңа идентификаторлар. Әйтпесе F бағанының сәйкес ұяшықтарында бос орын болады.
➤ F5 пернесін басыңыз. .
Осыдан кейін сізде Енгізу өрісі болады, онда электрондық пошта идентификаторлары ауқымында іздегіңіз келетін мәтінді теру керек (мұнда бізде бар gmail енгізді), содан кейін OK түймесін басыңыз.
Соңында, бізде жаңартылған электрондық пошта идентификаторлары Ақтық Электрондық пошта идентификаторы баған.
Қосымша оқу: Excel VBA (Макрос және UserForm) көмегімен ауқымдағы мәтінді табу және ауыстыру
Жаттығу бөлімі
Тәжірибе жасау үшінөз бетіңізше біз Тәжірибе деп аталатын парақта төмендегідей Тәжірибе бөлімін бердік. Мұны өзіңіз жасаңыз.
Қорытынды
Бұл мақалада Excel VBA көмегімен жолдағы мәтінді ауыстыру жолдарын қарастыруға тырыстық. . Сізге пайдалы болады деп үміттенемін. Егер сізде қандай да бір ұсыныстарыңыз немесе сұрақтарыңыз болса, оларды түсініктеме бөлімінде бөлісіңіз.
