Vba ကို အသုံးပြု၍ အကွာအဝေးရှိ ထူးခြားသောတန်ဖိုးများကို ရေတွက်နည်း

VBA ကိုအသုံးပြုပြီး အပိုင်းအခြားတစ်ခုရှိ ထူးခြားသောတန်ဖိုးများအရေအတွက်ကိုရေတွက်ရန် အောက်ပါအခြေခံအထားအသိုကိုသုံးနိုင်သည်။

 SubCountUnique ()
    Dim Rng As Range, List As Object, UniqueCount As Long
    Set List = CreateObject(" Scripting.Dictionary ")
    
    'count unique values in range A2:A11
    For Each Rng In Range(" A2:A11 ")
      If Not List.Exists(Rng.Value) Then List.Add Rng.Value, Nothing
    Next
    
'store unique count
UniqueCount = List.Count
    
    ' display unique count
    MsgBox " Count of Unique Values: " & UniqueCount

End Sub

ဤဥပမာသည် A2:A11 အကွာအဝေးရှိ ထူးခြားသောတန်ဖိုးများကို ရေတွက်ပြီး မက်ဆေ့ချ်ဘောက်စ်တွင် အရေအတွက်ကို ပြသသည်။

အောက်ဖော်ပြပါ ဥပမာသည် ဤ syntax ကို လက်တွေ့တွင် မည်သို့အသုံးပြုရမည်ကို ပြသထားသည်။

ဥပမာ- VBA ကို အသုံးပြု၍ အပိုင်းအခြားရှိ သီးသန့်တန်ဖိုးများကို ရေတွက်ပါ။

Excel တွင် အောက်ဖော်ပြပါ ဘတ်စကတ်ဘောအသင်းအမည်များ ရှိသည်ဆိုပါစို့။

A2:A11 အကွာအဝေးရှိ ထူးခြားသောအဖွဲ့အမည်အရေအတွက်ကို ရေတွက်လိုသည်ဆိုပါစို့။

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

 SubCountUnique()
Dim Rng As Range, List As Object, UniqueCount As Long
    Set List = CreateObject(" Scripting.Dictionary ")
    
    'count unique values in range A2:A11
For Each Rng In Range(" A2:A11 ")
      If Not List.Exists(Rng.Value) Then List.Add Rng.Value, Nothing
    Next
    
    'store unique count
    UniqueCount = List.Count
    
    'display unique count
    MsgBox " Count of Unique Values: " & UniqueCount

End Sub

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

မက်ဆေ့ဘောက်စ်တွင် ထူးခြားသော အသင်းအမည် 5 ခု ရှိကြောင်း ပြောပြသည်။

ထူးခြားသောအဖွဲ့အမည်တစ်ခုစီကို ကိုယ်တိုင်ဖော်ထုတ်ခြင်းဖြင့် ၎င်းသည် မှန်ကန်ကြောင်း အတည်ပြုနိုင်သည်-

• Mavs
• အပူ
• ပိုက်ကွန်
• စစ်သည်များ
• ဘုရင်များ

တကယ်တော့ ထူးခြားတဲ့ အသင်းနာမည် 5 ခုရှိပါတယ်။

မှတ်ချက် – မတူညီသောအကွာအဝေးတစ်ခုရှိ ထူးခြားသောတန်ဖိုးများအရေအတွက်ကိုရေတွက်ရန်၊ မတူညီသောအကွာအဝေး တစ်ခုစီအတွက် A2:A11 ကို ရိုးရှင်းစွာအစားထိုးပါ။

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

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

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