Vba တွင် subtotal function ကိုအသုံးပြုနည်း (ဥပမာများနှင့်အတူ)

စာရွက်ပေါ်ရှိ မြင်နိုင်သောဆဲလ်များသာအတွက် အလုံးစုံစာရင်းအင်းများကို တွက်ချက်ရန် Excel ရှိ SUBTOTAL လုပ်ဆောင်ချက်ကို သင်အသုံးပြုနိုင်ပါသည်။

SUBTOTAL လုပ်ဆောင်ချက်ကို အသုံးပြုရန် VBA တွင် အောက်ပါအခြေခံ syntax ကို သင်အသုံးပြုနိုင်သည်-

 Sub FindSubtotal()
Range(" A16 ") = WorksheetFunction.Subtotal(9, Range(" B2:B11 "))
End Sub

ဤဥပမာသည် အကွာအဝေး B2:B11 ရှိ မြင်နိုင်သောဆဲလ်များရှိ တန်ဖိုးများပေါင်းလဒ်ကို တွက်ချက်ပြီး ဆဲလ် A16 တွင် ရလဒ်ကိုပြသသည်။

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

• 1 : အလယ်အလတ်
• 2 : အကောင့်
• 3 : အကောင့်
• 4 : အများဆုံး
• 5 : အနည်းဆုံး
• 6 : ထုတ်ကုန်
• 7 : STDEV
• 8 : STDEVP
• 9 : SUM
• 10 : VAR
• 11 : VARP

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

ဥပမာ- VBA တွင် ပေါင်းစုခွဲနည်းကို အသုံးပြုနည်း

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

ယခု အသင်း A သို့မဟုတ် C နှင့် ညီမျှသည့် အတန်းများကိုသာ ပြသရန် စစ်ထုတ်မှုတစ်ခုကို ကျွန်ုပ်တို့ အသုံးပြုသည်ဆိုပါစို့။

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

 Sub FindSubtotal()
Range(" A16 ") = WorksheetFunction.Subtotal(9, Range(" B2:B11 "))
End Sub

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

ဆဲလ် A16 တွင် တန်ဖိုး 168 ပါဝင်ကြောင်း သတိပြုပါ။

၎င်းသည် အမှတ်များကော်လံတွင်မြင်ရသောဆဲလ်များ၏ပေါင်းလဒ်သည် 168 ဖြစ်ကြောင်းပြောပြသည်။

မတူညီသောမက်ထရစ်ကို တွက်ချက်ရန်အတွက် Subtotal method ၏ ပထမအငြင်းအခုံ၏တန်ဖိုးကိုလည်း ပြောင်းလဲနိုင်သည်။

ဥပမာအားဖြင့်၊ အမှတ်များကော်လံရှိ မြင်နိုင်သောဆဲလ်များ၏ပျမ်းမျှအားတွက်ချက်ရန် 1 တန်ဖိုးကို ကျွန်ုပ်တို့အသုံးပြုနိုင်သည်-

 Sub FindSubtotal()
Range(" A16 ") = WorksheetFunction.Subtotal(1, Range(" B2:B11 "))
End Sub

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

ဆဲလ် A16 တွင် တန်ဖိုး 24 ပါဝင်ကြောင်း သတိပြုပါ။

၎င်းသည် အမှတ်များကော်လံတွင်မြင်ရသောဆဲလ်များ၏ပျမ်းမျှ 24 ဖြစ်သည်ကိုပြောပြသည်။

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

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

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

VBA: အပိုင်းအခြားတစ်ခုတွင် တန်ဖိုးများထည့်နည်း
VBA- အပိုင်းအခြား၏ ပျမ်းမျှတန်ဖိုးကို တွက်ချက်နည်း
VBA- အပိုင်းအခြားရှိ အတန်းအရေအတွက်ကို ရေတွက်နည်း