Vba: တန်ဖိုးများကို ဒဿမ 2 နေရာသို့ လှည့်နည်း

VBA ကို အသုံးပြု၍ တန်ဖိုးများကို ဒဿမ 2 နေရာသို့ ပတ်ရန် အောက်ပါနည်းလမ်းများကို သင်သုံးနိုင်သည်။

နည်းလမ်း 1- တန်ဖိုးတစ်ခုကို ဒဿမ 2 နေရာသို့ လှည့်ပါ။

 Sub RoundTwoDecimals()
    Range(" B2 ") = WorksheetFunction.Round(Range(" A2 "), 2)
End Sub

ဤဥပမာသည် ဆဲလ် A2 ရှိ တန်ဖိုးကို ဒဿမ နှစ်နေရာသို့ ပတ်ပြီး ဆဲလ် B2 တွင် အဝိုင်းထားသော တန်ဖိုးကို ပြသမည်ဖြစ်သည်။

နည်းလမ်း 2- အကွာအဝေးရှိ တန်ဖိုးအားလုံးကို ဒဿမ 2 နေရာသို့ လှည့်ပါ။

 Sub RoundTwoDecimals()
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Round(Range(" A " & i), 2)
    Next i
End Sub

ဤဥပမာသည် A2:A9 အကွာအဝေးရှိ တန်ဖိုးတစ်ခုစီကို ဒဿမနှစ်နေရာအထိ ပတ်မည်ဖြစ်ပြီး အပိုင်းအခြား B2:B9 တွင် အဝိုင်းထားသောတန်ဖိုးများကို ပြသမည်ဖြစ်သည်။

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

ဥပမာ 1- တန်ဖိုးတစ်ခုကို ဒဿမ 2 နေရာသို့ လှည့်ပါ။

ဆဲလ် A2 ရှိ တန်ဖိုးကို ဒဿမနှစ်နေရာအထိ ပတ်ပြီး ဆဲလ် B2 တွင် ရလဒ်ကို ပြသရန် အောက်ပါ macro ကို ဖန်တီးနိုင်သည်။

 Sub RoundTwoDecimals()
    Range(" B2 ") = WorksheetFunction.Round(Range(" A2 "), 2)
End Sub

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

ဆဲလ် A2 ရှိ တန်ဖိုး 15.248 ကို ဆဲလ် B2 တွင် ဒဿမ နှစ်နေရာ (15.25) သို့ ဝိုင်းစက်ခဲ့ကြောင်း သတိပြုပါ။

ဥပမာ 2- အကွာအဝေးရှိ တန်ဖိုးအားလုံးကို ဒဿမ 2 နေရာသို့ လှည့်ပါ။

A2:A9 အကွာအဝေးရှိ တန်ဖိုးတစ်ခုစီကို ဒဿမနေရာနှစ်ခုသို့ ပတ်ရန် အောက်ပါ macro ကို ဖန်တီးနိုင်ပြီး အပိုင်းအခြား B2:B9 တွင် အဝိုင်းထားသော တန်ဖိုးများကို ပြသနိုင်သည် ။

 Sub RoundTwoDecimals()
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Round(Range(" A " & i), 2)
    Next i
End Sub

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

A2:A9 အကွာအဝေးရှိ တန်ဖိုးတစ်ခုစီကို ဒဿမနှစ်နေရာသို့ ပတ်ထားပြီး အဝိုင်းထားသောတန်ဖိုးများကို အပိုင်းအခြား B2:B9 တွင် ပြသထားကြောင်း သတိပြုပါ။

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

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

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

VBA မှာ တန်ဖိုးတွေကို ဘယ်လိုဝိုင်းမလဲ။
VBA မှာ တန်ဖိုးတွေကို ဘယ်လိုဝိုင်းမလဲ။