Vba- ကန့်သတ်ချက်များစွာကို အခြေခံ၍ စာကြောင်းတစ်ခုကို ခွဲနည်း

VBA တွင် ကန့်သတ်ချက်များစွာကိုအခြေခံ၍ စာကြောင်းတစ်ခုကိုခွဲရန် အောက်ပါအခြေခံအထားအသိုကိုသုံးနိုင်သည်။

 SubSplitString ()

    Dim SingleValue() As String
    Dim i As Integer
    Dim j As Integer

    For i = 2 To 7
    newString = Replace(Range(" A " & i), " - ", " ")
    SingleValue = Split(newString, " ")
    
       For j = 1 To 3
           Cells(i, j + 1).Value = SingleValue(j - 1)
       Next j
       
    Next i
    
End Sub

ဤဥပမာသည် စာကြောင်းတစ်ခု စီရှိ ကော်လံ B၊ C နှင့် D ရှိ ကော်လံ B၊ C နှင့် D တို့ရှိ ဆက်စပ်ဆဲလ်တစ်ခုစီရှိ မျဉ်းတုံးများ သို့မဟုတ် နေရာလွတ်များကို အခြေခံ၍ ဤအထူးသ ဖြင့် မျဉ်းတစ်ခုစီကို ပိုင်းခြားထားသည်။

မှတ်ချက် – ဤ macro သည် ပထမဦးစွာ တုံးတိုတစ်ခုစီကို space တစ်ခုဖြင့် အစားထိုးပြီး၊ ထို့နောက် နေရာလွတ်များရှိရာအပေါ်အခြေခံ၍ စာကြောင်းတစ်ခုစီကို ပိုင်းခြားသည်။

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

ဥပမာ- VBA တွင် ကန့်သတ်ချက်များစွာကို အခြေခံ၍ စာကြောင်းတစ်ခုကို ခွဲပါ။

Excel တွင် အောက်ပါအမည်များ ရှိသည်ဆိုပါစို့။

ကျွန်ုပ်တို့သည် တုံးတိုများ သို့မဟုတ် နေရာလပ်များကို အခြေခံ၍ အမည်တစ်ခုစီကို ခွဲထုတ်လိုသည်ဆိုပါစို့၊ ထို့နောက် စာကြောင်းတစ်ခုစီ၏ ရလာဒ်ဒြပ်စင်များကို ဆဲလ်အသစ်များသို့ သတ်မှတ်ပေးပါ။

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

 SubSplitString ()

    Dim SingleValue() As String
    Dim i As Integer
    Dim j As Integer

    For i = 2 To 7
    newString = Replace(Range(" A " & i), " - ", " ")
    SingleValue = Split(newString, " ")
    
       For j = 1 To 3
           Cells(i, j + 1).Value = SingleValue(j - 1)
       Next j
       
    Next i
    
End Sub

ကျွန်ုပ်တို့ ဤ macro ကို run သောအခါတွင်၊ ကျွန်ုပ်တို့သည် အောက်ပါ output ကို ရရှိသည် ။

ဤ macro သည် ကော်လံ A တွင် စာကြောင်းတစ်ခုစီကို နေရာလွတ်များနှင့် တုံးတိုများပေါ်တွင် အခြေခံ၍ ပိုင်းခြားပြီး ကော်လံ B၊ C နှင့် D တို့တွင် စာကြောင်းတစ်ခုစီ၏ တစ်ကြောင်းချင်းစီ၏ စာသားအစိတ်အပိုင်းများကို ပြသသည်ကို သတိပြုပါ။

မှတ်ချက် #1- ကျွန်ုပ်တို့သည် ဤဥပမာရှိ တုံးတိုများနှင့် နေရာလွတ်များပေါ်တွင် အခြေခံ၍ စာကြောင်းများကို ပိုင်းခြားခြင်းဖြစ်သော်လည်း၊ ၎င်းတို့ကို အစားထိုးခြင်း နှင့် ခွဲခြမ်းခြင်း လုပ်ဆောင်ချက်များတွင် သတ်မှတ်ခြင်းဖြင့် သင်အလိုရှိသော မည်သည့်ကန့်သတ်ချက်များကိုမဆို အခြေခံ၍ စာကြောင်းများကို ခွဲနိုင်ပါသည်။

မှတ်ချက် #2 : VBA Split လုပ်ဆောင်ချက်အတွက် စာရွက်စာတမ်းအပြည့်အစုံကို ဤနေရာတွင် ရှာတွေ့နိုင်ပါသည်။

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

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

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