Category: လမ်းညွှန်

မကြာခဏ၊ သင်သည် ၎င်းတို့အပေါ်ရှိ ဆဲလ်များ၏တန်ဖိုးများကို တိုက်ရိုက်ဖြည့်သွင်းရန် VBA ကို အသုံးပြုလိုပေမည်။ ဒါကိုလုပ်ဖို့၊ အောက်ပါအခြေခံ syntax ကိုသုံးနိုင်ပါတယ်။ Sub Fill_From_Above() With Range(" A2:B " & Range(" C " & Rows.Count).End(xlUp).Row) .SpecialCells(xlBlanks).FormulaR1C1 = " =R[-1]C " .Value = .Value End With End Sub ဤဥပမာသည် ဆဲလ် A2 မှ ကော်လံ...

Excel ဖိုင်ကို အမည်ပြောင်းရန် VBA တွင် အမည် ဖော်ပြချက်ကို သင်သုံးနိုင်သည်။ ဤဖော်ပြချက်ကို လက်တွေ့တွင် အသုံးပြုရန် ဘုံနည်းလမ်းတစ်ခုဖြစ်သည်။ SubRenameFile () Name "C:\Users\bob\Documents\current_data\my_old_file.xlsx" As _ "C:\Users\bob\Documents\current_data\my_new_file.xlsx" End Sub ဤအထူးမက်ခရိုသည် my_old_file.xlsx ဟုခေါ်သော ဖိုင်ကို my_new_file.xlsx သို့ အမည်ပြောင်းပါမည်။ မှတ်ချက် – သင်သည် ဖိုင်လမ်းကြောင်းနှစ်ခုလုံးကို တစ်ကြောင်းတည်းတွင် ရေးနိုင်သော်လည်း ဖတ်ရပိုမိုလွယ်ကူစေရန် နောက်စာကြောင်းရှိ ကုဒ်ကို ဆက်လက်လုပ်ဆောင်ရန် ကျွန်ုပ်တို့သည် အောက်တန်းအမှတ် (...

ပေးထားသည့်ရက်စွဲအတွက် လ၏နောက်ဆုံးရက်ကို ပြန်ပေးရန် VBA တွင် EoMonth နည်းလမ်းကို သင်အသုံးပြုနိုင်သည်။ ဤနည်းလမ်းကို လက်တွေ့တွင် အသုံးပြုရန် ဘုံနည်းလမ်းတစ်ခုဖြစ်သည်။ Sub LastDayOfMonth() Dim i As Integer For i = 2 To 11 Range(" C " & i).Value = Application.WorksheetFunction.EoMonth(Range(" A " & i), 0) Range(" C " & i).NumberFormat...

Factorial ဆိုသည်မှာ ပေးထားသော အပေါင်းကိန်းပြည့်ထက် နည်းသော သို့မဟုတ် အပြုသဘောဆောင်သော ကိန်းပြည့်အားလုံး၏ ရလဒ်ဖြစ်သည်။ ဥပမာအားဖြင့်၊ 5 factorial (5 ဟုရေးထားသော!) ကို အောက်ပါအတိုင်း တွက်ချက်သည်။ ၅! = 5 * 4 * 3 * 2 * 1 = 120 VBA တွင် factorial function တစ်ခုဖန်တီးရန် အောက်ပါ syntax ကို သင်အသုံးပြုနိုင်ပါသည်။ Function FindFactorial(N...

VBA တွင် Substitute() နည်းလမ်းကို အသုံးပြု၍ စာကြောင်းတစ်ခုရှိ သီးခြားစာသားတစ်ခု၏ ဖြစ်ပေါ်မှုအားလုံးကို စာသားအသစ်ဖြင့် အစားထိုးနိုင်သည်။ ဤနည်းလမ်းသည် အောက်ပါအခြေခံ syntax ကိုအသုံးပြုသည်- အစားထိုး (စာသား၊ Old_text၊ New_text၊ Instance_num) ရွှေ- စာသား – စာလုံးအစားထိုးလိုသော စာသား Old_text : အစားထိုးရန် စာသား New_text : အစားထိုးအဖြစ် အသုံးပြုရန် စာသား Instance_num ( ချန်လှပ်ထားနိုင်သည် ) : အစားထိုးရမည့် စာသားဟောင်း၏ ဥပမာ။...

ဆဲလ်အကွာအဝေးကို ကူးယူပြီး တန်ဖိုးများနှင့် ရင်းမြစ်ဖော်မတ်ချခြင်းကို တည်နေရာအသစ်သို့ ကူးထည့်ရန် VBA တွင် အောက်ပါ syntax ကို သင်အသုံးပြုနိုင်သည်- Sub PasteWithFormatting() Range(" A1:C11 ").Copy Range(" A13 ").PasteSpecial Paste:=xlPasteAllUsingSourceTheme Application.CutCopyMode = False End Sub ဤအထူးမက်ခရိုသည် အပိုင်းအခြား A1:C11 ရှိဆဲလ်များကို ကူးယူမည်ဖြစ်ပြီး ၎င်းတို့၏ဖော်မတ်ချခြင်းဖြင့် ဆဲလ်တန်ဖိုးများကို ဆဲလ် A13 မှစတင်သည့်အပိုင်းအခြားသို့ ကူးထည့်မည်ဖြစ်သည်။ မှတ်ချက် – Application.CutCopyMode =...

ဆဲလ်အကွာအဝေးကို အခြားစာရွက်တစ်ခုသို့ ကူးယူရန် VBA တွင် အောက်ပါ syntax ကို အသုံးပြုနိုင်သည်။ Sub CopyRangeToSheet() Worksheets(" Sheet1 ").Range(" A1:C11 ").Copy Worksheets(" Sheet2 ").Range(" A1 ").PasteSpecial Application.CutCopyMode = False End Sub ဤအထူးမက်ခရိုသည် Sheet1 ၏ A1:C11 အကွာအဝေးရှိ ဆဲလ်များကို ကူးယူပြီး Sheet2 ၏ဆဲလ် A1 မှစတင်သည့်အပိုင်းသို့ ၎င်းတို့ကို ကူးထည့်ပါမည်။ မှတ်ချက် –...

Excel workbook တွင် သီးခြားစာရွက်တစ်ခု၏အမည်ကို ရယူရန် VBA တွင် အောက်ပါနည်းလမ်းများကို သင်အသုံးပြုနိုင်သည်- နည်းလမ်း 1- လက်ရှိအသုံးပြုနေသောစာရွက်အမည်ကို ရယူပါ။ Function GetSheetName() GetSheetName = ActiveSheet.Name End Function ဤလုပ်ဆောင်ချက်သည် လက်ရှိစာမျက်နှာ၏အမည်ကို ပြန်ပေးပါမည်။ နည်းလမ်း 2- နံပါတ်ဖြင့်စာရွက်အမည်ကိုရယူပါ။ Function GetSheetName(N As Integer) GetSheetName = Sheets(N).Name End Function ဤလုပ်ဆောင်ချက်သည် သင်သတ်မှတ်သော nth စာရွက်၏အမည်ကို ပြန်ပေးလိမ့်မည်။ အောက်ဖော်ပြပါ...

mm/dd/yyyy ဖော်မတ်ကို အသုံးပြု၍ ရက်စွဲတန်ဖိုးများကို ဖော်မတ်ရန် VBA တွင် NumberFormat ပိုင်ဆိုင်မှုကို သင်သုံးနိုင်သည်။ ဤသည်မှာ လက်တွေ့လုပ်ဆောင်ရန် ဘုံနည်းလမ်းတစ်ခုဖြစ်သည်။ SubFormatDates () Dim i As Integer For i = 2 To 11 Range(" A " & i).NumberFormat = " mm/dd/yyyy " Next i End Sub ဤထူးခြားသော မက်ခရိုသည် အပိုင်းအခြား...

Excel ရှိ သီးခြားဆဲလ်များတွင် ရဲရင့်သောဖောင့်တစ်ခုဖန်တီးရန် VBA ရှိ Font.Bold ပိုင်ဆိုင်မှုကို သင်အသုံးပြုနိုင်သည်။ ဥပမာအားဖြင့်၊ စာရွက်ပေါ်တွင် ဆဲလ် A1 တွင် ဖောင့်ကို ရဲရင့်စေရန် အောက်ပါ macro ကို ဖန်တီးနိုင်သည်။ SubMakeFontBold () Range(" A1 ").Font.Bold = True End Sub A1:C1 အကွာအဝေးရှိ ဆဲလ်တစ်ခုစီ၏ ဖောင့်ကို ရဲရင့်စေရန် အောက်ပါ macro ကို ဖန်တီးနိုင်သည်။ SubMakeFontBold () Range("...