Vba- ရက်စွဲမှ လနှင့်နှစ်ကို မည်သို့ရယူမည်နည်း။

ရက်စွဲတစ်ခုမှ လနှင့်နှစ်ကို ရယူရန် VBA ရှိ NumberFormat ပိုင်ဆိုင်မှုကို သင်သုံးနိုင်သည်။

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

 SubGetMonthYear ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i).Value = DateValue(Range(" A " & i))
    Range(" C " & i).NumberFormat = " mm/yyyy "
Next i

End Sub

ဤအထူးမက်ခရိုသည် အပိုင်းအခြား A2:A11 တွင် ရက်စွဲတစ်ခုစီအတွက် လနှင့်နှစ်ကို ရှာဖွေပြီး အပိုင်းအခြား C2:C11 ရှိ သက်ဆိုင်ရာဆဲလ်များတွင် ဤတန်ဖိုးများကို ပြသသည်။

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

ဥပမာ- VBA တွင် ဤနေ့အတွက် ရက်ပေါင်းထည့်ပါ။

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

ရက်စွဲကော်လံရှိ ဆဲလ်တစ်ခုစီအတွက် လနှင့်နှစ်ကို ရယူလိုသည်ဆိုပါစို့။

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

 SubGetMonthYear ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i).Value = DateValue(Range(" A " & i))
    Range(" C " & i).NumberFormat = " mm/yyyy "
Next i

End Sub

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

ကော်လံ C တွင် သက်ဆိုင်ရာ ကော်လံ A တွင် သက်ဆိုင်သည့် ရက်စွဲတစ်ခုစီ၏ လနှင့် နှစ် ပါဝင်ကြောင်း သတိပြုပါ။

လနှင့်ဂဏန်းလေးလုံးဖြင့် ရက်စွဲများကို ရက်စွဲများဖော်မတ်ရန် NumberFormat ပိုင်ဆိုင်မှုကို ကျွန်ုပ်တို့အသုံးပြုခဲ့ကြောင်း သတိပြုပါ။

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

ဥပမာအားဖြင့်၊ ကျွန်ုပ်တို့သည် လကို ဂဏန်းတစ်လုံးတည်းဖြင့် ပြသရန် (လတွင် ဂဏန်းတစ်လုံးသာပါရှိလျှင်) နှင့် ဂဏန်းနှစ်လုံးပါသော နှစ်ကို ပြသရန် အောက်ပါ syntax ကို အသုံးပြုနိုင်သည်။

 SubGetMonthYear ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i).Value = DateValue(Range(" A " & i))
    Range(" C " & i).NumberFormat = " m/yy "
Next i

End Sub

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

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

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

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

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