Category: လမ်းညွှန်

အခြားစာရွက်ရှိ ဆဲလ်တန်ဖိုးကို ရယူရန် VBA တွင် အောက်ပါနည်းလမ်းများကို သင်အသုံးပြုနိုင်သည်- နည်းလမ်း 1- အခြားစာရွက်မှ ဆဲလ်တစ်ခု၏တန်ဖိုးကို ရယူပါ။ Sub GetCellAnotherSheet() ActiveCell.Value = Worksheets(" Sheet2 ").Range(" A2 ") End Sub ဤအထူးမက်ခရိုသည် Sheet2 ရှိ ဆဲလ် A2 မှ တန်ဖိုးကို ရရှိပြီး ၎င်းကို လက်ရှိအသုံးပြုနေသောဆဲလ်သို့ ပြန်ပေးမည်ဖြစ်သည်။ နည်းလမ်း 2- အခြားစာရွက်မှ ဆဲလ်တန်ဖိုးများ လည်ပတ်မှုရလဒ်ကို ရယူပါ။ အခြားစာရွက်ရှိဆဲလ်များတွင်...

စာရွက်တစ်ခုရှိ ဒေတာပါရှိသော ဆဲလ်အားလုံးကို ရွေးချယ်ရန် VBA တွင် အောက်ပါနည်းလမ်းများကို သင်အသုံးပြုနိုင်သည်- နည်းလမ်း 1- ဒေတာပါရှိသော ဆဲလ်ဂရစ်တစ်ခုကို ရွေးပါ။ SubSelectCellsWithData () Range(" A1 ").CurrentRegion.Select End Sub ဤအထူးမက်ခရိုသည် လက်ရှိအသုံးပြုနေသောစာရွက်၏ဆဲလ် A1 မှစတင်သည့်ဒေတာပါရှိသောဆဲလ်များ၏ဇယားကွက်တစ်ခုကိုရွေးချယ်မည်ဖြစ်သည်။ နည်းလမ်း 2- ဒေတာပါရှိသော ဆဲလ်တစ်ခုစီကို ရွေးပါ။ SubSelectCellsWithData () Worksheets(" Sheet1 ").Activate ActiveSheet.Cells.SpecialCells(xlCellTypeConstants).Activate End Sub ဤအထူးမက်ခရိုသည် Sheet1 မှဒေတာများပါရှိသော ဆဲလ်တစ်ခုချင်းစီအားလုံးကို...

သီးခြားဖိုင်တစ်ခုရှိမရှိ စစ်ဆေးရန် VBA ရှိ Dir လုပ်ဆောင်ချက်ကို သင်အသုံးပြုနိုင်သည်။ ဤဖော်ပြချက်ကို လက်တွေ့တွင် အသုံးပြုရန် ဘုံနည်းလမ်းတစ်ခုဖြစ်သည်။ SubCheckFileExists () 'ask user to type path to file InputFile = InputBox(" Check if this file exists: ") 'check if file exists and output results to message box If Dir(InputFile)...

အမှားအယွင်းတစ်ခုကြုံလာသောအခါတွင် လုပ်ငန်းစဉ်ခွဲတစ်ခုမှထွက်ရန် VBA တွင် Exit Sub ထုတ်ပြန်ချက်ကို သင်အသုံးပြုနိုင်သည်။ ဤဖော်ပြချက်ကို လက်တွေ့တွင် အသုံးပြုရန် ဘုံနည်းလမ်းတစ်ခုဖြစ်သည်။ Sub DivideValues() Dim i As Integer On Error GoTo ErrorMessage For i = 1 To 10 Range(" C " & i) = Range(" A " & i) / Range("...

ကုဒ်တစ်ကြောင်းတည်းကို မှတ်ချက်ပေးရန်အတွက် VBA တွင် ကိုးကားချက်တစ်ခုတည်း ( ‘ ) ကို အသုံးပြုနိုင်သည်။ သို့သော်လည်း၊ VBA သည် ကုဒ်ဘလော့ဂ်တစ်ခုအား မှတ်ချက်ပေးရန်အတွက် မည်သည့် built-in ရွေးချယ်မှုကိုမျှ မပေးဆောင်ပါ။ ကံကောင်းထောက်မစွာ၊ သင်သည် ကုဒ်တစ်တုံးကို မှတ်ချက်ပေးရန်အတွက် အသုံးပြုနိုင်သည့် ဖြတ်လမ်းကီးတစ်ခုကို ဖန်တီးရန် လွယ်ကူသောနည်းလမ်းတစ်ခု ရှိပြီး၊ ၎င်းကို ပြုလုပ်ပုံအဆင့်ဆင့်ကို အောက်ဖော်ပြပါ နမူနာက ပြသထားသည်။ အဆင့် 1- ကိရိယာဘားကို စိတ်ကြိုက်လုပ်ပါ။ VB Editor တွင်၊ toolbar...

ရက်စွဲအလိုက် အတန်းများကို စီရန် VBA တွင် အောက်ပါအခြေခံအထားအသိုကိုသုံးနိုင်သည်။ Sub SortByDate() Range(" A1:C10 ").Sort Key1:=Range(" A1 "), Order1:=xlAscending, Header:=xlYes End Sub ဤဥပမာသည် ကော်လံ A ရှိ ရက်စွဲများကို အခြေခံ၍ အပိုင်းအခြား A1:C10 အတွင်းရှိ အတန်းများကို အမျိုးအစားခွဲသည်၊ အဟောင်းဆုံးမှ အသစ်ဆုံးအထိဖြစ်သည်။ အသစ်ဆုံးမှ အဟောင်းဆုံးသို့ ရက်စွဲအလိုက် အတန်းများကို စီလိုလျှင် Order1:=xlDescending ကို သတ်မှတ်နိုင်သည်။ Header:=xlYes သည်...

ကြိုးများကို နှိုင်းယှဉ်ရန် VBA တွင် အောက်ပါနည်းလမ်းများကို သင်အသုံးပြုနိုင်သည်- နည်းလမ်း 1- case-sensitive strings များကို နှိုင်းယှဉ်ခြင်း။ SubCompareStrings () Dim i As Integer For i = 2 To 10 Range(" C " & i) = StrComp(Range(" A " & i), Range(" B " & i)) =...

အလုပ်စာအုပ်ကို သိမ်းဆည်းရန်နှင့် ပိတ်ရန် VBA တွင် အောက်ပါ syntax ကို သင်အသုံးပြုနိုင်သည်- SubSaveClose () ActiveWorkbook.Close_ SaveChanges:=True, _ Filename:=" C:\Users\bob\Desktop\MyExcelFile.xlsx " End Sub ဤအထူးမက်ခရိုသည် လက်ရှိအသုံးပြုနေသော အလုပ်စာအုပ်တွင် လတ်တလောပြောင်းလဲမှုများကို သိမ်းဆည်းပြီး ၎င်းကို ပိတ်ပါမည်။ ဖိုင်အမည် ဖော်ပြချက်သည် အလုပ်စာအုပ်ကို သိမ်းဆည်းရမည့်နေရာကို သတ်မှတ်ပေးသည်။ အလုပ်စာအုပ်ကိုမပိတ်မီ အပြောင်းအလဲများကို မသိမ်းဆည်းလိုပါက ၊ SaveChanges:=False statement ကိုသုံးနိုင်သည်ကို သတိပြုပါ။ အောက်ဖော်ပြပါ ဥပမာသည်...

အလုပ်စာအုပ်တစ်ရွက်ချင်းစီကို CSV ဖိုင်သို့ သိမ်းဆည်းရန် VBA တွင် အောက်ပါ syntax ကို သင်အသုံးပြုနိုင်သည်- Sub SaveCSV() Dim Ws As Worksheet Dim SaveDir As String Dim CurrentWorkbook As String Dim CurrentFormat As Long CurrentWorkbook = ThisWorkbook.FullName CurrentFormat = ThisWorkbook.FileFormat 'specify directory to save CSV files in...

VBA ကို အသုံးပြု၍ Excel တွင် ဇယားတစ်ခုရှိ အတန်းအရေအတွက်ကို ရေတွက်ရန် အောက်ပါ syntax ကို အသုံးပြုနိုင်ပါသည်။ SubCountTableRow () Dim tbl As ListObject 'specify table to count rows in Set tbl = ActiveSheet.ListObjects(" Table1 ") 'create message box that displays row count MsgBox " Total Rows:...