අන්තර්ගත වගුව
ඔබ Excel VBA භාවිතයෙන් තන්තුවක පෙළ ප්‍රතිස්ථාපනය කිරීමට ක්‍රම සොයන්නේ නම්, ඔබට මෙම ලිපිය ප්‍රයෝජනවත් වනු ඇත. යම් පෙළ කොටසක් ප්‍රතිස්ථාපනය කිරීමෙන් පෙළ තන්තු නැවත ටයිප් කිරීමේදී බොහෝ කාලයක් ඉතිරි කර ගත හැක. එබැවින්, මෙම ප්‍රතිස්ථාපන කාර්යය පිළිබඳ විස්තර දැන ගැනීමට අපි ප්‍රධාන ලිපියට පිවිසෙමු.
වැඩපොත බාගන්න
Sring.xlsm හි පෙළ ප්‍රතිස්ථාපනය කරන්න
5 Excel VBA භාවිතයෙන් String තුළ Text ප්‍රතිස්ථාපනය කිරීමට ක්‍රම
මෙහි, සේවකයින්ගේ ඊමේල් හැඳුනුම්පත් සහිත වාර්තා කිහිපයක් අඩංගු පහත දත්ත කට්ටලය අප සතුව ඇත. අපගේ කාර්යය වන්නේ පැරණි ඩොමේන් නාම වෙනුවට නව ඒවා ලබා දීමයි. පහත ක්‍රමවලදී, අවශ්‍ය පෙළ VBA කේත සමඟ ප්‍රතිස්ථාපනය කිරීමට අහඹු පෙළ තන්තු කිහිපයක් සමඟ අපි මෙම දත්ත කට්ටලය සමඟ ක්‍රියා කරන්නෙමු.
අපි <භාවිතා කර ඇත. 9>Microsoft Excel 365 අනුවාදය මෙහි, ඔබට ඔබගේ පහසුව අනුව වෙනත් ඕනෑම අනුවාද භාවිතා කළ හැක.
ක්‍රමය-01: සසම්භාවී තන්තුවක n-th ස්ථානයෙන් ආරම්භ වන පෙළ ප්‍රතිස්ථාපනය කරන්න
මෙහිදී, අපි විවිධ ආරම්භක ස්ථාන සඳහා අහඹු පෙළ පෙළකින් පෙළ ප්‍රතිස්ථාපනය කරන්නෙමු.
පියවර-01 :
➤ සංවර්ධක ටැබය වෙත යන්න. >> කේතය කණ්ඩායම >> දෘශ්‍ය මූලික විකල්පය.
ඉන්පසු, දෘශ්‍ය මූලික සංස්කාරකය විවෘත වනු ඇත.
➤ ඇතුළු කරන්න Tab >> මොඩියුලය විකල්පය.
ඉන් පසුව, මොඩියුලය සාදනු ඇත.
පියවර-02 :
➤ පහත සඳහන් දේ ලියන්නකේතය
4300
මෙහි, අපි full_txt_str සහ updated_str String ලෙස ප්‍රකාශ කර පසුව full_txt_str අහඹු පාඨයකට පවරා ඇත. string- “කාර් සියයක් කාර් පනහක් කාර් දහයක්” . එවිට VBA REPLACE ශ්‍රිතය මෙම අහඹු තන්තුවේ Cars කොටස Bicycles<10 සමඟ ප්‍රතිස්ථාපනය කිරීමට භාවිතා කරයි. සහ 1 මෙම තන්තුවෙහි 1 ආස්ථානයෙන් ප්‍රතිස්ථාපනය ආරම්භ කිරීමට මෙහි භාවිතා වේ. අවසාන වශයෙන්, අපි මෙම නව පෙළ තන්තුව updated_str වෙත පවරා ඇති අතර පණිවිඩ පෙට්ටියක් ( MsgBox ) සමඟින් අපට ප්‍රතිඵලය පෙනෙනු ඇත.
➤ F5 ඔබන්න.
ඉන්පසු පණිවිඩ පෙට්ටියක් ප්‍රතිස්ථාපනය කරන ලද බයිසිකල් <සමඟ නව පෙළ පෙළ සමඟ දිස්වනු ඇත. 2>.
➤ කාර් පහත කේතය භාවිත කරන්න.
දෙවන අවස්ථාවෙන් ප්‍රතිස්ථාපන ක්‍රියාවලිය සිදු කරන්න.9239
මෙහිදී, අපි 14 ලෙස ආරම්භක ස්ථානය භාවිතා කර ඇත්තේ අපට කාර් සියයක් ට පසුව ඇති තන්තුවේ කොටස ලබා ගැනීමට සහ <1 ප්‍රතිස්ථාපනය කිරීමට අවශ්‍ය බැවිනි> කාර් මෙහි.
➤ ධාවනය කිරීමෙන් පසු කේතය, අපට පහත පණිවිඩ පෙට්ටිය ලැබේ පෙළ තන්තුව පෙළෙන් පනහ සහ බයිසිකල් සමඟ <යන ස්ථානයේ 1> කාර් .
➤ මෙම තන්තුවේ අවසාන කොටස පමණක් තිබීම සඳහා අපි පහත කේතය යොදන්නෙමු.
7984
මෙහි, අපි ආරම්භක ස්ථානය 25 ලෙස භාවිතා කර ඇත මොකද අපට කාර් පනහකට පසු ට පසු තන්තුවේ කොටස ලබා ගැනීමට අවශ්‍ය වන අතර කාර් වෙනුවට බයිසිකල් මෙහි.
අවසාන වශයෙන්, අපට පණිවිඩ පෙට්ටියක් ඇති අතර එය සමඟ ප්‍රතිස්ථාපනය කර ඇති තන්තුවේ අපට අවශ්‍ය කොටස ඇත. බයිසිකල් .
වැඩිදුර කියවන්න: Excel VBA: String වල අක්ෂරය ස්ථානය අනුව ප්‍රතිස්ථාපනය කරන්න (ඵලදායී ක්‍රම 4ක්)
ක්‍රමය-02: Excel VBA භාවිතයෙන් අහඹු තන්තුවක n-th සිදුවීම සඳහා ආදේශක පෙළ
මෙම කොටසේදී, අපි උපකාරයෙන් විවිධ සිදුවීම් සංඛ්‍යා සඳහා අහඹු තන්තුවක පෙළක් ප්‍රතිස්ථාපනය කරන්නෙමු. VBA කේතයක.
පියවර :
➤ පියවර-01 ක්‍රමය-1<අනුගමනය කරන්න 2>.
➤ පහත කේතය ටයිප් කරන්න.
1541
මෙහි, අපි full_txt_str සහ updated_str String ලෙස ප්‍රකාශ කර ඇත. ඉන්පසු full_txt_str අහඹු පෙළ පෙළකට- “කාර් සියයක් කාර් පනහක් කාර් දහයක්” . ඊට පසු, REPLACE ශ්‍රිතය මෙම අහඹු තන්තුවේ කාර් කොටස බයිසිකල් සමඟ ප්‍රතිස්ථාපනය කිරීමට භාවිතා කරයි. 9>, 1 මෙම තන්තුවේ 1 ස්ථානයෙන් ප්‍රතිස්ථාපනය ආරම්භ කිරීමට භාවිතා වන අතර අවසාන 1 වේ සිදුවීම් ගණන ගණනය කිරීම සඳහා. ගණන් කිරීමේ අංකය ලෙස 1 භාවිතා කිරීමෙන් අපි පළමු කාර් පමණක් ප්‍රතිස්ථාපනය කිරීම අර්ථ දක්වමු. අවසාන වශයෙන්, අපි මෙම නව පෙළ තන්තුව updated_str වෙත පවරා ඇතපණිවිඩ පෙට්ටිය ( MsgBox ) අපි ප්‍රතිඵලය දකිමු.
➤ F5 ඔබන්න.
ඉන්පසු, පණිවිඩ පෙට්ටියක් නව පෙළ බයිසිකල් පළමු ස්ථානයේ කාර් සමඟ දිස් වනු ඇත 2>පමණක්.
➤ කාර් හි පළමු අවස්ථා දෙක බයිසිකල් <10 සමඟ ප්‍රතිස්ථාපනය කිරීම සඳහා පහත කේතය භාවිතා කරන්න.
9123
මෙහි, 2 ගණන් කිරීමේ අංකය ලෙස කාර් <2 හි පළමු අවස්ථා දෙක ප්‍රතිස්ථාපනය කිරීමට භාවිත කෙරේ> බයිසිකල් සමඟ.
කේතය ක්‍රියාත්මක කිරීමෙන් පසු, ඔබට පළමු පෙළ දෙක ප්‍රතිස්ථාපනය වනු ඇත කාර් බයිසිකල් .
➤ සියලුම අවස්ථා ප්‍රතිස්ථාපනය කිරීමට පහත කේතය යොදන්න පාඨයේ කාර් .
3616
මෙහි, REPLACE ශ්‍රිතයේ අවසාන තර්කය වන්නේ 3 එය සියලුම කාර් බයිසිකල් පෙළ තන්තුවෙන් ප්‍රතිස්ථාපනය කිරීම පෙන්නුම් කරන ගණන් කිරීමේ අංකය.
➤ F5 ඔබන්න.
ඉන්පසු, අපි පහත දැක්වෙන පණිවිඩ පෙට්ටිය සමඟ ප්‍රතිස්ථාපනය කරන ලද බයිසිකල් තන්තුවෙහි ඇත.
සමාන කියවීම්
- Excel හි Carriage Return සමඟ පෙළ ප්‍රතිස්ථාපනය කරන්නේ කෙසේද (සුමට ප්‍රවේශයන් 4)
- Excel VBA: සොයන්නේ කෙසේද සහ Word Document හි පෙළ ප්‍රතිස්ථාපනය කරන්න
- Excel හි නිශ්චිත අක්ෂරයෙන් පසු පෙළ ප්‍රතිස්ථාපනය කරන්නේ කෙසේද (ක්‍රම 3)
- a හි පෙළ ප්‍රතිස්ථාපනය කරන්නExcel හි තත්ත්වය මත පදනම් වූ කොටුව (පහසු ක්‍රම 5)
ක්‍රමය-03: InputBox සමඟ අහඹු තන්තුවක පෙළ ප්‍රතිස්ථාපනය කරන්න
මෙහි, අපි යම් පෙළක් ප්‍රතිස්ථාපනය කරන්නෙමු VBA InputBox ශ්‍රිතය .
පියවර :<3 උපකාරයෙන් පරිශීලකයෙකු විසින් නිර්වචනය කරනු ලබන පාඨයක් සහිත අහඹු තන්තුවක්
➤ ක්‍රමය-1 හි පියවර-01 අනුගමනය කරන්න.
➤ පහත කේතය ටයිප් කරන්න.
6060
මෙහි, අපි ප්‍රකාශ කර ඇත. full_txt_str , new_txt , සහ updated_str String ලෙසින් පසුව full_txt_str අහඹු පෙළ තන්තුවකට පවරන ලදී- “කාර් සියයක් කාර් පනහක් කාර් දහයක්” . සසම්භාවී තන්තුවෙහි කාර් සමඟ ප්‍රතිස්ථාපනය කළ යුතු පාඨය ලෙස පරිශීලක-නිර්වචනය කළ ආදානය ලබා ගැනීමට, අපි InputBox ශ්‍රිතය භාවිත කර පසුව මෙම අගය පවරා ඇත. new_txt වෙත. එවිට REPLACE ශ්‍රිතය මෙම අහඹු තන්තුවේ Cars කොටස new_txt සමඟ ප්‍රතිස්ථාපනය කිරීමට භාවිතා කරයි. අවසාන වශයෙන්, අපි මෙම නව පෙළ තන්තුව updated_str වෙත පවරා ඇති අතර පණිවිඩ පෙට්ටියක් ( MsgBox ) සමඟින් අපට ප්‍රතිඵලය පෙනෙනු ඇත.
➤ F5 ඔබන්න.
ඉන්පසු, Input Box එනු ඇත, එහිදී ඔබට නව තන්තුවෙහි තිබිය යුතු ඕනෑම පෙළ කොටසක් ඇතුලත් කළ හැක.
➤ බයිසිකල් හෝ ඔබට අවශ්‍ය වෙනත් පෙළක් ටයිප් කර OK ඔබන්න.
අවසාන වශයෙන්, ඔබ බයිසිකල් in නව පෙළ සහිත නව පෙළ පෙළ සමඟ පහත ප්‍රතිඵලය ලබා ගන්න කාර් වල පිහිටීම .
වැඩිදුර කියවන්න: Excel Formula හි පෙළ ප්‍රතිස්ථාපනය කරන්නේ කෙසේද (පහසු ක්‍රම 7ක්)
ක්‍රමය-04: තන්තු පරාසයක ඇති පෙළ Excel VBA සමඟ ප්‍රතිස්ථාපනය කරන්න
මෙහි, අපි gmail කොටස ආදේශ කරමු. නව වසම තීරුවේ වසම් සහිත විද්‍යුත් තැපෑල, සහ නව විද්‍යුත් තැපෑල එකතු කිරීම සඳහා අපි නව තීරුවක් ඇතුළත් කර ඇත; අවසාන ඊමේල් හැඳුනුම්පත .
පියවර :
➤ පියවර-01 අනුගමනය කරන්න ක්‍රමය-1 හි.
➤ පහත කේතය ටයිප් කරන්න.
5401
මෙහි, අපි FOR loop භාවිතා කර මෙහෙයුම ක්‍රියාත්මක කරන්නෙමු. 1> 4 පේළිය සිට පේළිය 13 . IF-THEN ප්‍රකාශය ආධාරයෙන්, අපි තීරුව D හි විද්‍යුත් තැපෑලෙහි “gmail” <10 අඩංගු දැයි පරීක්ෂා කර ඇත> නැතහොත් නැත, සහ මෙම නිර්ණායකය ඉටු කිරීම සඳහා “gmail” ඊමේල් id වල කොටස තීරු E<හි නව වසම් සමඟ ප්‍රතිස්ථාපනය වේ. 10> තීරුව F තුළ නව හැඳුනුම්පත් සෑදීමට. එසේ නොමැතිනම් ඔබට තීරුව F හි අනුරූප සෛල තුළ හිස් තැනක් ඇත.
➤ F5 ඔබන්න .
ඉන්පසු, ඔබට අවසාන විද්‍යුත් තැපැල් හැඳුනුම්පත තීරුවේ නව විද්‍යුත් තැපැල් හැඳුනුම්පත් ලැබෙනු ඇත.
වැඩිදුර කියවන්න: Excel VBA තීරුවක පෙළ සෙවීමට සහ ප්‍රතිස්ථාපනය කිරීමට (උදාහරණ 2)
ක්‍රමය-05: පෙළ සෙවීමට පරිශීලක ආදානය සමඟින් පෙළ ප්‍රතිස්ථාපනය කරන්න
ඔබට ප්‍රතිස්ථාපනය කළ හැක පහත විද්‍යුත් තැපෑල සමඟනව වසම් සහ පෙර id වල ප්‍රතිස්ථාපනය කළ යුතු දේ ප්‍රකාශ කරන්න මෙම ක්‍රමය අනුගමනය කිරීමෙන් පරිශීලක ආදානය භාවිතා කළ හැක.
පියවර :
➤ ක්‍රමය-1 හි පියවර-01 අනුගමනය කරන්න.
➤ පහත කේතය ටයිප් කරන්න.
6140
මෙහි, අපි අර්ථ දක්වා ඇත. partial_text String ලෙසින් පසුව එය Input Box හරහා පරිශීලකයෙකු විසින් දෙනු ලබන තන්තුවකට පවරා ඇත.
පසුව, අපි 4 පේළිය සිට පේළිය 13 දක්වා මෙහෙයුම ක්‍රියාත්මක කිරීමට FOR loop භාවිතා කළෙමු. IF-THEN ප්‍රකාශය, අපි තීරුව D හි විද්‍යුත් තැපෑලෙහි “gmail” හෝ අඩංගු දැයි පරීක්ෂා කළෙමු නැහැ. තවද මෙම නිර්ණායකය සපුරාලීම සඳහා ඊමේල් හැඳුනුම්පත්වල “gmail” කොටස නිර්මාණය කිරීම සඳහා තීරුව E හි නව වසම් සමඟ ප්‍රතිස්ථාපනය කෙරේ. තීරුව F හි නව ids. එසේ නොමැතිනම් ඔබට තීරුව F හි අනුරූප සෛල තුළ හිස් තැනක් ඇත.
➤ F5 ඔබන්න .
ඉන් පසු, ඔබට ආදාන පෙට්ටියක් ලැබෙනු ඇත, එහිදී ඔබට ඊමේල් හැඳුනුම්පත් පරාසය තුළ සෙවීමට අවශ්‍ය පෙළ ටයිප් කළ යුතුය (මෙහි අප සතුව ඇත. gmail ) ඇතුළු කර OK ඔබන්න.
අවසානයේ, අවසානයේ අපගේ යාවත්කාලීන කරන ලද විද්‍යුත් තැපෑල ඇත. ඊමේල් හැඳුනුම්පත තීරුව.
වැඩිදුර කියවන්න: Excel VBA (Macro සහ UserForm) සමඟින් පෙළක් සොයා ප්‍රතිස්ථාපනය කරන්න.
අභ්‍යාස කොටස
ප්‍රායෝගිකව සිදු කිරීම සඳහාඔබ විසින්ම අපි අභ්‍යාස නම් පත්‍රයක පහත පරිදි අභ්‍යාස කොටස සපයා ඇත. කරුණාකර එය ඔබම කරන්න.
නිගමනය
මෙම ලිපියෙන්, අපි Excel VBA භාවිතයෙන් තන්තුවක පෙළ ප්‍රතිස්ථාපනය කිරීමේ ක්‍රම ආවරණය කිරීමට උත්සාහ කළෙමු. . ඔබට එය ප්‍රයෝජනවත් වනු ඇතැයි බලාපොරොත්තු වෙනවා. ඔබට කිසියම් යෝජනා හෝ ප්‍රශ්න ඇත්නම්, ඒවා අදහස් දැක්වීමේ කොටසෙහි බෙදා ගැනීමට නිදහස් වන්න.
