Vba- ရွေးချယ်မှုတွင် အတန်းများကို ရေတွက်နည်း

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

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

 SubCountRowsInSelection ()

MsgBox Selection.Rows.Count

End Sub

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

နည်းလမ်း 2- ရွေးချယ်မှုရှိ အတန်းများကို ရေတွက်ပြီး သီးခြားဆဲလ်တစ်ခုရှိ နံပါတ်ကို ပြသပါ။

 SubCountRowsInSelection ()

Range("E1").Value = Selection.Rows.Count

End Sub

ဤဥပမာသည် လက်ရှိရွေးချယ်မှုရှိ အတန်းအရေအတွက်ကို ရေတွက်ပြီး ဆဲလ် E1 တွင် ထိုနံပါတ်ကို ပြသသည်။

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

ဥပမာ 1- ရွေးချယ်မှုတွင် အတန်းများကို ရေတွက်ပြီး မက်ဆေ့ချ်ဘောက်စ်တွင် နံပါတ်ကို ပြသပါ။

ကျွန်ုပ်တို့၏စာရင်းဇယားတွင် ကျွန်ုပ်တို့သည် ဆဲလ်အပိုင်းအခြား A1:C17 ကို ရွေးသည်ဆိုပါစို့။

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

 SubCountRowsInSelection ()

MsgBox Selection.Rows.Count

End Sub

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

လက်ရှိရွေးချယ်မှုတွင် အတန်း 17 တန်းရှိကြောင်း မက်ဆေ့ချ်ဘောက်စ်တွင် ဖော်ပြထားသည်။

ဥပမာ 2- ရွေးချယ်မှုရှိ အတန်းများကို ရေတွက်ပြီး သီးခြားဆဲလ်တစ်ခုရှိ နံပါတ်ကို ပြသပါ။

ကျွန်ုပ်တို့၏စာရင်းဇယားတွင် ကျွန်ုပ်တို့သည် ဆဲလ်အပိုင်းအခြား A4:D9 ကို ရွေးသည်ဆိုပါစို့။

ရွေးချယ်မှုတွင် အတန်းအရေအတွက်ကို ရေတွက်ပြီး ဆဲလ် E1 တွင် ရလဒ်များကို ပြသရန် အောက်ပါ မက်ခရိုကို ဖန်တီးနိုင်သည်။

 SubCountRowsInSelection ()

Range("E1").Value = Selection.Rows.Count

End Sub

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

Cell E1 သည် လက်ရှိရွေးချယ်မှုတွင် အတန်း 6 တန်းရှိကြောင်း ပြောပြသည်။

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

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

VBA ကို အသုံးပြု၍ ဇယားတစ်ခုရှိ အတန်းများကို ရေတွက်နည်း
VBA ကို အသုံးပြု၍ သီးခြားစာသားဖြင့် ဆဲလ်များကို ရေတွက်နည်း
VBA ကို အသုံးပြု၍ အကွာအဝေးရှိ ထူးခြားသောတန်ဖိုးများကို ရေတွက်နည်း