Vba- string တစ်ခုကို array တစ်ခုသို့ ခွဲနည်း (ဥပမာနှင့်အတူ)

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

 SubSplitString ()

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

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

ဤဥပမာသည် စာကြောင်းတစ်ခုစီရှိ နေရာလွတ်များကို အခြေခံ၍ အပိုင်းအခြား A2:A7 တွင် စာကြောင်းတစ်ခုစီကို ပိုင်းခြားပြီး string တစ်ခုစီ၏ ရလဒ်များကို ဆဲလ်အပိုင်းအခြား B2:B7 နှင့် C2:C7 သို့ သတ်မှတ်ပေးသည်။

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

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

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

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

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

 SubSplitString ()

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

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

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

ကော်လံ B နှင့် C များတွင် ကော်လံ A တွင် နာမည်အပြည့်အစုံတစ်ခုစီ၏ ပထမနှင့် နောက်ဆုံးအမည်များ ပါဝင်သည်ကို သတိပြုပါ။

မတူညီသော မျဉ်းသားမှုအပေါ်အခြေခံ၍ array တစ်ခုကိုခွဲရန် VBA Split လုပ်ဆောင်ချက်ကို အသုံးပြုနိုင်ကြောင်းကိုလည်း သတိပြုပါ။

ဥပမာအားဖြင့်၊ ကျွန်ုပ်တို့တွင် အောက်ပါအီးမေးလ်စာရင်းရှိသည်ဆိုပါစို့။

@ သင်္ကေတပေါ်လာသည့်နေရာအပေါ် အခြေခံ၍ အီးမေးလ်တစ်ခုစီကို ခင်းကျင်းတစ်ခုအဖြစ် ခွဲလိုသည်ဆိုကြပါစို့။

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

 SubSplitString ()

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

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

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

Split လုပ်ဆောင်ချက်သည် @ သင်္ကေတကို အခြေခံ၍ ကော်လံ A တွင် အီးမေးလ်တစ်ခုစီကို ပိုင်းခြားပြီး ရလဒ်များကို ကော်လံ B နှင့် C တို့တွင် ပြသသည်။

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

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

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

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