Category: လမ်းညွှန်

အထူးစာလုံးများကို strings များမှဖယ်ရှားရန် VBA ရှိ အောက်ပါအခြေခံအထားအသိုကိုသုံးနိုင်သည်။ Sub ReplaceSpecialChars() Dim i As Integer For i = 2 To 8 Range("B" & i) = Replace(Replace(Replace(Range("A" & i), "!", ""), "@", ""), "#", "") Next i End Sub ဤဥပမာသည် ဆဲလ်အကွာအဝေး A2:A8 ရှိ စာကြောင်းတစ်ခုစီရှိ အောက်ပါ...

VBA တွင် ထပ်နေသောတန်ဖိုးများကို ဖယ်ရှားရန် အောက်ပါနည်းလမ်းများကို သင်သုံးနိုင်သည်။ Method 1: ကော်လံတစ်ခုအပေါ် အခြေခံ၍ ထပ်နေသောတန်ဖိုးများကို ဖယ်ရှားပါ။ Sub RemoveDuplicates() Range(" A1:C11 ").RemoveDuplicates Columns:=1, Header:=xlYes End Sub ဤဥပမာသည် အပိုင်းအခြား၏ ပထမကော်လံရှိ ထပ်နေသည့်တန်ဖိုးများကို အခြေခံ၍ အပိုင်းအခြား A1:C11 ရှိ ပွားနေသောအတန်းများကို ဖယ်ရှားသည်။ Header:=xlYes အငြင်းအခုံသည် အပိုင်းအခြားရှိ ပထမစာကြောင်းသည် ခေါင်းစီးမျဉ်းဖြစ်ကြောင်း သတ်မှတ်ပြီး ပွားများကို စစ်ဆေးသည့်အခါ ထည့်သွင်းစဉ်းစားရန် မသင့်ပါ။...

VBA ကို အသုံးပြု၍ Excel ရှိ pivot ဇယားများကို ပြန်လည်ဆန်းသစ်ရန် အောက်ပါနည်းလမ်းများကို သင်အသုံးပြုနိုင်သည်- နည်းလမ်း 1- သီးခြား pivot ဇယားကို ပြန်လည်စတင်ပါ။ Sub RefreshPivotTable() Sheet1.PivotTables(" PivotTable1 ").Refreshtable End Sub ဤထူးခြားသော မက်ခရိုသည် အလုပ်စာအုပ်၏ စာရွက် 1 တွင် PivotTable1 ဟုခေါ်သော pivot ဇယားရှိ တန်ဖိုးများကိုသာ ပြန်လည်ဆန်းသစ်ပါမည်။ နည်းလမ်း 2- အလုပ်စာအုပ်ရှိ ဆုံချက်ဇယားအားလုံးကို ပြန်လည်စတင်ပါ။ Sub...

VBA ကို အသုံးပြု၍ Excel ရှိ pivot ဇယားများကို စစ်ထုတ်ရန် အောက်ပါနည်းလမ်းများကို သင်အသုံးပြုနိုင်သည်- နည်းလမ်း 1- တန်ဖိုးတစ်ခုအပေါ် အခြေခံ၍ ဆုံချက်ဇယားကို စစ်ထုတ်ပါ။ SubFilterPivotTable () Dim pf As PivotField Dim myFilter As String Set pf = ActiveSheet.PivotTables(" PivotTable1 ").PivotFields(" Position ") myFilter = ActiveWorkbook.Sheets(" Sheet1 ").Range(" J2 ").Value...

VBA ကို အသုံးပြု၍ Excel တွင် တန်ဖိုးများစာရင်းကို မှာယူရန် အောက်ပါအခြေခံအထားအသိုကိုသုံးနိုင်သည်။ SubRankValues () Dim i As Integer For i = 2 To 11 Range(" C " & i) = WorksheetFunction.Rank(Range(" B " & i), Range(" B2:B11 "), 0) Next i End Sub ဤဥပမာသည် ဆဲလ်...

Excel စာရွက်ရှိ နောက်ဆုံးအသုံးပြုထားသောအတန်းကိုရှာဖွေရန် VBA တွင် အောက်ပါအခြေခံအထားအသိုကိုသုံးနိုင်သည်။ Sub FindLastRow() Range(" D2 ")=Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByRows,xlPrevious,False).Row End Sub ဤဥပမာသည် လက်ရှိစာရွက်တွင်အသုံးပြုသည့် နောက်ဆုံးအတန်းကို ရှာဖွေပြီး ဆဲလ် D2 တွင် ရလဒ်ကို ပြန်ပေးသည်။ မက်ဆေ့ဘောက်စ်တစ်ခု၏ နောက်ဆုံးစာကြောင်းကို ပြသလိုပါက၊ အောက်ပါ syntax ကို အသုံးပြုနိုင်ပါသည်။ Sub FindLastRow() Dim LastRow As Long LastRow=Cells.Find("*", Range(" A1 "),xlFormulas,xlPart,xlByRows,xlPrevious,False).Row...

Excel စာရွက်ရှိ နောက်ဆုံးအသုံးပြုထားသောကော်လံကိုရှာဖွေရန် VBA တွင် အောက်ပါအခြေခံအထားအသိုကိုသုံးနိုင်သည်။ Sub FindLastColumn() Range(" A14 ") = Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column End Sub ဤဥပမာသည် လက်ရှိစာရွက်ရှိ နောက်ဆုံးအသုံးပြုထားသောကော်လံကို ရှာဖွေပြီး ဆဲလ် A14 တွင် ရလဒ်ကို ပြန်ပေးသည်။ မက်ဆေ့ဘောက်စ်တစ်ခု၏ နောက်ဆုံးကော်လံကို ပြသလိုပါက၊ အောက်ပါ syntax ကို အသုံးပြုနိုင်ပါသည်။ Sub FindLastColumn() Dim LastCol As Long LastCol=Cells.Find("*",Range(" A1...

VBA ကို အသုံးပြု၍ Excel တွင် ကော်လံအလိုက် စစ်ထုတ်ရန် အောက်ပါနည်းလမ်းများကို အသုံးပြုနိုင်ပါသည်။ နည်းလမ်း 1- ကော်လံတစ်ခု၏တန်ဖိုးအပေါ်အခြေခံ၍ စစ်ထုတ်ပါ။ SubFilterRows () ActiveSheet.Range(" A1:C11 ").AutoFilter field:=1, Criteria1:=Range(" F2 ").Value End Sub ဤအထူးမက်ခရိုသည် ဆဲလ် F2 ၏တန်ဖိုးနှင့်ညီမျှသည့် ပထမကော်လံကိုပြသရန် အပိုင်းအခြား A1:C11 ကို စစ်ထုတ်ပါမည်။ နည်းလမ်း 2- ကော်လံတန်ဖိုးများစွာကို အခြေခံ၍ စစ်ထုတ်ပါ။ SubFilterRows () ActiveSheet.Range("...

စာရွက်ပေါ်ရှိ မြင်နိုင်သောဆဲလ်များသာအတွက် အလုံးစုံစာရင်းအင်းများကို တွက်ချက်ရန် Excel ရှိ SUBTOTAL လုပ်ဆောင်ချက်ကို သင်အသုံးပြုနိုင်ပါသည်။ SUBTOTAL လုပ်ဆောင်ချက်ကို အသုံးပြုရန် VBA တွင် အောက်ပါအခြေခံ syntax ကို သင်အသုံးပြုနိုင်သည်- Sub FindSubtotal() Range(" A16 ") = WorksheetFunction.Subtotal(9, Range(" B2:B11 ")) End Sub ဤဥပမာသည် အကွာအဝေး B2:B11 ရှိ မြင်နိုင်သောဆဲလ်များရှိ တန်ဖိုးများပေါင်းလဒ်ကို တွက်ချက်ပြီး ဆဲလ် A16 တွင် ရလဒ်ကိုပြသသည်။...

VBA ကိုသုံးပြီး string တစ်ခုမှ နောက်ဆုံးစာလုံးကို ဖယ်ရှားရန် အောက်ပါ အခြေခံ အထားအသိုကို အသုံးပြုနိုင်သည်။ Sub RemoveLastChar() Dim i As Integer Dim myString As String For i = 2 To 11 myString = Range(" A " & i) Range(" B " & i) = Left(myString, Len(myString)...