Vba တွင် dateserial function ကိုအသုံးပြုနည်း (ဥပမာနှင့်အတူ)


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

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

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

ဤအထူးမက်ခရိုသည် ကော်လံ C ရှိ နှစ်တန်ဖိုးများ၊ ကော်လံ B ရှိ လတန်ဖိုးများနှင့် ကော်လံ A ရှိ နေ့တန်ဖိုးများကို အသုံးပြု၍ အပိုင်းအခြား D2:D13 တွင် ရက်စွဲတန်ဖိုးများကို ပြန်ပေးပါမည်။

အောက်ဖော်ပြပါ ဥပမာသည် လက်တွေ့တွင် DateSerial လုပ်ဆောင်ချက်ကို အသုံးပြုပုံကို ပြသထားသည်။

ဥပမာ- VBA တွင် DateSerial လုပ်ဆောင်ချက်ကို အသုံးပြုနည်း

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

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

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

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

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

ကော်လံ D သည် ကော်လံ A၊ B နှင့် C တို့မှ နေ့၊ လနှင့် နှစ်တန်ဖိုးများကို အသုံးပြုခြင်းမှ ထွက်ပေါ်လာသော ရက်စွဲတန်ဖိုးကို ဖော်ပြသည်။

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

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

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

VBA တွင် ရက်စွဲများ နှိုင်းယှဉ်နည်း
VBA တွင် ရက်စွဲမှ ရက်သတ္တပတ်နံပါတ်သို့ ပြောင်းလဲနည်း
VBA တွင် ရက်စွဲနှစ်ခုကြားရှိ ရက်များကို တွက်ချက်နည်း

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

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