Vba- ကော်လံများစွာဖြင့် စာရွက်တစ်ရွက်ကို ဘယ်လိုစီမလဲ။
VBA ကို အသုံးပြု၍ Excel စာရွက်ကို ကော်လံအများအပြားဖြင့် စီရန် အောက်ပါအခြေခံအထားအသိုကိုသုံးနိုင်သည်။
Sub SortMultipleColumns()
Range(" A1:B11 ").Sort Key1:=Range(" A1 "), Order1:=xlAscending, _
Key2:=Range(" B1 "), Order2:=xlDescending, _
Header:=xlYes
End Sub
ဤဥပမာသည် အပိုင်းအခြား A1:B11 အတွင်းရှိ ဆဲလ်များကို ကော်လံ A မှ ကြီးလိုက်ကြီးလိုက်ဖြင့် ပထမပိုင်းအလိုက် စီထားခြင်းဖြစ်ပြီး၊ ထို့နောက် ကော်လံ B ရှိ တန်ဖိုးများကို ကြီးစဉ်ငယ်လိုက်ဖြင့် စီစစ်ပါသည်။
Header:=xlYes သည် ပထမစာကြောင်းအား ခေါင်းစီးလိုင်းအဖြစ် သတ်မှတ်ပေးကြောင်း သတိပြုပါ။
အောက်ဖော်ပြပါ ဥပမာသည် ဤ syntax ကို လက်တွေ့တွင် မည်သို့အသုံးပြုရမည်ကို ပြသထားသည်။
ဥပမာ- VBA ကို အသုံးပြု၍ ကော်လံများစွာဖြင့် Excel စာရွက်ကိုစီပါ။
အမျိုးမျိုးသော ဘတ်စကတ်ဘောကစားသမားများအကြောင်း အချက်အလက်များပါရှိသော Excel တွင် အောက်ပါဒေတာအတွဲရှိသည် ဆိုကြပါစို့။

ကျွန်ုပ်တို့သည် အောက်ပါနည်းလမ်းဖြင့် ဒေတာအတွဲကို စီလိုသည်ဆိုပါစို့။
- ပထမဦးစွာ အဖွဲ့ ကော်လံရှိ တန်ဖိုးများကို ငယ်စဉ်ကြီးလိုက် (A မှ Z) ဖြင့်စီပါ။
- ထို့နောက် အမှတ်များ ကော်လံရှိ တန်ဖိုးများကို ကြီးစဉ်ငယ်လိုက် (အကြီးဆုံးမှ အငယ်ဆုံး) ဖြင့်စီပါ။
ဒါကိုလုပ်ဖို့ အောက်ပါ macro ကို ဖန်တီးနိုင်ပါတယ်။
Sub SortMultipleColumns()
Range(" A1:B11 ").Sort Key1:=Range(" A1 "), Order1:=xlAscending, _
Key2:=Range(" B1 "), Order2:=xlDescending, _
Header:=xlYes
End Sub
ကျွန်ုပ်တို့ ဤ macro ကို run သောအခါတွင်၊ ကျွန်ုပ်တို့သည် အောက်ပါ output ကို ရရှိသည် ။

အတန်းများကို ကြီးလိုက်ကြီးလိုက်နှင့် ရမှတ်များအလိုက် ကြီးစဉ်ငယ်လိုက်ဖြင့် အဖွဲ့အမည်ဖြင့် စီထားသည်။
မှတ်ချက် #1 : ဤဥပမာတွင်၊ ကျွန်ုပ်တို့သည် ကော်လံနှစ်ခုတွင် စီထားသည်။ သို့သော်၊ သင်သည် နောက်ထပ်ကော်လံများကို စီရန် သော့များစွာကို သတ်မှတ်နိုင်သည်။
မှတ်ချက် #2 : VBA အမျိုးအစားခွဲခြင်း နည်းလမ်း၏ စာရွက်စာတမ်းအပြည့်အစုံကို ဤနေရာတွင် ရှာတွေ့နိုင်ပါသည်။
ထပ်လောင်းအရင်းအမြစ်များ
အောက်ဖော်ပြပါ သင်ခန်းစာများသည် VBA တွင် အခြားဘုံအလုပ်များကို မည်သို့လုပ်ဆောင်ရမည်ကို ရှင်းပြသည်-
VBA- AVERAGEIF နှင့် AVERAGEIFS လုပ်ဆောင်ချက်များကို မည်သို့ရေးမည်နည်း။
VBA- SUMIF နှင့် SUMIFS လုပ်ဆောင်ချက်များကို ဘယ်လိုရေးရမလဲ
VBA- COUNTIF နှင့် COUNTIFS လုပ်ဆောင်ချက်များကို ဘယ်လိုရေးရမလဲ