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 Later ”
Else
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 Later ”
Else
Result = " Dates Are Equal "
End If
End If
Range(" C " & i) = Result
Next i
End Sub
ကျွန်ုပ်တို့ ဤ macro ကို run သောအခါတွင်၊ ကျွန်ုပ်တို့သည် အောက်ပါ output ကို ရရှိသည် ။

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