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 ကို ရရှိသည် ။
ကော်လံ 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 ကို ရရှိသည် ။
ကော်လံ C သည် လိုင်းများ ညီနေလျှင် TRUE သည် မည်သည် ဖြစ်စေ၊
ကော်လံ C သည် စာကြောင်းများ မညီပါက FALSE ကို ပြန်ပေးသည်။
မှတ်ချက် – VBA တွင် StrComp လုပ်ဆောင်ချက်၏ စာရွက်စာတမ်းအပြည့်အစုံကို ဤနေရာတွင် ရှာတွေ့နိုင်ပါသည်။
ထပ်လောင်းအရင်းအမြစ်များ
အောက်ဖော်ပြပါ သင်ခန်းစာများသည် VBA တွင် အခြားဘုံအလုပ်များကို မည်သို့လုပ်ဆောင်ရမည်ကို ရှင်းပြသည်-
VBA- စာကြောင်းတစ်ခုရှိ ဇာတ်ကောင်များကို အစားထိုးနည်း
VBA- string တစ်ခုမှ အထူးဇာတ်ကောင်များကို ဖယ်ရှားနည်း
VBA- စာကြောင်းတစ်ခုအား int သို့ မည်သို့ပြောင်းရမည်နည်း။