Vba ရှိ စာကြောင်းများကို နှိုင်းယှဉ်နည်း- ဥပမာများဖြင့်


ကြိုးများကို နှိုင်းယှဉ်ရန် VBA တွင် အောက်ပါနည်းလမ်းများကို သင်အသုံးပြုနိုင်သည်-

နည်းလမ်း 1- case-sensitive strings များကို နှိုင်းယှဉ်ခြင်း။

 SubCompareStrings ()
    Dim i As Integer

    For i = 2 To 10
        Range(" C " & i) = StrComp(Range(" A " & i), Range(" B " & i)) = 0
    Next i
End Sub

ဤ macro သည် အပိုင်းအခြား A2:A10 နှင့် B2:B10 ရှိ ကိုက်ညီသည့်ဆဲလ်များရှိ စာကြောင်းများအကြား case-sensitive string နှိုင်းယှဉ်မှုကို လုပ်ဆောင်မည်ဖြစ်ပြီး အပိုင်းအခြား C2:C10 အတွင်းရှိ သမ္မာ သို့မဟုတ် FALSE ကို ပြန်ပို့ပေးပါမည်။

နည်းလမ်း 2- Case-insensitive string နှိုင်းယှဉ်မှု

 SubCompareStrings ()
    Dim i As Integer

    For i = 2 To 10
        Range(" C " & i) = StrComp(Range(" A " & i), Range(" B " & i), vbTextCompare) = 0
    Next i
End Sub

ဤ macro သည် A2:A10 နှင့် B2:B10 အပိုင်းအခြားများရှိ ကိုက်ညီသည့်ဆဲလ်များရှိ strings များကြား case-insensitive string နှိုင်းယှဉ်မှုကို လုပ်ဆောင်မည်ဖြစ်သည်။

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

ဥပမာ 1- VBA တွင် Case-Sensitive Strings များကို နှိုင်းယှဉ်ခြင်း။

ကော်လံ A နှင့် B တို့တွင် ကိုက်ညီသော စာကြောင်းတစ်ခုစီကြား case-sensitive string နှိုင်းယှဉ်မှုကို လုပ်ဆောင်ရန် အောက်ပါ macro ကို ဖန်တီးနိုင်သည်-

 SubCompareStrings ()
    Dim i As Integer

    For i = 2 To 10
        Range(" C " & i) = StrComp(Range(" A " & i), Range(" B " & i)) = 0
    Next i
End Sub

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

VBA တွင် case sensitive strings များကို နှိုင်းယှဉ်ခြင်း။

ကော်လံ C သည် strings များ တူညီပြီး တူညီပါက TRUE ပြန်ပေးသည်။

မဟုတ်ပါက ကော်လံ C သည် FALSE ကို ပြန်ပေးသည်။

ဥပမာ 2- VBA တွင် Case-Insensitive Strings များကို နှိုင်းယှဉ်ခြင်း။

ကော်လံ A နှင့် B ရှိ ကိုက်ညီသော စာကြောင်းတစ်ခုစီကြား case-sensitive string နှိုင်းယှဉ်မှုကို လုပ်ဆောင်ရန် အောက်ပါ macro ကို ဖန်တီးနိုင်သည်-

 SubCompareStrings ()
    Dim i As Integer

    For i = 2 To 10
        Range(" C " & i) = StrComp(Range(" A " & i), Range(" B " & i), vbTextCompare) = 0
    Next i
End Sub

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

VBA တွင် case insensitive string နှိုင်းယှဉ်မှု

ကော်လံ C သည် လိုင်းများ ညီနေလျှင် TRUE သည် မည်သည် ဖြစ်စေ၊

ကော်လံ C သည် စာကြောင်းများ မညီပါက FALSE ကို ပြန်ပေးသည်။

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

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

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

VBA- စာကြောင်းတစ်ခုရှိ ဇာတ်ကောင်များကို အစားထိုးနည်း
VBA- string တစ်ခုမှ အထူးဇာတ်ကောင်များကို ဖယ်ရှားနည်း
VBA- စာကြောင်းတစ်ခုအား int သို့ မည်သို့ပြောင်းရမည်နည်း။

မှတ်ချက်တစ်ခုထည့်ပါ။

သင့် email လိပ်စာကို ဖော်ပြမည် မဟုတ်ပါ။ လိုအပ်သော ကွက်လပ်များကို * ဖြင့်မှတ်သားထားသည်