Category: လမ်းညွှန်

အခြေအနေများစွာကို ပြည့်မီခြင်းရှိမရှိ စမ်းသပ်ရန် VBA တွင် အောက်ပါအခြေခံ syntax ကို IF နှင့် AND ဖြင့် အသုံးပြုနိုင်ပါသည်။ SubIfAnd () If Range(" A2 ") = "Warriors" And Range(" B2 ") > 100 Then Range(" C2 ").Value = " Yes! " Else Range(" C2 ").Value = "...

VBA ကိုအသုံးပြု၍ XLOOKUP ကိုလုပ်ဆောင်ရန် အောက်ပါအခြေခံအထားအသိုကိုသုံးနိုင်သည်။ Sub Xlookup() Range(" F2 ").Value = WorksheetFunction.Xlookup(Range(" E2 "), Range(" A2:A11 "), Range(" C2:C11 ")) End Sub ဤဥပမာသည် အကွာအဝေး A2:A11 ရှိ ဆဲလ် E2 အတွင်းရှိ တန်ဖိုးကို ရှာဖွေပြီး အပိုင်းအခြား C2:C11 အတွင်းရှိ ကိုက်ညီသည့်တန်ဖိုးကို ရှာဖွေပြီးနောက် ရလဒ်ကို ဆဲလ် F2 သို့ သတ်မှတ်ပေးသည်။...

အခြေအနေများစွာကို ပြည့်မီခြင်းရှိမရှိ စမ်းသပ်ရန် VBA တွင် အောက်ပါအခြေခံ syntax ကို IF နှင့် OR ကို အသုံးပြုနိုင်ပါသည်။ Sub IfOrTest() If Range(" A2 ") = "Warriors" Or Range(" B2 ") > 100 Then Range(" C2 ").Value = " Yes! " Else Range(" C2 ").Value = "...

အခြေအနေတစ်ခုနှင့်မကိုက်ညီပါကစမ်းသပ်ရန် VBA တွင် IF NOT logic ကိုသုံးရန် အောက်ပါအခြေခံ syntax ကိုသုံးနိုင်သည်။ SubIfNot () Dim i As Integer For i = 2 To 11 If Not Range(" B " & i) = " West " Then Result = “ Not West ” Else...

Excel ဖော်မြူလာတွင် အမှားအယွင်းတစ်ခုကြုံတွေ့ပါက ဆဲလ်တစ်ခုရှိ သီးခြားတန်ဖိုးတစ်ခုပြသရန် VBA ရှိ IFERROR လုပ်ဆောင်ချက်ကို အသုံးပြုရန် အောက်ပါအခြေခံအထားအသိုကို အသုံးပြုနိုင်သည်။ SubIfError () Dim i As Integer For i = 2 To 11 Cells(i, 4).Value = WorksheetFunction.IfError(Cells(i, 3).Value, " Formula Error ") Next i End Sub ဤဥပမာသည် လက်ရှိစာရွက်၏ တတိယကော်လံ၏ အတန်း...

VBA တွင် “ ဆဲလ်ရှိလျှင်” အတွက်ဖော်မြူလာကိုသုံးရန် အောက်ပါအခြေခံအထားအသိုကိုသုံးနိုင်သည်။ Sub IfContains() Dim i As Integer For i = 2 To 8 If InStr(1, LCase(Range(" A " & i)), " turtle ") <> 0 Then Result = " Contains Turtle " Else Result = “...

VBA တွင် ဆဲလ်တစ်ခု ဗလာရှိ၊ မရှိ စစ်ဆေးရန် အောက်ပါ အခြေခံ syntax ကို သင် အသုံးပြုနိုင်ပါသည်။ SubCheckBlank () Dim i As Integer For i = 2 To 13 If IsEmpty(Range(" A " & i)) Then Result = “ Cell is Empty ” Else Result =...

VBA ကို အသုံးပြု၍ သီးခြားစာသားပါရှိသော အပိုင်းအခြားတစ်ခုရှိ ဆဲလ်အရေအတွက်ကို ရေတွက်ရန် အောက်ပါအခြေခံ syntax ကို အသုံးပြုနိုင်ပါသည်။ SubCountCellsWithText () Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A13 "), " *avs* ") End Sub ဤဥပမာသည် “ avs” ပါရှိသော အပိုင်းအခြား A2:A13 ရှိ ဆဲလ်အရေအတွက်ကို ရေတွက်ပြီးနောက် ရလဒ်ကို ဆဲလ် D2 သို့ သတ်မှတ်ပေးသည်။ မှတ်ချက် –...

Excel ရှိ workbook တစ်ခုရှိ စာရွက်အရေအတွက်ကို ရေတွက်ရန် အောက်ပါနည်းလမ်းများကို အသုံးပြုနိုင်သည်။ နည်းလမ်း 1- လက်ရှိအလုပ်စာအုပ်ရှိ စာရွက်အရေအတွက်ကို ရေတွက်ပါ။ SubCountSheetsActive () Range(" A1 ") = ThisWorkbook.Worksheets.Count End Sub နည်းလမ်း 2- ဖွင့်ထားသော အလုပ်စာအုပ်တွင် စာရွက်အရေအတွက်ကို ရေတွက်ပါ။ SubCountSheetsOpen () Range(" A1 ") = Workbooks(" my_data.xlsx ").Sheets.Count End Sub နည်းလမ်း 3-...

VBA ကို အသုံးပြု၍ Excel စာရွက်တွင် အသုံးပြုသည့် ကော်လံအရေအတွက်ကို ရေတွက်ရန် အောက်ပါအခြေခံ syntax ကို သင်အသုံးပြုနိုင်သည်- SubCountColumns () Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column End Sub ဤဥပမာသည် Sheet1 ဟုခေါ်သောစာရွက်တွင်အသုံးပြုသည့်ကော်လံအရေအတွက်ကိုရေတွက်ပြီးဆဲလ် A10 တွင်ရလဒ်ကိုပြသသည်။ မက်ဆေ့ဘောက်စ်တစ်ခုတွင် ကော်လံအရေအတွက်ကို ပြသလိုပါက၊ အောက်ပါ syntax ကို အသုံးပြုနိုင်ပါသည်။ SubCountColumns () Dim LastCol As Long LastCol...