Category: လမ်းညွှန်

ကော်လံနံပါတ်ကို အက္ခရာအဖြစ်သို့ ပြောင်းရန် VBA တွင် အောက်ပါ syntax ကို သင်အသုံးပြုနိုင်သည်- Sub ConvertNumberToLetter() Range(" B2 ") = Split((Columns(Range(" A2 ")).Address(, 0)), " : ")(0) End Sub ဤထူးခြားသော macro သည် ဆဲလ် A2 ရှိ ကော်လံနံပါတ်ကို အက္ခရာတစ်ခုအဖြစ်သို့ ပြောင်းလဲပြီး ဆဲလ် B2 တွင် စာလုံးကိုပြသမည်ဖြစ်သည်။ ဥပမာအားဖြင့်၊ ဆဲလ် A2 တွင်တန်ဖိုးသည်...

ပေးထားသောဆဲလ်သည် နံပါတ်တစ်ခုဟုတ်မဟုတ် စစ်ဆေးရန် VBA ရှိ IsNumeric လုပ်ဆောင်ချက်ကို သင်အသုံးပြုနိုင်သည်။ ပေးထားသောဆဲလ်တစ်ခု၏တန်ဖိုးကို နံပါတ်တစ်ခုအဖြစ် အသိအမှတ်ပြုပါက ဤလုပ်ဆောင်ချက်သည် True ပြန်သွားပါမည်။ မဟုတ်ရင် function က False ပြန်ဖြစ်သွားလိမ့်မယ်။ ဤလုပ်ဆောင်ချက်ကို လက်တွေ့တွင် အသုံးပြုရန် ဘုံနည်းလမ်းတစ်ခုဖြစ်သည်။ SubCheckNumeric () Dim i As Integer For i = 1 To 9 If IsNumeric(Range(" A " & i))...

နှစ်ကြိမ်ကြားရှိ ခြားနားချက်ကို တွက်ချက်ရန် VBA တွင် အောက်ပါအခြေခံ syntax ကို သင်အသုံးပြုနိုင်သည်- Sub FindTimeDifference() Dim i As Integer For i = 2 To 7 'calculate time difference in days Range(" C " & i) = Range(" B " & i) - Range(" A "...

ရက်စွဲကို ရက်သတ္တပတ်နံပါတ်သို့ ပြောင်းရန် VBA တွင် အောက်ပါအခြေခံအထားအသိုကိုသုံးနိုင်သည်။ Sub FindWeekNumber() Dim i As Integer For i = 2 To 9 Range(" B " & i) = WorksheetFunction.WeekNum(Range(" A " & i)) Next i End Sub ဤဥပမာသည် အပိုင်းအခြား A2:A9 ရှိ ရက်စွဲတစ်ခုစီအတွက် ရက်သတ္တပတ်နံပါတ်ကို ရှာဖွေမည်ဖြစ်ပြီး အပိုင်းအခြား...

VBA ကို အသုံးပြု၍ အပိုင်းအခြားတစ်ခုကို ကူးပြောင်းရန် အောက်ပါအခြေခံ syntax ကို သင်အသုံးပြုနိုင်သည်- SubTransposeRange () 'specify range to transpose MyRange = Range(" A1:B5 ") 'find dimensions of range XUpper = UBound(MyRange, 1) XLower = LBound(MyRange, 1) YUpper = UBound(MyRange, 2) YLower = LBound(MyRange, 2) 'transpose...

နံပါတ်တစ်ခု၏ ပကတိတန်ဖိုးသည် နံပါတ်နှင့် သုညအကြား အကွာအဝေးကို ကိုယ်စားပြုသည်။ VBA တွင် အကြွင်းမဲ့တန်ဖိုးများကို တွက်ချက်ရန် Abs လုပ်ဆောင်ချက်ကို သင် အသုံးပြုနိုင်သည်။ ဤလုပ်ဆောင်ချက်ကို လက်တွေ့တွင် အသုံးပြုရန် ဘုံနည်းလမ်းတစ်ခုဖြစ်သည်။ Sub FindAbsoluteValue() Dim i As Integer For i = 2 To 10 Range(" B " & i) = Abs(Range(" A " & i))...

VBA တွင် ကြိုက်နှစ်သက်သော အော်ပရေတာအား အောက်ဖော်ပြပါ ထည့်သွင်းထားသော ခရင်မ်ကတ်များဖြင့် အသုံးပြု၍ စာကြောင်းများတွင် သီးခြားပုံစံများကို ရှာဖွေနိုင်သည်- * : မည်သည့်စာလုံးအရေအတွက်နှင့်မဆို ကိုက်ညီသည်။ ? : ဇာတ်ကောင်တစ်ခုတည်းနှင့် ကိုက်ညီသည်။ # : ဂဏန်းတစ်လုံးနှင့် သက်ဆိုင်သည်။ : အကွာအဝေးအတွင်း မည်သည့်ဇာတ်ကောင်နှင့်မဆို ကိုက်ညီသည်။ အောက်ဖော်ပြပါ ဥပမာများသည် ဤသင်္ကေတများကို လက်တွေ့တွင် မည်သို့အသုံးပြုရမည်ကို ပြသထားသည်။ ဥပမာ 1- စာကြောင်းခွဲတစ်ခုကိုရှာဖွေရန် *Wildcard ကိုသုံးပါ။ ကော်လံ A...

ရက်စွဲတစ်ခုသို့ သတ်မှတ်ထားသော ရက်အရေအတွက်ကို ထည့်ရန် VBA တွင် DateAdd လုပ်ဆောင်ချက်ကို သင်အသုံးပြုနိုင်သည်။ ဤလုပ်ဆောင်ချက်ကို လက်တွေ့တွင် အသုံးပြုရန် ဘုံနည်းလမ်းတစ်ခုဖြစ်သည်။ SubAddDays () Dim i As Integer For i = 2 To 10 Range(" B " & i) = DateAdd(" d ", 4, Range(" A " & i)) Next...

ရက်စွဲတစ်ခုမှ သတ်မှတ်ထားသော ရက်အရေအတွက်ကို နုတ်ရန် VBA တွင် DateAdd လုပ်ဆောင်ချက်ကို သင်သုံးနိုင်သည်။ ဤလုပ်ဆောင်ချက်ကို လက်တွေ့တွင် အသုံးပြုရန် ဘုံနည်းလမ်းတစ်ခုဖြစ်သည်။ Sub SubtractDays() Dim i As Integer For i = 2 To 10 Range(" B " & i) = DateAdd(" d ", -4, Range(" A " & i)) Next...

သီးခြားအကွာအဝေးတစ်ခုရှိ အလွတ်မဟုတ်သည့်ဆဲလ်အရေအတွက်ကို ရေတွက်ရန် VBA တွင် CountA နည်းလမ်းကို သင်သုံးနိုင်သည်။ ဤနည်းလမ်းကို လက်တွေ့တွင် အသုံးပြုရန် ဘုံနည်းလမ်းတစ်ခုဖြစ်သည်။ SubCountARange () Range(" C1 ") = WorksheetFunction.CountA(Range(" A1:A10 ")) End Sub ဤဥပမာသည် အပိုင်းအခြား A1:A10 ရှိ အလွတ်မဟုတ်သောဆဲလ်အရေအတွက်ကို ရေတွက်ပြီး ဆဲလ် C1 တွင် ရလဒ်ကိုပြသသည်။ မက်ဆေ့ချ်ဘောက်စ်တွင် အလွတ်မဟုတ်သောဆဲလ်အရေအတွက်ကို ပြသလိုပါက၊ အောက်ပါ syntax ကို အသုံးပြုနိုင်ပါသည်။ SubCountARange...