Vba- စာလုံးနှစ်လုံးကြားမှ စာသားကို ထုတ်ယူနည်း

သီးခြားစာလုံးနှစ်လုံးကြားတွင် စာသားကိုထုတ်ယူရန် VBA တွင် အောက်ပါစိတ်ကြိုက်လုပ်ဆောင်ချက်ကို ဖန်တီးနိုင်သည်-

 Function ExtractBetween(this_text, start_char, end_char)

StartPosition = InStr(this_text, start_char)
EndPosition = InStr(this_text, end_char)

ExtractBetween = Mid(this_text, StartPosition + 1, EndPosition - StartPosition - 1)

End Function

ထို့နောက် Excel တွင် သီးခြားစာလုံးနှစ်ခုကြားမှ စာသားကို သီးသန့်စာလုံးအဖြစ်သို့ ထုတ်ယူရန် ဤလုပ်ဆောင်ချက်ကို အသုံးပြုနိုင်သည်။

အောက်ဖော်ပြပါ ဥပမာသည် ဤလုပ်ဆောင်ချက်ကို လက်တွေ့အသုံးချနည်းကို ပြသထားသည်။

ဥပမာ- စာလုံးနှစ်လုံးကြားတွင် စာသားကိုထုတ်ယူရန် VBA ကိုအသုံးပြုခြင်း။

ကုမ္ပဏီတစ်ခုရှိ ထုတ်ကုန်အမျိုးမျိုး၏ စုစုပေါင်းရောင်းချမှု ID တန်ဖိုးများနှင့် စုစုပေါင်းရောင်းချမှုများပါရှိသော Excel တွင် အောက်ပါဒေတာအစုံရှိသည်ဆိုပါစို့။

ကော်လံ A ရှိ ဆဲလ်တစ်ခုစီအတွက် ကွင်းစကွင်းပိတ်တွင် စာသားကို ထုတ်ယူရန်နှင့် ကော်လံ C တွင် ရလဒ်များကို ပြန်ပေးရန်အတွက် VBA ကို အသုံးပြုလိုသည်ဆိုပါစို့။

ဒါကိုလုပ်ဖို့ အောက်ပါလုပ်ဆောင်ချက်ကို ကျွန်ုပ်တို့ ဖန်တီးနိုင်ပါတယ်။

 Function ExtractBetween(this_text, start_char, end_char)

StartPosition = InStr(this_text, start_char)
EndPosition = InStr(this_text, end_char)

ExtractBetween = Mid(this_text, StartPosition + 1, EndPosition - StartPosition - 1)

End Function

ထို့နောက် ဆဲလ် A2 ရှိ စာသားအတွက် ကွင်းစကွင်းစတွင် စာသားကို ထုတ်ယူရန် အောက်ပါဖော်မြူလာကို ဆဲလ် C2 တွင် ရိုက်ထည့်နိုင်သည် ။

 =ExtractBetween( A2 , "(", ")")

ထို့နောက် ကျွန်ုပ်တို့သည် ဤဖော်မြူလာကို ကော်လံ C ရှိ ကျန်ဆဲလ်တစ်ခုစီသို့ နှိပ်ပြီး ဆွဲယူနိုင်သည်-

ယခု Column C သည် ကော်လံ A ရှိ ကိုက်ညီသည့်ဆဲလ်တစ်ခုစီအတွက် ကွင်းစဥ်တွင် စာသားကို ပြသသည်။

မှတ်ချက် – ဤဖော်မြူလာသည် VBA ရှိ Instr လုပ်ဆောင်ချက်ကို အသုံးပြု၍ သတ်သတ်မှတ်မှတ် စတင်ခြင်းနှင့် အဆုံးသတ်သည့် စာလုံးများ၏ အနေအထားကို ထုတ်ယူရန်၊ ထို့နောက် အဆိုပါ စာလုံးနှစ်လုံးကြားရှိ စာသားအားလုံးကို ပြန်ပေးရန်အတွက် Mid လုပ်ဆောင်ချက်ကို အသုံးပြု၍ လုပ်ဆောင်သည်။

ထပ်လောင်းအရင်းအမြစ်များ

အောက်ဖော်ပြပါ သင်ခန်းစာများသည် VBA ကို အသုံးပြု၍ အခြားဘုံအလုပ်များကို မည်သို့လုပ်ဆောင်ရမည်ကို ရှင်းပြသည်-

VBA- စာကြောင်းတစ်ခုရှိ ဇာတ်ကောင်များ၏ ဖြစ်ပေါ်မှုကို ရေတွက်နည်း
VBA- စာကြောင်းတစ်ကြောင်းတွင် အခြားစာကြောင်းပါရှိမရှိ စစ်ဆေးနည်း
VBA- သီးခြားစာသားဖြင့် ဆဲလ်များကို ရေတွက်နည်း