Vba- အပိုင်းအခြား၏ ပျမ်းမျှတန်ဖိုးကို တွက်ချက်နည်း

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

 SubAverageRange ()
    Range(" E2 ") = WorksheetFunction.Average(Range(" B1:B12 "))
End Sub

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

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

 SubAverageRange ()
    'Create variable to store average value
    Dim avg As Single
    
    'Calculate average value of range
    avg = WorksheetFunction.Average(Range(" B1:B12 "))
    
    'Display the result
    MsgBox " Average Value in Range: " & avg
End Sub

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

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

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

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

 SubAverageRange ()
    Range(" E2 ") = WorksheetFunction.Average(Range(" B1:B12 "))
End Sub

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

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

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

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

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

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

 SubAverageRange ()
    'Create variable to store average value
    Dim avg As Single
    
    'Calculate average value of range
    avg = WorksheetFunction.Average(Range(" B1:B12 "))
    
    'Display the result
    MsgBox " Average Value in Range: " & avg
End Sub

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

အကွာအဝေး B2:B12 ရှိ ပျမ်းမျှတန်ဖိုးသည် 21.27273 ဖြစ်ကြောင်း မက်ဆေ့ချ်ဘောက်စ်က ပြောပြသည်။

ဤဥပမာတွင် ကျွန်ုပ်တို့သည် အကွာအဝေး B2:B12 ရှိ ပျမ်းမျှတန်ဖိုးကို တွက်ချက်ခဲ့ကြောင်း သတိပြုပါ။

သို့သော်၊ သင်သည် ကော်လံတစ်ခုလုံးရှိ ပျမ်းမျှတန်ဖိုးကို တွက်ချက်လိုပါက၊ ၎င်းအစား B:B ဟု ရိုက်ထည့်နိုင်သည်။

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

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

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

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