Vba- averageif နှင့် averageifs လုပ်ဆောင်ချက်များကို မည်သို့ရေးမည်နည်း။

Excel တွင် VBA ကို အသုံးပြု၍ AVERAGEIF နှင့် AVERAGEIFS လုပ်ဆောင်ချက်များကို ရေးသားရန် အောက်ပါနည်းလမ်းများကို သင်သုံးနိုင်သည်။

နည်းလမ်း 1- VBA တွင် AVERAGEIF လုပ်ဆောင်ချက်

 Sub Averageif_Function()
    Range(" E2 ") = WorksheetFunction.AverageIf(Range(" A2:A12 "), " Mavs ", Range(" B2:B12 "))
End Sub

ဤဥပမာသည် အပိုင်းအခြား A2:A12 ရှိ ဆက်စပ်တန်ဖိုးသည် “ Mavs” နှင့် ညီမျှသည့် အပိုင်းအခြား B2:B12 ရှိ ပျမ်းမျှတန်ဖိုးကို တွက်ချက်မည်ဖြစ်ပြီး ရလဒ်အား ဆဲလ် E2 သို့ သတ်မှတ်ပေးမည်ဖြစ်သည်။

နည်းလမ်း 2- VBA တွင် AVERAGEIFS လုပ်ဆောင်ချက်

 Sub Averageifs_Function()
    Range(" E2 ") = WorksheetFunction.AverageIfs(Range(" C2:C12 "), Range(" A2:A12 "), " Mavs ", Range(" B2:B12 "), " >20 ")
End Sub

အပိုင်းအခြား A2:A12 ရှိ တန်ဖိုးသည် “ Mavs” နှင့် ညီမျှသည့် အပိုင်းအခြား C2:C12 အတွင်းရှိ ပျမ်းမျှတန်ဖိုးကို တွက်ချက်မည်ဖြစ်ပြီး အပိုင်းအခြား B2:B12 ရှိ တန်ဖိုးသည် 20 ထက် ကြီးနေပြီး ရလဒ်အား ဆဲလ် E2 သို့ သတ်မှတ်ပေးမည်ဖြစ်သည်။ . .

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

ဥပမာ 1- VBA တွင် AVERAGEIF လုပ်ဆောင်ချက်

Mavs အဖွဲ့ရှိ ကစားသမားများအတွက် အမှတ်ကော်လံရှိ ပျမ်းမျှတန်ဖိုးကို တွက်ချက်လိုသည်ဆိုပါစို့။

ဤ AVERAGEIF လုပ်ဆောင်ချက်ကို လုပ်ဆောင်ရန် အောက်ပါ macro ကို ကျွန်ုပ်တို့ ဖန်တီးနိုင်သည်-

 Sub Averageif_Function()
    Range(" E2 ") = WorksheetFunction.AverageIf(Range(" A2:A12 "), " Mavs ", Range(" B2:B12 "))
End Sub

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

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

၎င်းသည် Mavs အသင်းကစားသမားများအတွက် အမှတ်ကော်လံရှိ ပျမ်းမျှတန်ဖိုးသည် 18.25 ဖြစ်ကြောင်း ကျွန်ုပ်တို့ကို ပြောပြသည်။

Mavs ပေါ်ရှိ ပျမ်းမျှကစားသမားအမှတ်တန်ဖိုးကို ကိုယ်တိုင်တွက်ချက်ခြင်းဖြင့် ၎င်းသည် မှန်ကန်ကြောင်း အတည်ပြုနိုင်သည်-

Mavs ကစားသမား ပျမ်းမျှအမှတ်- (22 + 10 + 29 + 12) / 4 = 18.25 ။

ဥပမာ 2- VBA တွင် AVERAGEIFS လုပ်ဆောင်ချက်

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

• ကစားသမားသည် Mavs အသင်း၏အစိတ်အပိုင်းတစ်ခုဖြစ်သည်။
• ကစားသမားက ရမှတ် 20 ကျော်ရခဲ့ပါတယ်။

ဤ AVERAGEIFS လုပ်ဆောင်ချက်ကို လုပ်ဆောင်ရန် အောက်ပါ macro ကို ကျွန်ုပ်တို့ ဖန်တီးနိုင်သည်-

 Sub Averageifs_Function()
    Range(" E2 ") = WorksheetFunction.AverageIfs(Range(" C2:C12 "), Range(" A2:A12 "), " Mavs ", Range(" B2:B12 "), " >20 ")
End Sub

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

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

၎င်းသည် Mavs အသင်းတွင် ရှိပြီး ရမှတ် 20 ထက်ပိုသောကစားသမားများအကြား ပျမ်းမျှဖန်တီးမှုမှာ 9 မှတ်ဖြစ်ကြောင်း ၎င်းကဆိုသည်။

မှတ်ချက် – ဤဥပမာတွင်၊ ကျွန်ုပ်တို့သည် သတ်မှတ်ချက်ဘောင်နှစ်ခုကို အသုံးပြု၍ AVERAGEIFS လုပ်ဆောင်ချက်ကို ဖန်တီးထားသော်လည်း၊ သင်သည် WorksheetFunction.AverageIfs နည်းလမ်းတွင် စံသတ်မှတ်ချက်များကို သင်အလိုရှိသလောက် အသုံးပြုနိုင်ပါသည်။

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

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

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