Vba တွင် တန်ဖိုးများကို မည်သို့အဝိုင်းနည်း (ဥပမာများဖြင့်)

တန်ဖိုးများကိုဝိုင်းရန် VBA တွင် RoundDown နည်းလမ်းကို သင်သုံးနိုင်သည်။

ဤလုပ်ဆောင်ချက်သည် အောက်ပါအခြေခံ syntax ကိုအသုံးပြုသည်-

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), 0)
End Sub

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

RoundDown နည်းလမ်းအတွက် ဒုတိယအငြင်းအခုံသည် မည်သည့်နေရာတွင် ပတ်ရန် ဂဏန်းအရေအတွက်ကို သတ်မှတ်ပေးသည်ကို သတိပြုပါ။

• အနီးဆုံးထောင် -၃ ကျော့
• အနီးဆုံး သိန်း -၂ ကျော့
• အနီးဆုံးဆယ်ခုအထိ ၁ ကျော့
• အနီးဆုံးနံပါတ်သို့ 0 လှည့်သည်။
• အနီးဆုံး ဒသမသို့ 1 ကျော့ (ဒဿမ တစ်နေရာ)
• အနီးဆုံး သိန်းသို့ 2 အကျော့ (ဒဿမ နှစ်နေရာ)
• 3 ကို အနီးဆုံး တစ်ထောင် (ဒဿမ 3 နေရာ) သို့ လှည့်ပတ်ထားသည်။

နောက် … ပြီးတော့။

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

ဆက်စပ်မှု- VBA တွင် တန်ဖိုးများကို မည်သို့ Round လုပ်မည်နည်း။

ဥပမာ 1- VBA ရှိ အနီးဆုံးနံပါတ်တစ်ခုလုံးကို လှည့်ပါ။

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

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), 0)
End Sub

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

ဆဲလ် A1 ရှိ တန်ဖိုး 1432.78 ကို ဆဲလ် B1 ရှိ 1432 ၏ အနီးဆုံး နံပါတ်တစ်ခုလုံးသို့ ဝိုင်းစက်ထားကြောင်း သတိပြုပါ။

ဥပမာ 2- VBA တွင် အနီးဆုံးတစ်ရာသို့ လှည့်ပါ။

ဆဲလ် A1 ရှိ တန်ဖိုးကို အနီးဆုံး ရာဂဏန်းအထိ ပတ်ပြီး ဆဲလ် B1 တွင် ရလဒ်ကို ပြသရန် အောက်ပါ မက်ခရိုကို ဖန်တီးနိုင်သည်။

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), -2)
End Sub

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

ဆဲလ် A1 ရှိ တန်ဖိုး 1432.78 ကို ဆဲလ် B1 ရှိ အနီးဆုံး ရာဂဏန်း 1400 သို့ ဝိုင်းစက်ခဲ့ကြောင်း သတိပြုပါ။

ဥပမာ 3- VBA တွင် အနီးဆုံး ဒသမသို့ လှည့်ပါ။

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

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), 1)
End Sub

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

ဆဲလ် A1 တွင် 1432.78 တန်ဖိုးကို ဆဲလ် B1 ရှိ အနီးဆုံး ဒသမ 1432.7 သို့ ဝိုင်းချထားကြောင်း သတိပြုပါ။

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

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

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

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