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

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

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

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

 Sub ConvertStringToLong ()

    Dim i As Integer

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

End Sub

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

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

 Sub ConvertStringToLong()

    Dim i As Integer

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

End Sub

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

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

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

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

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

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

 Sub ConvertStringToLong ()

    Dim i As Integer

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

End Sub

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

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

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

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

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

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

 Sub ConvertStringToLong()

    Dim i As Integer

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

End Sub

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

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

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

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

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

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

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