Category: လမ်းညွှန်

သတ်မှတ်ထားသောတန်ဖိုးနှစ်ခုကြားတွင် ကျပန်းကိန်းပြည့်တစ်ခုထုတ်ပေးရန် VBA ရှိ RandBetween နည်းလမ်းကို သင်အသုံးပြုနိုင်သည်။ ဤနည်းလမ်းကို လက်တွေ့တွင် အသုံးပြုရန် ဘုံနည်းလမ်းနှစ်ခုရှိသည်။ နည်းလမ်း 1- ကျပန်း Integer တစ်ခုဖန်တီးရန် RandBetween ကိုသုံးပါ။ SubGenerateRandomInteger () Range(" A1 ") = WorksheetFunction.RandBetween(1, 100) End Sub ဤအထူးမက်ခရိုသည် ဆဲလ် A1 တွင် 1 နှင့် 100 ကြား ကျပန်း ကိန်းပြည့်ကို ထုတ်ပေးလိမ့်မည်။ Method 2-...

အုပ်စုဖွဲ့ဟစ်စတိုဂရမ် သည် အခြားကိန်းရှင်ဖြင့် အုပ်စုဖွဲ့ထားသော အမျိုးအစားအလိုက် ကိန်းရှင်တန်ဖိုးများကို မြင်သာစေရန် ဘားများကိုအသုံးပြုသည့် ဇယားအမျိုးအစားတစ်ခုဖြစ်သည်။ ဤသင်ခန်းစာသည် Excel တွင် အစုလိုက်အပြုံလိုက်ဘားဇယားတစ်ခုဖန်တီးပုံနှင့် အစုအဝေးအတွင်းနှင့် အစုအဝေးများကြားတွင် ဘားအကွာအဝေးကို ချိန်ညှိနည်းအဆင့်ဆင့်ကို ဥပမာပေးထားသည်။ အဆင့် 1: ဒေတာကိုထည့်ပါ။ ဦးစွာ၊ ငါးနှစ်ဆက်တိုက် မတူညီသောစတိုးဆိုင်နှစ်ခုတွင် စုစုပေါင်းရောင်းချမှုကိုပြသသည့် အောက်ပါဒေတာအတွဲသို့ ဝင်ကြည့်ကြပါစို့။ အဆင့် 2- အုပ်စုဖွဲ့ထားသော ကော်လံဇယားကို ဖန်တီးပါ။ ထို့နောက်၊ ဆဲလ်အကွာအဝေး A1:C6 ကို မီးမောင်းထိုးပြပါ၊ ထို့နောက် ထိပ်ဖဲကြိုးတစ်လျှောက် ထည့်သွင်းသည့် တက်ဘ်ကို...

Excel တွင် ရက်သတ္တပတ်နံပါတ်မှ ရက်စွဲကို ရယူရန် အောက်ပါအခြေခံ syntax ကို သင်အသုံးပြုနိုင်သည်- =DATE( B2 ,1,1)+( A2 -1)*7-(WEEKDAY(DATE( B2 ,1,1)))+1 ဤအထူးသဖြင့် ပုံသေနည်းသည် အောက်ပါ ယူဆချက်ကို ဖြစ်စေသည်- ဆဲလ် A2 တွင် ရက်သတ္တပတ်နံပါတ်ပါရှိသည်။ Cell B2 တွင် ပါဝင်နေပါသည်။ ရက်သတ္တပတ်၏ပထမနေ့ကိုတနင်္ဂနွေဟုသတ်မှတ်သည်။ ဤဖော်မြူလာသည် ရက်သတ္တပတ်တစ်ခုအတွက် တနင်္ဂနွေနေ့ရက်ကို ပြန်ပေးပါမည်။ ၎င်းအစား တနင်္လာနေ့တွင် ပြန်လိုပါက၊ ဖော်မြူလာ၏အဆုံးတွင် 1 ကို 2...

Google Sheets ရှိ ရက်သတ္တပတ်နံပါတ်မှ ရက်စွဲကို ရယူရန် အောက်ပါ အခြေခံ အထားအသိုကို အသုံးပြုနိုင်ပါသည်။ =DATE( B2 ,1,1)+( A2 -1)*7-(WEEKDAY(DATE( B2 ,1,1)))+1 ဤအထူးသဖြင့် ပုံသေနည်းသည် အောက်ပါ ယူဆချက်ကို ဖြစ်စေသည်- ဆဲလ် A2 တွင် ရက်သတ္တပတ်နံပါတ်ပါရှိသည်။ Cell B2 တွင် ပါဝင်နေပါသည်။ ရက်သတ္တပတ်၏ပထမနေ့ကိုတနင်္ဂနွေဟုသတ်မှတ်သည်။ ဤဖော်မြူလာသည် ရက်သတ္တပတ်တစ်ခုအတွက် တနင်္ဂနွေနေ့ရက်ကို ပြန်ပေးပါမည်။ ၎င်းအစား တနင်္လာနေ့တွင် ပြန်လိုပါက၊ ဖော်မြူလာ၏အဆုံးတွင် 1 ကို...

VBA ကို အသုံးပြု၍ Excel တွင် အတန်းများစွာကို ထည့်သွင်းရန် အောက်ပါနည်းလမ်းများကို အသုံးပြုနိုင်သည်။ နည်းလမ်း 1- သတ်မှတ်ထားသော အကွာအဝေးတွင် အတန်းများထည့်ပါ။ SubInsertMultipleRows () Worksheets(" Sheet1 ").Range(" 5:7 ").EntireRow.Insert End Sub ဤအထူးမက်ခရိုသည် Sheet1 ဟုခေါ်သော စာရွက်၏အကွာအဝေး 5 မှ 7 အတွင်း ဗလာအတန်းသုံးတန်းကို ထည့်သွင်းပြီး ရှိပြီးသားအတန်းအားလုံးကို အောက်သို့ရွှေ့ပါမည်။ နည်းလမ်း 2- တက်ကြွသောဆဲလ်တစ်ခုအပေါ်အခြေခံ၍ အတန်းများထည့်ပါ။ SubInsertMultipleRows ()...

၎င်းအပေါ်ရှိစာကြောင်းကဲ့သို့တူညီသောဖော်မတ်ပါစာကြောင်းတစ်ခုထည့်သွင်းရန် VBA တွင်အောက်ပါအထားအသိုကိုသုံးနိုင်သည်။ Sub insertRowWithFormatting() ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove ActiveCell.EntireRow.Copy ActiveCell.Offset(1).EntireRow.PasteSpecial xlPasteFormats Application.CutCopyMode = False End Sub ဤအထူးမက်ခရိုသည် လက်ရှိရွေးချယ်ထားသောအတန်းရှိဆဲလ်များနှင့် အတိအကျတူညီသောပုံစံဖော်မတ်ဖြင့် လက်ရှိရွေးချယ်ထားသောဆဲလ်အောက်တွင် အတန်းတစ်ခုကို ထည့်သွင်းပါမည်။ မှတ်ချက် – Application.CutCopyMode = မက်ခရိုကို လုပ်ဆောင်ပြီးနောက် ဖြတ်ခြင်းနှင့် ကော်ပီမုဒ်ကို ပိတ်ထားသင့်သည်ဟု မှားယွင်းသော မျဉ်းက သတ်မှတ်သည်။ အောက်ဖော်ပြပါ ဥပမာသည် ဤ syntax ကို လက်တွေ့တွင် မည်သို့အသုံးပြုရမည်ကို...

VBA ကို အသုံးပြု၍ Excel တွင် ကော်လံများစွာကို ထည့်သွင်းရန် အောက်ပါ syntax ကို သင်အသုံးပြုနိုင်သည်- Sub InsertMultipleColumns() Worksheets(" Sheet1 ").Range(" B:D ").EntireColumn.Insert End Sub ဤအထူးမက်ခရိုသည် Sheet1 ဟုခေါ်သော စာရွက်၏အကွာအဝေး D မှ F အတွင်း အလွတ်ကော်လံသုံးခုကို ထည့်သွင်းပြီး ရှိပြီးသားကော်လံအားလုံးကို ညာဘက်သို့ တွန်းသွားမည်ဖြစ်သည်။ အောက်ဖော်ပြပါ ဥပမာသည် ဤ syntax ကို လက်တွေ့တွင် မည်သို့အသုံးပြုရမည်ကို ပြသထားသည်။...

VBA ကို အသုံးပြု၍ Excel တွင် bar chart တစ်ခုဖန်တီးရန် အောက်ပါအခြေခံ syntax ကိုသုံးနိုင်သည်။ SubCreateBarChart () Dim MyChart As ChartObject ' get input range from user Set Rng = Application.InputBox(Prompt:=" Select chart input range ", Type:=8) 'create bar chart Set MyChart = Worksheets(" Sheet1...

VBA ကို အသုံးပြု၍ Excel တွင် ဖောင့်အရောင်ပြောင်းရန် အောက်ပါနည်းလမ်းများကို သင်အသုံးပြုနိုင်သည်- နည်းလမ်း 1- VBA အရောင်အမည်များကို အသုံးပြု၍ ဖောင့်အရောင်ပြောင်းပါ။ SubChangeColor () Range(" A1 ").Font.Color = vbRed End Sub ဤထူးခြားသော မက်ခရိုသည် ဆဲလ် A1 ရှိ ဖောင့်အရောင်ကို အနီရောင်သို့ ပြောင်းပေးလိမ့်မည်။ နည်းလမ်း 2- RGB တန်ဖိုးများကို အသုံးပြု၍ ဖောင့်အရောင်ပြောင်းပါ။ SubChangeColor () Range(" A1...

အခြားအလုပ်စာအုပ်မှဒေတာကိုထုတ်ယူရန် VBA ရှိ အောက်ပါအထားအသိုကိုသုံးနိုင်သည်။ SubExtractData () 'turn off screen updates to make this run faster Application.ScreenUpdating = False 'specify workbook we want to extract data from Set wb = Workbooks.Open(" C:\Users\bobbi\OneDrive\Desktop\my_data.xlsx ") 'extract all data from Sheet1 and paste as new...