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

VBA တွင် CDbl လုပ်ဆောင်ချက်ကို အသုံးပြု၍ စာသားကြိုးတစ်ချောင်းကို ဒေတာနှစ်ထပ်အမျိုးအစားသို့ ပြောင်းနိုင်သည်။

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

 Sub ConvertStringToDouble()

    Dim i As Integer

    For i = 2 To 11
        If IsNumeric(Range(" A " & i)) Then
            Range(" B " & i) = CDbl(Range(" A " & i))
        Else
            Range(" B " & i) = 0
        End If
    Next i

End Sub

ဤထူးခြားသော မက်ခရိုသည် အပိုင်းအခြား A2:A11 ရှိ စာကြောင်းတစ်ခုစီကို string သည် နံပါတ်တစ်ခုဖြစ်မှသာ ဒေတာနှစ်ထပ်အမျိုးအစားအဖြစ်သို့ ပြောင်းပေးမည်ဖြစ်သည်။

မဟုတ်ပါက string ကို null value အဖြစ် ပြောင်းလဲသွားပါမည်။

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

ဥပမာ- VBA တွင် String ကို နှစ်ချက်သို့ ပြောင်းပါ။

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

string သည် နံပါတ်တစ်ခုဖြစ်ပြီး ကော်လံ B တွင် ၎င်းတို့ကိုပြသမှသာ string တစ်ခုစီကို double data type အဖြစ်သို့ ပြောင်းလိုသည်ဆိုပါစို့။

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

 Sub ConvertStringToDouble()

    Dim i As Integer

    For i = 2 To 11
        If IsNumeric(Range(" A " & i)) Then
            Range(" B " & i) = CDbl(Range(" A " & i))
        Else
            Range(" B " & i) = 0
        End If
    Next i

End Sub

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

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

မဟုတ်ပါက၊ စာသားလိုင်းများကို null တန်ဖိုးအဖြစ်သို့ ပြောင်းလဲသွားမည်ဖြစ်သည်။

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

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

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

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