Vba တွင် စာကြောင်းများ ပေါင်းစပ်နည်း (ဥပမာများဖြင့်)

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

နည်းလမ်း 1- ကြိုးနှစ်ချောင်းကို ပေါင်းစပ်ပါ။

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & Range(" B2 ")
End Sub

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

နည်းလမ်း 2- မျဉ်းနှစ်ခုကို ကန့်သတ်ချက်တစ်ခုဖြင့် ပေါင်းစပ်ပါ။

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & " " & Range(" B2 ")
End Sub

ဤဥပမာသည် ဆဲလ် A2 နှင့် B2 ရှိ စာကြောင်းများကို ကြိုးများကြားတွင် နေရာလပ်တစ်ခုဖြင့် ပေါင်းစပ်ပြီး ဆဲလ် C2 တွင် ရလဒ်ကို ပြသမည်ဖြစ်သည်။

နည်းလမ်း 3- ကော်လံနှစ်ခုကို ကန့်သတ်ချက်တစ်ခုဖြင့် ပေါင်းစပ်ပါ။

 SubConcatStrings ()
    Dim i As Integer

    For i = 2 To 6
      Cells(i, 3).Value = Cells(i, 1) & " _ " & Cells(i, 2)
    Next i
End Sub

ဤဥပမာသည် အပိုင်းအခြား A2:A6 နှင့် B2:B6 အတွင်းရှိ စာကြောင်းများကို မျဉ်းကြောင်းများကြားတွင် အောက်အမှတ်ဖြင့် ပေါင်းစပ်ပြီး ရလဒ်များကို ဆဲလ် C2:C6 တွင် ပြသမည်ဖြစ်သည်။

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

ဥပမာ 1- ကြိုးနှစ်ချောင်းကို ပေါင်းစပ်ပါ။

string နှစ်ခုကို ပေါင်းစပ်ရန် အောက်ပါ macro ကို ဖန်တီးနိုင်သည်။

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & Range(" B2 ")
End Sub

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

ဆဲလ် A2 နှင့် B2 မှ ကြိုးများကို ဆဲလ် C2 သို့ ပေါင်းစပ်ထားကြောင်း သတိပြုပါ။

ဥပမာ 2- မျဉ်းနှစ်ကြောင်းကို ကန့်သတ်ချက်တစ်ခုဖြင့် ပေါင်းစပ်ပါ။

မျဉ်းနှစ်ခုကို ကန့်သတ်ချက်အဖြစ် space ဖြင့် ပေါင်းစပ်ရန် အောက်ပါ macro ကို ဖန်တီးနိုင်သည်-

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & " " & Range(" B2 ")
End Sub

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

ဆဲလ် A2 နှင့် B2 ရှိ စာကြောင်းများကို ၎င်းတို့ကြားတွင် နေရာလွတ်တစ်ခုဖြင့် ပေါင်းစပ်ထားပြီး ရလဒ်ကို ဆဲလ် C2 တွင် ပြသထားကြောင်း သတိပြုပါ။

ဥပမာ 3- ကော်လံနှစ်ခုကို ကန့်သတ်ချက်တစ်ခုဖြင့် ပေါင်းစပ်ပါ။

မျဉ်းကြောင်းနှစ်ခုကို ကော်လံနှစ်ခုသို့ ပေါင်းစည်းရန် အောက်ဖော်ပြပါ မက်ခရိုကို ဖန်တီးနိုင်သည်-

 SubConcatStrings ()
    Dim i As Integer

    For i = 2 To 6
      Cells(i, 3).Value = Cells(i, 1) & " _ " & Cells(i, 2)
    Next i
End Sub

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

A2:A6 နှင့် B2:B6 အပိုင်းအခြားရှိ စာကြောင်းများကို ၎င်းတို့ကြားတွင် အောက်အမှတ်ဖြင့် ပေါင်းစပ်ထားပြီး ရလဒ်များကို အပိုင်းအခြား C2:C6 တွင် ပြသထားကြောင်း သတိပြုပါ။

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

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

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