Category: လမ်းညွှန်

တန်ဖိုးများကိုဝိုင်းရန် VBA တွင် RoundUp နည်းလမ်းကို သင်သုံးနိုင်သည်။ ဤလုပ်ဆောင်ချက်သည် အောက်ပါအခြေခံ syntax ကိုအသုံးပြုသည်- Sub RoundUpValue() Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), 0) End Sub ဤဥပမာသည် ဆဲလ် A1 ရှိ တန်ဖိုးကို အနီးဆုံးနံပါတ်တစ်ခုလုံးသို့ ပတ်ပြီး ဆဲလ် B1 တွင် ရလဒ်ကို ပြသမည်ဖြစ်သည်။ RoundUp နည်းလမ်း၏ ဒုတိယအငြင်းအခုံသည် မည်သည့်နေရာတွင် စုစည်းရန် ဂဏန်းအရေအတွက်ကို သတ်မှတ်ပေးသည်ကို...

တန်ဖိုးများကိုဝိုင်းရန် VBA တွင် RoundDown နည်းလမ်းကို သင်သုံးနိုင်သည်။ ဤလုပ်ဆောင်ချက်သည် အောက်ပါအခြေခံ syntax ကိုအသုံးပြုသည်- Sub RoundDownValue() Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), 0) End Sub ဤဥပမာသည် ဆဲလ် A1 ရှိ တန်ဖိုးကို အနီးဆုံးနံပါတ်တစ်ခုလုံးသို့ ပတ်ပြီး ဆဲလ် B1 တွင် ရလဒ်ကို ပြသမည်ဖြစ်သည်။ RoundDown နည်းလမ်းအတွက် ဒုတိယအငြင်းအခုံသည် မည်သည့်နေရာတွင် ပတ်ရန် ဂဏန်းအရေအတွက်ကို သတ်မှတ်ပေးသည်ကို...

VBA ကို အသုံးပြု၍ တန်ဖိုးများကို ဒဿမ 2 နေရာသို့ ပတ်ရန် အောက်ပါနည်းလမ်းများကို သင်သုံးနိုင်သည်။ နည်းလမ်း 1- တန်ဖိုးတစ်ခုကို ဒဿမ 2 နေရာသို့ လှည့်ပါ။ Sub RoundTwoDecimals() Range(" B2 ") = WorksheetFunction.Round(Range(" A2 "), 2) End Sub ဤဥပမာသည် ဆဲလ် A2 ရှိ တန်ဖိုးကို ဒဿမ နှစ်နေရာသို့ ပတ်ပြီး ဆဲလ် B2 တွင် အဝိုင်းထားသော...

VBA ကိုအသုံးပြုပြီး အပိုင်းအခြားတစ်ခုရှိ ထူးခြားသောတန်ဖိုးများအရေအတွက်ကိုရေတွက်ရန် အောက်ပါအခြေခံအထားအသိုကိုသုံးနိုင်သည်။ SubCountUnique () Dim Rng As Range, List As Object, UniqueCount As Long Set List = CreateObject(" Scripting.Dictionary ") 'count unique values in range A2:A11 For Each Rng In Range(" A2:A11 ") If Not List.Exists(Rng.Value) Then List.Add...

VBA ကို အသုံးပြု၍ အကွာအဝေးတစ်ခုရှိ တန်ဖိုးများ၏ ပေါင်းလဒ်များကို တွက်ချက်ရန် အောက်ပါအခြေခံ syntax ကို သင်အသုံးပြုနိုင်သည်- SubSumValues () Range(" D2 ") = WorksheetFunction.Sum(Range(" B2:B11 ")) End Sub ဤဥပမာသည် အပိုင်းအခြား B2:B11 ရှိ တန်ဖိုးများ၏ ပေါင်းလဒ်များကို တွက်ချက်ပြီး ရလဒ်ကို ဆဲလ် D2 သို့ သတ်မှတ်ပေးသည်။ မက်ဆေ့ချ်ဘောက်စ်တစ်ခုတွင် တန်ဖိုးများပေါင်းကို ပြသလိုပါက၊ အောက်ပါ syntax ကို အသုံးပြုနိုင်ပါသည်။...

VBA တွင် စာကြောင်းများ ပေါင်းစပ်ရန် အောက်ပါနည်းလမ်းများကို သင်သုံးနိုင်သည်။ နည်းလမ်း 1- ကြိုးနှစ်ချောင်းကို ပေါင်းစပ်ပါ။ SubConcatStrings () Range(" C2 ") = Range(" A2 ") & Range(" B2 ") End Sub ဤဥပမာသည် ဆဲလ် A2 နှင့် B2 အတွင်းရှိ စာကြောင်းများကို ပေါင်းစပ်ပြီး ဆဲလ် C2 တွင် ရလဒ်ကို ပြသမည်ဖြစ်သည်။ နည်းလမ်း 2- မျဉ်းနှစ်ခုကို...

VBA ကို အသုံးပြု၍ အကွာအဝေးတစ်ခုရှိ တန်ဖိုးများ၏ စံသွေဖည်မှုကို တွက်ချက်ရန် အောက်ပါအခြေခံ syntax ကို သင်အသုံးပြုနိုင်သည်- SubStDevRange () Range(" D2 ") = WorksheetFunction.StDev(Range(" B2:B11 ")) End Sub ဤဥပမာသည် အကွာအဝေး B2:B11 ရှိ တန်ဖိုးများ၏ စံသွေဖည်မှုကို တွက်ချက်ပြီး ရလဒ်ကို ဆဲလ် D2 သို့ သတ်မှတ်ပေးသည်။ မက်ဆေ့ချ်ဘောက်စ်တွင် တန်ဖိုးများ၏ စံသွေဖည်မှုကို ပြသလိုပါက အောက်ပါ syntax ကို...

VBA ကိုအသုံးပြု၍ HL ရှာဖွေမှုလုပ်ဆောင်ရန် အောက်ပါအခြေခံအထားအသိုကိုသုံးနိုင်သည်။ Sub Hlookup() Range(" H2 ").Value = WorksheetFunction.HLookup(Range(" G2 "),Range(" A1:E2 "),2,False) End Sub ဤဥပမာသည် A1:E2 ကော်လံများရှိ ဆဲလ် G2 ၏တန်ဖိုးကိုရှာဖွေပြီး ထိုကော်လံ၏ဒုတိယအတန်းတွင်ရှိသောတန်ဖိုးကိုရှာဖွေပြီးနောက်ရလဒ်ကိုဆဲလ် H2 သို့သတ်မှတ်ပေးသည်။ မှတ်ချက် – False ၏ နောက်ဆုံးအငြင်းအခုံသည် ကျွန်ုပ်တို့သည် အတိအကျကိုက်ညီမှုကို ရှာဖွေလိုသည်ဟု သတ်မှတ်သည်။ အောက်ဖော်ပြပါ ဥပမာသည် ဤ syntax ကို...

string တစ်ခုရှိ စာလုံးများကို အစားထိုးရန် VBA တွင် Replace() method ကို သုံးနိုင်သည်။ ဤနည်းလမ်းသည် အောက်ပါအခြေခံ syntax ကိုအသုံးပြုသည်- အစားထိုးခြင်း(အသုံးအနှုန်း၊ ရှာဖွေ၊ အစားထိုး၊ စတင်၊ ရေတွက်) ရွှေ- expression- စာလုံးများကို သင်အစားထိုးလိုသော စာကြောင်း find : ရှာရန် စာကြောင်း အစားထိုး : အစားထိုးအဖြစ် အသုံးပြုရန် စာကြောင်း start ( optional ) : ရှာဖွေရန် string မှ...

string တစ်ခုမှ စာလုံးများကို ဖယ်ရှားရန် VBA တွင် Replace() method ကို သုံးနိုင်သည်။ အောက်ဖော်ပြပါနမူနာများသည် Excel ရှိ အောက်ပါစာကြောင်းများစာရင်းဖြင့် ဤနည်းလမ်းကို လက်တွေ့အသုံးပြုနည်းကို ပြသသည်- ဥပမာ 1- စာကြောင်းတစ်ခုရှိ ဇာတ်ကောင်များ၏ ဖြစ်ပျက်မှုအားလုံးကို ဖယ်ရှားရန် (အသေးအဖွဲ) ကို ဖယ်ရှားရန် VBA ကို အသုံးပြုပါ။ စာကြောင်းတစ်ခုစီမှ “ ဤ” ကို ဖယ်ရှားလိုသည်ဟု ဆိုကြပါစို့။ ဒါကိုလုပ်ဖို့ အောက်ပါ macro ကို ဖန်တီးနိုင်ပါတယ်။ Sub...