Vba တွင် ရက်စွဲများကို နှိုင်းယှဉ်နည်း (ဥပမာများဖြင့်)


ရက်စွဲနှစ်ခုကို နှိုင်းယှဉ်ရန် 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 "
    Else
        If CDate(Range(" A " & i)) > CDate(Range(" B " & i)) Then
                Result = “ First Date is LaterElse
                Result = " Dates Are Equal "
            End If
        End If
        
    Range(" C " & i) = Result
    
    Next i
End Sub

ဤဥပမာသည် အပိုင်းအခြား A2:A5 နှင့် B2:B5 ရှိ သက်ဆိုင်ရာဆဲလ်များရှိ ရက်စွဲများကို နှိုင်းယှဉ်ပြီး အပိုင်းအခြား C2:C5 ရှိ ရက်စွဲနှိုင်းယှဉ်မှုများ၏ ရလဒ်ကို ပြန်ပေးပါမည်။

မှတ်ချက်CDate လုပ်ဆောင်ချက်သည် ပေးထားသောဆဲလ်တစ်ခု၏တန်ဖိုးကို ရက်စွဲတစ်ခုအဖြစ်သို့ ပြောင်းပေးသည်။

အောက်ဖော်ပြပါ ဥပမာသည် ဤ syntax ကို လက်တွေ့တွင် မည်သို့အသုံးပြုရမည်ကို ပြသထားသည်။

ဥပမာ- VBA တွင် ရက်စွဲများကို နှိုင်းယှဉ်ပါ။

Excel တွင် ရက်စွဲများပါရှိသော အောက်ပါကော်လံနှစ်ခုရှိသည် ဆိုပါစို့။

ကိုက်ညီသောအတန်းတစ်ခုစီရှိ ရက်စွဲများကို နှိုင်းယှဉ်ကာ ကော်လံ C တွင် ရက်စွဲနှိုင်းယှဉ်မှုရလဒ်များကို ပြသလိုသည်ဆိုပါစို့။

ဒါကိုလုပ်ဖို့ အောက်ပါ macro ကို ဖန်တီးနိုင်ပါတယ်။

 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 "
    Else
        If CDate(Range(" A " & i)) > CDate(Range(" B " & i)) Then
                Result = “ First Date is LaterElse
                Result = " Dates Are Equal "
            End If
        End If
        
    Range(" C " & i) = Result
    
    Next i
End Sub

ကျွန်ုပ်တို့ ဤ macro ကို run သောအခါတွင်၊ ကျွန်ုပ်တို့သည် အောက်ပါ output ကို ရရှိသည် ။

ရက်စွဲ နှိုင်းယှဉ်မှုများ၏ ရလဒ်များကို ယခု ကော်လံ C တွင် ပြသထားသည်။

ထပ်လောင်းအရင်းအမြစ်များ

အောက်ဖော်ပြပါ သင်ခန်းစာများသည် VBA တွင် အခြားဘုံအလုပ်များကို မည်သို့လုပ်ဆောင်ရမည်ကို ရှင်းပြသည်-

VBA- ကော်လံများစွာဖြင့် စာရွက်တစ်ရွက်ကို ဘယ်လိုစီမလဲ။
VBA- အပိုင်းအခြားရှိ အတန်းအရေအတွက်ကို ရေတွက်နည်း
VBA- ကော်လံတစ်ခုကို စစ်ထုတ်နည်း

မှတ်ချက်တစ်ခုထည့်ပါ။

သင့် email လိပ်စာကို ဖော်ပြမည် မဟုတ်ပါ။ လိုအပ်သော ကွက်လပ်များကို * ဖြင့်မှတ်သားထားသည်