Vba တွင် counta လုပ်ဆောင်ချက်ကို အသုံးပြုပုံ (ဥပမာများနှင့်အတူ)

သီးခြားအကွာအဝေးတစ်ခုရှိ အလွတ်မဟုတ်သည့်ဆဲလ်အရေအတွက်ကို ရေတွက်ရန် VBA တွင် CountA နည်းလမ်းကို သင်သုံးနိုင်သည်။

ဤနည်းလမ်းကို လက်တွေ့တွင် အသုံးပြုရန် ဘုံနည်းလမ်းတစ်ခုဖြစ်သည်။

 SubCountARange ()
    Range(" C1 ") = WorksheetFunction.CountA(Range(" A1:A10 "))
End Sub

ဤဥပမာသည် အပိုင်းအခြား A1:A10 ရှိ အလွတ်မဟုတ်သောဆဲလ်အရေအတွက်ကို ရေတွက်ပြီး ဆဲလ် C1 တွင် ရလဒ်ကိုပြသသည်။

မက်ဆေ့ချ်ဘောက်စ်တွင် အလွတ်မဟုတ်သောဆဲလ်အရေအတွက်ကို ပြသလိုပါက၊ အောက်ပါ syntax ကို အသုံးပြုနိုင်ပါသည်။

 SubCountARange ()
    'Create variable to hold results of CountA
    Dim counta As Single
    
    'Calculate number of non-empty cells in range
    counta = WorksheetFunction.CountA(Range(" A1:A10 "))
    
    'Display the result
    MsgBox " Number of Non-Empty Cells in Range: " & counta 
End Sub

အောက်ဖော်ပြပါနမူနာများသည် Excel တွင် အောက်ပါတန်ဖိုးများကော်လံဖြင့် ဤနည်းလမ်းတစ်ခုစီကို လက်တွေ့အသုံးပြုနည်းကို ပြသသည်-

ဥပမာ 1- အပိုင်းအခြားရှိ အလွတ်မဟုတ်သောဆဲလ်များကို ရေတွက်ပြီး ဆဲလ်အတွင်းရှိ ရလဒ်များကို ပြသပါ။

အကွာအဝေး A1:A10 အတွင်းရှိ အလွတ်မဟုတ်သောဆဲလ်အရေအတွက်ကို တွက်ချက်ပြီး သီးခြားဆဲလ်တစ်ခုအတွင်း ရလဒ်များကို ပြသလိုသည်ဆိုပါစို့။

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

 SubCountARange ()
    Range(" C1 ") = WorksheetFunction.CountA(Range(" A1:A10 "))
End Sub

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

ဆဲလ် C1 တွင် တန်ဖိုး 7 ပါရှိကြောင်း သတိပြုပါ။

၎င်းသည် A1:A10 အကွာအဝေးတွင် ဗလာမဟုတ်သောဆဲလ် 7 ခုရှိကြောင်း ကျွန်ုပ်တို့ကိုပြောပြသည်။

ဥပမာ 2- အပိုင်းအခြားရှိ အလွတ်မဟုတ်သောဆဲလ်များကို ရေတွက်ပြီး ရလဒ်များကို မက်ဆေ့ဘောက်စ် တွင် ပြသပါ။

A1:A10 အကွာအဝေးရှိ အလွတ်မဟုတ်သောဆဲလ်အရေအတွက်ကို ရေတွက်ပြီး ရလဒ်များကို မက်ဆေ့ဘောက်စ်တွင် ပြသလိုသည်ဆိုပါစို့။

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

 SubCountARange ()
    'Create variable to hold results of CountA
    Dim counta As Single
    
    'Calculate number of non-empty cells in range
    counta = WorksheetFunction.CountA(Range(" A1:A10 "))
    
    'Display the result
    MsgBox " Number of Non-Empty Cells in Range: " & counta 
End Sub

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

အပိုင်းအခြား A1:A10 တွင် အလွတ်မဟုတ်သောဆဲလ် 7 ခု ရှိကြောင်း မက်ဆေ့ချ်ဘောက်စ်က ပြောပြသည်။

အကယ်၍ သင်သည် ကော်လံတစ်ခုလုံးရှိ အလွတ်မဟုတ်သည့်ဆဲလ်အရေအတွက်ကို ရေတွက်လိုပါက၊ ၎င်းအစား A:A ဟု ရိုက်ထည့်နိုင်သည်။

၎င်းသည် ကော်လံ A အားလုံးရှိ အချည်းနှီးမဟုတ်သောဆဲလ်အရေအတွက်ကို တွက်ချက်မည်ဖြစ်သည်။

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

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

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

VBA- AVERAGEIF နှင့် AVERAGEIFS လုပ်ဆောင်ချက်များကို မည်သို့ရေးမည်နည်း။
VBA- SUMIF နှင့် SUMIFS လုပ်ဆောင်ချက်များကို ဘယ်လိုရေးရမလဲ
VBA- COUNTIF နှင့် COUNTIFS လုပ်ဆောင်ချက်များကို ဘယ်လိုရေးရမလဲ