သတ်မှတ်အကွာအဝေးတစ်ခုအတွင်း တန်ဖိုးများပွားရန် အခြေအနေအလိုက်ဖော်မတ်ချခြင်းကို အသုံးပြုရန် VBA တွင် အောက်ပါအခြေခံ syntax ကို သင်အသုံးပြုနိုင်သည်- Sub ConditionalFormatDuplicates() Dim rg As Range Dim uv As UniqueValues 'specify range to apply conditional formatting Set rg = Range(" A2:A11 ") 'clear any existing conditional formatting rg.FormatConditions.Delete 'identify duplicate values...
ရက်စွဲနှစ်ခုကို နှိုင်းယှဉ်ရန် VBA တွင် အောက်ပါအခြေခံ syntax ကို သင်အသုံးပြုနိုင်သည်- SubCompareDates () Dim i As Integer For i = 2 To 5 If CDate(Range(" A " & i)) < CDate(Range(" B " & i)) Then Result = " First Date is Earlier "...
ဆဲလ်တစ်ခုစီကို အပိုင်းအခြားတစ်ခု ရာခိုင်နှုန်းအဖြစ် ဖော်မတ်ရန် VBA တွင် အောက်ပါအခြေခံအထားအသိုကို သင်အသုံးပြုနိုင်သည်။ SubFormatPercent () Dim i As Integer For i = 2 To 11 Range(" A " & i).NumberFormat = " 0.00% " Next i End Sub ဤဥပမာသည် အပိုင်းအခြား A2:A11 အတွင်းရှိ ဆဲလ်တစ်ခုစီကို ဒသမနေရာနှစ်ခုဖြင့် ရာခိုင်နှုန်းတန်ဖိုးအဖြစ် ဖော်မတ်ပေးသည်။...
VBA ကိုသုံးပြီး strings များမှ ဦးဆောင်ခြင်းနှင့် နောက်လိုက်နေရာလွတ်များကို ဖယ်ရှားရန် အောက်ပါအခြေခံ syntax ကို သင်အသုံးပြုနိုင်သည်- Sub RemoveLeadingTrailingSpaces() Dim i As Integer For i = 2 To 7 Range(" B " & i) = Trim(Range(" A " & i)) Next i End Sub ဤဥပမာသည် အကွာအဝေး A2:A7...
VBA ကို အသုံးပြု၍ string တစ်ခုကို array တစ်ခုသို့ ခွဲရန် အောက်ပါ အခြေခံ syntax ကို သုံးနိုင်သည်။ SubSplitString () Dim SingleValue() As String Dim i As Integer Dim j As Integer For i = 2 To 7 SingleValue = Split(Range(" A " & i), "...
VBA တွင် ကန့်သတ်ချက်များစွာကိုအခြေခံ၍ စာကြောင်းတစ်ခုကိုခွဲရန် အောက်ပါအခြေခံအထားအသိုကိုသုံးနိုင်သည်။ SubSplitString () Dim SingleValue() As String Dim i As Integer Dim j As Integer For i = 2 To 7 newString = Replace(Range(" A " & i), " - ", " ") SingleValue = Split(newString, "...