Vba- အသုံးပြုထားသော ကော်လံအရေအတွက်ကို ရေတွက်နည်း
VBA ကို အသုံးပြု၍ Excel စာရွက်တွင် အသုံးပြုသည့် ကော်လံအရေအတွက်ကို ရေတွက်ရန် အောက်ပါအခြေခံ syntax ကို သင်အသုံးပြုနိုင်သည်-
SubCountColumns ()
Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub
ဤဥပမာသည် Sheet1 ဟုခေါ်သောစာရွက်တွင်အသုံးပြုသည့်ကော်လံအရေအတွက်ကိုရေတွက်ပြီးဆဲလ် A10 တွင်ရလဒ်ကိုပြသသည်။
မက်ဆေ့ဘောက်စ်တစ်ခုတွင် ကော်လံအရေအတွက်ကို ပြသလိုပါက၊ အောက်ပါ syntax ကို အသုံးပြုနိုင်ပါသည်။
SubCountColumns ()
Dim LastCol As Long
LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
MsgBox " Column Count: " & LastCol
End Sub
အောက်ဖော်ပြပါနမူနာများသည် ဘတ်စကက်ဘောကစားသမားများအကြောင်း အချက်အလက်များစွာပါရှိသော အောက်ပါဒေတာအစုံဖြင့် ဤနည်းလမ်းတစ်ခုစီကို လက်တွေ့အသုံးပြုနည်းကို ပြသသည်-
ဥပမာ 1- VBA တွင်အသုံးပြုသောကော်လံများကိုရေတွက်ပြီးဆဲလ်အတွင်းရှိရလဒ်များကိုပြသပါ။
အသုံးပြုထားသော ကော်လံအရေအတွက်ကို ရေတွက်ပြီး သီးခြားဆဲလ်တစ်ခုတွင် ရလဒ်များကို ပြသလိုသည်ဆိုပါစို့။
ဒါကိုလုပ်ဖို့ အောက်ပါ macro ကို ဖန်တီးနိုင်ပါတယ်။
SubCountColumns ()
Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub
ကျွန်ုပ်တို့ ဤ macro ကို run သောအခါတွင်၊ ကျွန်ုပ်တို့သည် အောက်ပါ output ကို ရရှိသည် ။
ဆဲလ် A10 တွင် တန်ဖိုး 4 ပါဝင်ကြောင်း သတိပြုပါ။
၎င်းသည် အသုံးပြုထားသော ကော်လံ 4 ခုရှိကြောင်း ပြောပြသည်။
ဥပမာ 2- VBA တွင် အသုံးပြုထားသော ကော်လံများကို ရေတွက်ပြီး ရလဒ်များကို မက်ဆေ့ဘောက်စ်တွင် ပြသပါ ။
၎င်းအစား ကျွန်ုပ်တို့ အသုံးပြုသော ကော်လံအရေအတွက်ကို ရေတွက်ပြီး ရလဒ်များကို မက်ဆေ့ဘောက်စ်တစ်ခုတွင် ပြသလိုသည်ဆိုပါစို့။
ဒါကိုလုပ်ဖို့ အောက်ပါ macro ကို ဖန်တီးနိုင်ပါတယ်။
SubCountColumns ()
Dim LastCol As Long
LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
MsgBox " Column Count: " & LastCol
End Sub
ကျွန်ုပ်တို့ ဤ macro ကို run သောအခါတွင်၊ ကျွန်ုပ်တို့သည် အောက်ပါ output ကို ရရှိသည် ။
အသုံးပြုထားသော ကော်လံ ၄ ခု ရှိကြောင်း မက်ဆေ့ဘောက်စ်တွင် ဖော်ပြထားသည်။
မှတ်ချက် – ဒေတာပါရှိသော ကော်လံနောက်တွင် ဗလာကော်လံများရှိပါက VBA သည် တွက်ချက်မှုတွင် “ အသုံးပြုသည်” အဖြစ် ဗလာကော်လံများကို ရေတွက်မည်ဖြစ်သည်။
ထပ်လောင်းအရင်းအမြစ်များ
အောက်ဖော်ပြပါ သင်ခန်းစာများသည် VBA တွင် အခြားဘုံအလုပ်များကို မည်သို့လုပ်ဆောင်ရမည်ကို ရှင်းပြသည်-
VBA- အလုပ်စာအုပ်တွင် စာရွက်အရေအတွက်ကို ရေတွက်နည်း
VBA- အပိုင်းအခြားရှိ အတန်းအရေအတွက်ကို ရေတွက်နည်း
VBA- သီးခြားစာသားဖြင့် ဆဲလ်များကို ရေတွက်နည်း