မာတိကာ
သင်သည် Excel VBA ကို အသုံးပြု၍ စာကြောင်းတွင် စာသားကို အစားထိုးရန် နည်းလမ်းများကို ရှာဖွေနေပါက၊ ဤဆောင်းပါးသည် အသုံးဝင်သည်ကို တွေ့ရပါလိမ့်မည်။ အချို့သော စာသားအပိုင်းကို အစားထိုးခြင်းသည် စာသားကြိုးများကို ထပ်မံရိုက်ရာတွင် အချိန်များစွာ သက်သာစေနိုင်သည်။ ထို့ကြောင့်၊ ဤအစားထိုးအလုပ်အကြောင်းအသေးစိတ်အချက်အလက်များကိုသိရှိရန် ပင်မဆောင်းပါးသို့သွားကြပါစို့။
အလုပ်စာအုပ်ကိုဒေါင်းလုဒ်လုပ်ပါ
စာသားကို String.xlsm တွင်အစားထိုးပါ
Excel VBA ကို အသုံးပြု၍ String တွင် စာသားကို အစားထိုးရန် နည်းလမ်း 5 ခု
ဤတွင်၊ ဝန်ထမ်းများ၏ အီးမေးလ် ids များနှင့် မှတ်တမ်းအချို့ ပါ၀င်သော အောက်ပါဒေတာအတွဲ ရှိပါသည်။ ကျွန်ုပ်တို့၏တာဝန်မှာ ဒိုမိန်းအမည်ဟောင်းများကို အသစ်များဖြင့် အစားထိုးရန်ဖြစ်သည်။ အောက်ပါနည်းလမ်းများတွင်၊ ကျွန်ုပ်တို့သည် ဤဒေတာအတွဲနှင့်အတူ လိုချင်သောစာသားကို VBA ကုဒ်များဖြင့် အစားထိုးရန်အတွက် ကျပန်းစာသားအချို့နှင့်အတူ လုပ်ဆောင်ပါမည်။
ကျွန်ုပ်တို့ Microsoft Excel 365 ဗားရှင်း ဤနေရာတွင်၊ သင်သည် သင့်အဆင်ပြေမှုအရ အခြားဗားရှင်းများကိုမဆို အသုံးပြုနိုင်ပါသည်။
Method-01- ကျပန်းစာတန်း၏ n-th အနေအထားမှ စတင်ကာ စာသားကို အစားထိုးပါ
ဤတွင်၊ မတူညီသော စတင်သည့်နေရာများအတွက် ကျပန်းစာတန်းတစ်ခုတွင် စာသားကို အစားထိုးပါမည်။
Step-01 :
➤ Developer Tab သို့သွားပါ။ >> Code Group >> Visual Basic ရွေးချယ်ခွင့်။
ထို့နောက် Visual Basic Editor ပွင့်လာပါမည်။
➤ Insert Tab >> Module Option သို့သွားပါ။
ထို့နောက်၊ Module ကို ဖန်တီးပါမည်။
Step-02 :
➤ အောက်ပါအတိုင်းရေးပါ။ကုဒ်
9754
ဤတွင်၊ ကျွန်ုပ်တို့သည် full_txt_str နှင့် updated_str အဖြစ် String အဖြစ် ကြေညာပြီးနောက် full_txt_str ကို ကျပန်းစာသားအဖြစ် သတ်မှတ်ပေးလိုက်သည် string- “ကားတစ်ရာ ကားအစီးငါးဆယ် ကားဆယ်စီး” ။ ထို့နောက် VBA REPLACE လုပ်ဆောင်ချက် ကို ကားများ အစိတ်အပိုင်း စက်ဘီးများ<10 ဖြင့် အစားထိုးရန် အသုံးပြုပါသည်။ နှင့် 1 ကို ဤစာကြောင်း၏ အနေအထား 1 မှ အစားထိုးမှုကို စတင်ရန် ဤနေရာတွင် အသုံးပြုပါသည်။ နောက်ဆုံးတွင်၊ ကျွန်ုပ်တို့သည် ဤစာကြောင်းအသစ်ကို updated_str သို့ သတ်မှတ်ပေးပြီး မက်ဆေ့ချ်ဘောက်စ် ( MsgBox ) ဖြင့် ကျွန်ုပ်တို့သည် ရလဒ်ကို မြင်တွေ့ရမည်ဖြစ်သည်။
➤ F5 ကိုနှိပ်ပါ။
ထို့နောက် မက်ဆေ့ချ်ဘောက်စ် တွင် အစားထိုးထားသော စာသား စက်ဘီးများ .
➤ ကားများ ၏ ဒုတိယဥပမာမှ အစားထိုးခြင်းလုပ်ငန်းစဉ်ကို လုပ်ဆောင်ရန် အောက်ပါကုဒ်ကို အသုံးပြုပါ။
9883
ဤတွင်၊ ကျွန်ုပ်တို့သည် 14 ကားအစီးတစ်ရာ ပြီးနောက် နှင့် အစားထိုးလိုသောကြောင့် 14 ဤနေရာတွင် ကျွန်ုပ်တို့သည် စတင်အနေအထားကို အသုံးပြုထားပါသည်။> ကားများ ဤတွင်။
➤ ကုဒ် ပြေး ပြီးနောက်၊ ကျွန်ုပ်တို့တွင် အောက်ပါ မက်ဆေ့ချ်ဘောက်စ်ကို ရပါမည် ဖြင့် စာသားစာကြောင်း စာသား ငါးဆယ် နှင့် စက်ဘီး အနေအထားမှ ကားများ ။
➤ ဤစာကြောင်း၏နောက်ဆုံးအပိုင်းသာရှိသည့်အတွက် ကျွန်ုပ်တို့သည် အောက်ပါကုဒ်ကို အသုံးပြုနေပါသည်။
7726
ဤနေရာတွင်၊ ကျွန်ုပ်တို့သည် 25 အဖြစ် စတင်သည့်အနေအထားကို အသုံးပြုထားသည်။ အဘယ်ကြောင့်ဆိုသော် ကျွန်ုပ်တို့သည် ကားအစီးငါးဆယ် ပြီးနောက် ကြိုးတန်း၏အစိတ်အပိုင်းကို ပိုင်ဆိုင်လိုသောကြောင့် ကားများ စက်ဘီးများ ဤနေရာတွင်။
နောက်ဆုံးတွင်၊ ကျွန်ုပ်တို့တွင် နှင့် အစားထိုးထားသော စာကြောင်း၏ လိုချင်သောအပိုင်းနှင့်အတူ မက်ဆေ့ခ်ျဘောက်စ် ရှိပါမည်။ စက်ဘီးများ ။
နောက်ထပ် ဖတ်ရှုရန်- Excel VBA- စာလုံးကို စာကြောင်းဖြင့် အစားထိုးပါ (ထိရောက်သောနည်းလမ်း 4 ခု)
Method-02- Excel VBA ကိုအသုံးပြု၍ ကျပန်းစာတန်းတစ်ခုဖြစ်ပေါ်ခြင်းအတွက် n-th အစားထိုးစာသား
ဤကဏ္ဍတွင်၊ ကျွန်ုပ်တို့အကူအညီဖြင့် မတူညီသောအကြိမ်အရေအတွက်များအတွက် ကျပန်းစာကြောင်းတစ်ခုရှိ စာသားကို အစားထိုးပါမည်။ VBA ကုဒ်တစ်ခု၏
အဆင့်များ :
➤ Step-01 of Method-1<ကို လိုက်နာပါ 2>.
➤ အောက်ပါကုဒ်ကို ရိုက်ထည့်ပါ။
2915
ဤတွင်၊ full_txt_str နှင့် updated_str ကို String အဖြစ် ကြေညာထားပါသည်။ ထို့နောက် full_txt_str ကို ကျပန်းစာသား string- “ကားတစ်ရာကား အစီးငါးဆယ် ကားဆယ်စီး” သို့ သတ်မှတ်ပေးသည်။ ထို့နောက်၊ REPLACE လုပ်ဆောင်ချက် ကို ဤကျပန်းစာကြောင်း၏အစိတ်အပိုင်း ကားများ ကို စက်ဘီးများ ဖြင့် အစားထိုးရန် အသုံးပြုပါသည်။ 9>၊ 1 ကို ဤစာကြောင်း၏ အနေအထား 1 မှ အစားထိုးခြင်းကို စတင်ရန် ဤနေရာတွင် အသုံးပြုထားပြီး နောက်ဆုံး 1 ဖြစ်ပွားမှုအရေအတွက်ကိုရေတွက်ရန်။ 1 ရေတွက်သည့် နံပါတ်အဖြစ် အသုံးပြုခြင်းဖြင့် ကျွန်ုပ်တို့သည် ပထမ ကားများ ကိုသာ အစားထိုးသတ်မှတ်ပေးပါသည်။ နောက်ဆုံးတွင်၊ ဤစာသားအသစ်ကို updated_str နှင့် a ဖြင့် သတ်မှတ်ပေးထားပါသည်။မက်ဆေ့ချ်ဘောက်စ် ( MsgBox ) ရလဒ်ကို ကျွန်ုပ်တို့ မြင်ရပါမည်။
➤ F5 ကိုနှိပ်ပါ။
ထို့နောက်၊ မက်ဆေ့ချ်ဘောက်စ် သည် ကားများ ကားများ၏ ပထမနေရာ တွင် စက်ဘီးများ စာသားအသစ်နှင့် ပေါ်လာပါမည်။ 2>သာ။
➤ ကားများ စက်ဘီး <10 နှင့် အစားထိုးရန်အတွက်> အောက်ပါကုဒ်ကိုသုံးပါ။
5479
ဤတွင်၊ 2 ကားများ ၏ ပထမအကြိမ်နှစ်ခုကို အစားထိုးရန် ရေတွက်နံပါတ်အဖြစ် အသုံးပြုပါသည်။ စက်ဘီးများ နှင့်။
ကုဒ်ကိုအသုံးပြုပြီးနောက်၊ သင့်တွင် ပထမစာသားနှစ်ခုကို အစားထိုးရလိမ့်မည် ကားများ စက်ဘီးများ နှင့် ကားများ။
➤ အခြေအနေအားလုံးကို အစားထိုးရန်အတွက် အောက်ပါကုဒ်ကို အသုံးပြုပါ။ စာသား ကားများ ။
3989
ဤတွင်၊ REPLACE လုပ်ဆောင်ချက် သည် 3 ဖြစ်သည်။ ကားများ နှင့်အတူ စက်ဘီး စာသားဖြင့် အစားထိုးခြင်းကို ညွှန်ပြသော ရေတွက်နံပါတ်။
➤ F5 ကိုနှိပ်ပါ။
ပြီးနောက်၊ အစားထိုးထားသော စာသား စက်ဘီး စာတန်းဖြင့် အောက်ပါ မက်ဆေ့ခ်ျဘောက်စ် ရှိသည်။
အလားတူ ဖတ်ရှုမှုများ
- Excel တွင် Carriage Return ဖြင့် စာသားကို အစားထိုးနည်း (4 Smooth Approaches)
- Excel VBA- ရှာဖွေနည်း နှင့် Word Document တွင် စာသားကို အစားထိုးပါ
- Excel တွင် သတ်မှတ်ထားသော ဇာတ်ကောင်ပြီးနောက် စာသားကို အစားထိုးနည်း (နည်းလမ်း 3 ခု)
- စာသားကို အစားထိုးနည်းExcel ရှိ အခြေအနေအပေါ်အခြေခံသည့် Cell (5 လွယ်ကူသောနည်းလမ်းများ)
Method-03- InputBox ဖြင့် ကျပန်းစာတန်းတစ်ခုတွင် စာသားကို အစားထိုးပါ
ဤနေရာတွင် ကျွန်ုပ်တို့သည် အချို့သောစာသားများကို အစားထိုးပါမည်။ VBA InputBox လုပ်ဆောင်ချက် ၏အကူအညီဖြင့် အသုံးပြုသူတစ်ဦးမှ သတ်မှတ်ပေးမည့် စာသားပါ ကျပန်းစာတန်းတစ်ခု။
အဆင့်များ :
➤ Step-01 of Method-1 ကို လိုက်နာပါ။
➤ အောက်ပါ ကုဒ်ကို ရိုက်ထည့်ပါ။
1799
ဤတွင်၊ ကျွန်ုပ်တို့ ကြေငြာထားပါသည်။ full_txt_str ၊ new_txt နှင့် updated_str အဖြစ် String ပြီးနောက် full_txt_str ကို ကျပန်းစာတန်းတစ်ခုသို့ သတ်မှတ်ပေးသည်- “ကားအစီးငါးဆယ် ကားဆယ်စီး” ။ အသုံးပြုသူသတ်မှတ်ထားသောထည့်သွင်းမှုကို ကားများ ကျပန်းစာတန်းတွင် ကားများ ဖြင့် အစားထိုးရန် စာသားအဖြစ် ကျွန်ုပ်တို့သည် InputBox လုပ်ဆောင်ချက် ကို အသုံးပြုပြီး ဤတန်ဖိုးကို သတ်မှတ်ပေးခဲ့သည်။ new_txt သို့။ ထို့နောက် REPLACE လုပ်ဆောင်ချက် ကို ကားများ အစိတ်အပိုင်း new_txt ဖြင့် အစားထိုးရန် အသုံးပြုပါသည်။ နောက်ဆုံးတွင်၊ ကျွန်ုပ်တို့သည် ဤစာသားအသစ်ကို updated_str သို့ သတ်မှတ်ပေးပြီး မက်ဆေ့ချ်ဘောက်စ် ( MsgBox ) ဖြင့် ကျွန်ုပ်တို့သည် ရလဒ်ကို မြင်တွေ့ရမည်ဖြစ်သည်။
➤ F5 ကိုနှိပ်ပါ။
ထို့နောက်၊ Input Box တစ်ခုသည် စာကြောင်းအသစ်တွင် သင်ရလိုသော မည်သည့်စာသားကိုမဆို ရိုက်ထည့်နိုင်သည့်နေရာတွင် ပေါ်လာပါမည်။
➤ စက်ဘီးများ သို့မဟုတ် သင်အလိုရှိသော အခြားစာသားတစ်ခုခုကို ရိုက်ထည့်ပြီး OK ကိုနှိပ်ပါ။
နောက်ဆုံးတွင် သင်သည် စက်ဘီးများ အတွင်းတွင် စာသားအသစ်ပါသော စာသားကြိုးအသစ်ဖြင့် အောက်ပါရလဒ်ကို ရရှိသည် ကားများ ၏ အနေအထား။
Read More- Excel Formula တွင် စာသားကို အစားထိုးနည်း (7 လွယ်ကူသော နည်းလမ်းများ)
Method-04- Excel VBA ဖြင့် Strings အကွာအဝေးရှိ စာသားကို အစားထိုးပါ
ဤတွင်၊ ကျွန်ုပ်တို့သည် gmail အစိတ်အပိုင်းကို အစားထိုးပါမည်။ New Domain ကော်လံရှိ ဒိုမိန်းများနှင့် အီးမေးလ် ids များနှင့် အီးမေးလ် ids အသစ်များကို စုဆောင်းရန်အတွက် ကော်လံအသစ်တစ်ခုကို ထည့်သွင်းထားပါသည်။ နောက်ဆုံးအီးမေးလ်အိုင်ဒီ ။
အဆင့် -
➤ အဆင့်-၀၁ ကို လိုက်နာပါ ၏ Method-1 ။
➤ အောက်ပါကုဒ်ကို ရိုက်ထည့်ပါ။
5806
ဤနေရာတွင်၊ FOR loop ကို အသုံးပြုပြီး <မှ လုပ်ဆောင်ချက်ကို လုပ်ဆောင်ရန် 1> အတန်း 4 မှ အတန်း 13 ။ IF-THEN ကြေညာချက်၏အကူအညီဖြင့်၊ ကော်လံ D တွင် “gmail” ၏ အီးမေးလ် id များ ရှိမရှိ စစ်ဆေးပြီးဖြစ်သည် ဟုတ်မဟုတ်၊ ဤစံသတ်မှတ်ချက်ကို ဖြည့်ဆည်းရန်အတွက် “gmail” အီးမေးလ် အိုင်ဒီများ၏ အပိုင်းကို ကော်လံ E<၏ ဒိုမိန်းအသစ်များဖြင့် အစားထိုးမည်ဖြစ်သည်။ 10> ကော်လံ F တွင် အိုင်ဒီအသစ်များ ဖန်တီးရန်။ သို့မဟုတ်ပါက သင်သည် ကော်လံ F ၏ သက်ဆိုင်ရာဆဲလ်များတွင် ဗလာတစ်ခုရှိပါမည်။
➤ F5 ကိုနှိပ်ပါ။
ထို့နောက်၊ သင့်တွင် နောက်ဆုံးအီးမေးလ် ID ကော်လံတွင် အီးမေးလ်အိုင်ဒီအသစ်များ ရှိပါမည်။
Read More: ကော်လံတစ်ခုတွင် စာသားကိုရှာပြီး အစားထိုးရန် Excel VBA (ဥပမာ 2 ခု)
Method-05- စာသားကိုရှာဖွေရန် User Input ဖြင့် စာသားကို အစားထိုး
သင်သည် ၎င်းကို အစားထိုးနိုင်သည်။ အောက်ပါ email ids များနှင့်အတူဒိုမိန်းအသစ်များနှင့် ယခင် ids များတွင် အစားထိုးရမည့်အရာကို ကြေညာခြင်းဖြင့် ဤနည်းလမ်းကို လိုက်နာခြင်းဖြင့် အသုံးပြုသူထည့်သွင်းမှုကို အသုံးပြုနိုင်ပါသည်။
အဆင့်များ :
➤ Step-01 of Method-1 ကို လိုက်နာပါ။
➤ အောက်ပါကုဒ်ကို ရိုက်ထည့်ပါ။
7483
ဤတွင်၊ ကျွန်ုပ်တို့သတ်မှတ်ထားသည် partial_text ကို String အဖြစ် သတ်မှတ်ပြီး Input Box မှတဆင့် အသုံးပြုသူတစ်ဦးမှ ပေးမည့် စာကြောင်းတစ်ခုသို့ သတ်မှတ်ပေးပါသည်။
ထို့နောက်၊ FOR loop ကိုအသုံးပြုပြီး Row 4 မှ Row 13 ကိုအသုံးပြု၍ အသုံးပြုပြီး၊ IF-THEN ထုတ်ပြန်ချက်၊ ကော်လံ D တွင် “gmail” အီးမေးလ် အိုင်ဒီများ ရှိမရှိ စစ်ဆေးခဲ့သည် မဟုတ်ဘူး ဤစံနှုန်းကို ဖြည့်ဆည်းရန်အတွက် “gmail” အီးမေးလ်အိုင်ဒီများ၏ အပိုင်းကို ဖန်တီးရန်အတွက် ကော်လံ E ၏ ဒိုမိန်းအသစ်များဖြင့် အစားထိုးမည်ဖြစ်သည်။ ကော်လံ F ရှိ အိုင်ဒီအသစ်များ။ သို့မဟုတ်ပါက သင်သည် ကော်လံ F ၏ သက်ဆိုင်ရာဆဲလ်များတွင် ဗလာတစ်ခုရှိပါမည်။
➤ F5 ကိုနှိပ်ပါ။ .
ထို့နောက်၊ သင့်တွင် Input Box တွင် သင်ရှာဖွေလိုသော အီးမေးလ် ids အကွာအဝေးတွင် သင်ရှာဖွေလိုသော စာသားကို ရိုက်ထည့်ရန် လိုအပ်သည် (ဤနေရာတွင် ကျွန်ုပ်တို့ ရှိသည်။ gmail ) ထဲသို့ဝင်ပြီးနောက် OK ကိုနှိပ်ပါ။
နောက်ဆုံးတွင်၊ Final တွင် ကျွန်ုပ်တို့၏ မွမ်းမံထားသော email ids များရှိနေပါသည်။ အီးမေးလ် ID ကော်လံ။
Read More- Excel VBA (Macro နှင့် UserForm) ဖြင့် အကွာအဝေးအတွင်း စာသားတစ်ခုကို ရှာဖွေပြီး အစားထိုးပါ
လေ့ကျင့်မှုအပိုင်း
အလေ့အကျင့်ပြုလုပ်ရန်အတွက် အလေ့အကျင့် ဟု အမည်ပေးထားသည့် စာရွက်တစ်ခုတွင် အောက်ပါကဲ့သို့ လေ့ကျင့်မှု ကဏ္ဍကို သင်ကိုယ်တိုင် ပေးထားပါသည်။ ကျေးဇူးပြု၍ သင်ကိုယ်တိုင် ပြုလုပ်ပါ။
နိဂုံးချုပ်
ဤဆောင်းပါးတွင် Excel VBA ကို အသုံးပြု၍ စာကြောင်းတစ်ခုတွင် စာသားအစားထိုးနည်းများကို ခြုံငုံရန် ကြိုးစားခဲ့သည် ။ အသုံးဝင်မယ်လို့ မျှော်လင့်ပါတယ်။ သင့်တွင် အကြံပြုချက်များ သို့မဟုတ် မေးခွန်းများရှိပါက၊ ၎င်းတို့ကို မှတ်ချက်ကဏ္ဍတွင် လွတ်လပ်စွာမျှဝေနိုင်ပါသည်။
