Vba တွင် အလေးချိန် ပျမ်းမျှတွက်နည်း (ဥပမာဖြင့်)

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

 Sub FindWeightedAverage()

Range(" E2 ") = _
    WorksheetFunction.SumProduct(Range(" B2:B7 "), Range(" C2:C7 ")) / _
    WorksheetFunction.Sum(Range(" C2:C7 "))

End Sub

ဤဥပမာသည် အကွာအဝေး B2:B7 ရှိ ဆဲလ်များကို တန်ဖိုးများနှင့် အလေးများအဖြစ် C2:C7 အကွာအဝေးရှိ ဆဲလ်များကို အသုံးပြု၍ အလေးချိန်ပျမ်းမျှကို တွက်ချက်ပါသည်။

ထို့နောက် အလေးချိန် ပျမ်းမျှအား ဆဲလ် E2 တွင် ပြသသည်။

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

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

ကုမ္ပဏီတစ်ခု၏ဝန်ထမ်းများမှရောင်းချမှုအမျိုးမျိုးကိုပြသသော Excel တွင်အောက်ပါဒေတာအစုံရှိသည်ဆိုကြပါစို့။

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

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

 Sub FindWeightedAverage()

Range(" E2 ") = _
    WorksheetFunction.SumProduct(Range(" B2:B7 "), Range(" C2:C7 ")) / _
    WorksheetFunction.Sum(Range(" C2:C7 "))

End Sub

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

ဆဲလ် E2 တွင် တန်ဖိုး 9.705882 ပါရှိသည်ကို သတိပြုပါ။

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

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

အလေးချိန် ပျမ်းမျှ = Σw _i X _i / Σw _i

ရွှေ-

• w _i = အလေးချိန်တန်ဖိုးများ
• X _i = ဒေတာတန်ဖိုးများ

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

• အလေးချိန် ပျမ်းမျှ = Σw _i X _i / Σw _i
• အလေးချိန် ပျမ်းမျှ = (1*8 + 3*5 + 2*6 + 2*7 + 5*12 + 4*14) / (1+3+2+2+5+4)
• ကျောင်းသား A အတွက် အတန်းအမှတ် ပျမ်းမျှ = 9.705882

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

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

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

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