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

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

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

နည်းလမ်း 1- VBA တွင် String မှ Integer သို့ပြောင်းပါ။

 Sub ConvertStringToInteger()

    Dim i As Integer

    For i = 2 To 11
        Range(" B " & i) = CInt(Range(" A " & i))
    Next i

End Sub

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

နည်းလမ်း 2- VBA တွင် String မှ Integer သို့ပြောင်းပါ (String သည် နံပါတ်တစ်ခုဖြစ်မှသာ)

 Sub ConvertStringToInteger()

    Dim i As Integer

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

End Sub

ဤအထူးမက်ခရိုသည် အပိုင်းအခြား A2:A11 အတွင်းရှိ စာကြောင်းတစ်ခုစီကို ကိန်းဂဏန်းတစ်ခုမှ ကိန်းပြည့်အဖြစ်သို့ ပြောင်းပေးမည်ဖြစ်သည်။ မဟုတ်ပါက string ကို null value အဖြစ် ပြောင်းလဲသွားပါမည်။

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

ဥပမာ 1- VBA တွင် String မှ Integer သို့ပြောင်းပါ။

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

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

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

 Sub ConvertStringToInteger()

    Dim i As Integer

    For i = 2 To 11
        Range(" B " & i) = CInt(Range(" A " & i))
    Next i

End Sub

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

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

ဥပမာ 2- VBA တွင် String တစ်ခုမှ Integer သို့ပြောင်းပါ (String သည် နံပါတ်တစ်ခုသာဖြစ်လျှင်)

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

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

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

 Sub ConvertStringToInteger()

    Dim i As Integer

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

End Sub

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

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

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

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

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

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

VBA- စာကြောင်းတစ်ခုမှ space များကို မည်ကဲ့သို့ဖယ်ရှားနည်း
VBA- စာကြောင်းတစ်ခုရှိ ဇာတ်ကောင်များ၏ ဖြစ်ပေါ်မှုကို ရေတွက်နည်း
VBA- စာကြောင်းတစ်ကြောင်းတွင် အခြားစာကြောင်းပါရှိမရှိ စစ်ဆေးနည်း