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

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

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

နည်းလမ်း 1- ပုံသေဖော်မတ်ကို အသုံးပြု၍ စာကြောင်းမှ Date သို့ ပြောင်းပါ (MM/DD/YYYY)

 Sub ConvertStringToDate()

    Dim i As Integer

    For i = 2 To 8
        Range(" B " & i) = CDate(Range(" A " & i))
    Next i
    
End Sub

ဤအထူးမက်ခရိုသည် အပိုင်းအခြား A2:A8 ရှိ စာကြောင်းတစ်ခုစီကို မူရင်းရက်စွဲဖော်မတ် MM/DD/YYYY ဖြင့် ရက်စွဲအဖြစ်သို့ ပြောင်းပေးမည်ဖြစ်သည်။

ဥပမာအားဖြင့်၊ 04/15/2023 ၏ စာသားစာကြောင်းတစ်ကြောင်းသည် 04/15/2023 ရက်စွဲသို့ ပြောင်းသွားပါမည်။

နည်းလမ်း 2- စိတ်ကြိုက်ဖော်မတ်ကို အသုံးပြု၍ String မှ Date သို့ပြောင်းပါ။

 Sub ConvertStringToDate()

    Dim i As Integer

    For i = 2 To 8
        Range(" B " & i) = Format(CDate(Range(" A " & i)), " MM.DD.YYYY ")
    Next i
    
End Sub

ဤအထူးမက်ခရိုသည် အပိုင်းအခြား A2:A8 ရှိ စာကြောင်းတစ်ခုစီကို MM.DD.YYYY ဖော်မတ်ဖြင့် ရက်စွဲအဖြစ်သို့ ပြောင်းပေးပါမည်။

ဥပမာအားဖြင့်၊ 04/15/2023 ၏ စာသားစာကြောင်းတစ်ကြောင်းသည် 04/15/2023 ရက်စွဲသို့ ပြောင်းသွားပါမည်။

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

ဥပမာ 1- ပုံသေဖော်မတ်ကို အသုံးပြု၍ String မှ Date သို့ ပြောင်းပါ။

ကော်လံ A မှ စာကြောင်းတစ်ခုစီကို မူရင်း MM/DD/YYY ဖော်မတ်ဖြင့် ရက်စွဲအဖြစ်သို့ ပြောင်းရန် အောက်ပါ macro ကို အသုံးပြုနိုင်သည်။

 Sub ConvertStringToDate()

    Dim i As Integer

    For i = 2 To 8
        Range(" B " & i) = CDate(Range(" A " & i))
    Next i
    
End Sub

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

ကော်လံ B သည် ကော်လံ A ရှိ စာကြောင်းတစ်ကြောင်းစီကို မူရင်းရက်စွဲဖော်မတ် MM/DD/YYYY ဖြင့် ရက်စွဲအဖြစ်သို့ ပြောင်းပေးသည်ကို သတိပြုပါ။

ဥပမာ 2- စိတ်ကြိုက်ဖော်မတ်ကို အသုံးပြု၍ String မှ Date သို့ ပြောင်းပါ။

ကော်လံ A ရှိ စာကြောင်းတစ်ခုစီကို MM.DD.YYY စိတ်ကြိုက်ဖော်မတ်ဖြင့် ရက်စွဲအဖြစ်သို့ ပြောင်းရန် အောက်ပါ macro ကို ကျွန်ုပ်တို့ အသုံးပြုနိုင်ပါသည်။

 Sub ConvertStringToDate()

    Dim i As Integer

    For i = 2 To 8
        Range(" B " & i) = Format(CDate(Range(" A " & i)), " MM.DD.YYYY ")
    Next i
    
End Sub

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

ကော်လံ B သည် ကော်လံ A တွင် စာကြောင်းတစ်ခုစီကို စိတ်ကြိုက် MM.DD.YYYY ဖော်မတ်ဖြင့် ရက်စွဲတစ်ခုအဖြစ်သို့ ပြောင်းပေးသည်ကို သတိပြုပါ။

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

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

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

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

VBA တွင် string မှ int ကိုမည်သို့ပြောင်းရမည်နည်း။
VBA တွင် စာကြောင်းတစ်ခုမှ အရှည်သို့ မည်သို့ပြောင်းရမည်နည်း။
VBA တွင် string တစ်ခုကို နှစ်ဆသို့ ပြောင်းနည်း