Vba: အပိုင်းအခြားတစ်ခုတွင် တန်ဖိုးများထည့်နည်း

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

 SubSumValues ()
    Range(" D2 ") = WorksheetFunction.Sum(Range(" B2:B11 "))
End Sub

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

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

 SubSumValues ()
    'Create variable to store sum of values
    Dim sum As Single
    
    'Calculate sum of values in range
    sum = WorksheetFunction.Sum(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Sum of Values in Range: " & sum
End Sub

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

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

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

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

 SubSumValues ()
    Range(" D2 ") = WorksheetFunction.Sum(Range(" B2:B11 "))
End Sub

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

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

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

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

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

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

 SubSumValues ()
    'Create variable to store sum of values
    Dim sum As Single
    
    'Calculate sum of values in range
    sum = WorksheetFunction.Sum(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Sum of Values in Range: " & sum
End Sub

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

အကွာအဝေး B2:B11 ရှိ တန်ဖိုးများ၏ ပေါင်းလဒ်သည် 245 ဖြစ်ကြောင်း မက်ဆေ့ဘောက်စ်တွင် ဖော်ပြထားသည်။

ဤဥပမာတွင်၊ ကျွန်ုပ်တို့သည် အပိုင်းအခြား B2:B11 ရှိ တန်ဖိုးများ၏ ပေါင်းလဒ်ကို တွက်ချက်ထားကြောင်း သတိပြုပါ။

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

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

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

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

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