Vba- စာကြောင်းတစ်ကြောင်းတွင် အခြားစာကြောင်းပါရှိမရှိ စစ်ဆေးနည်း
string တစ်ခုတွင် အခြားသော string ပါရှိမရှိ စစ်ဆေးရန် VBA တွင် Instr() လုပ်ဆောင်ချက်ကို သင်အသုံးပြုနိုင်သည်။
ဤလုပ်ဆောင်ချက်သည် အောက်ပါအခြေခံ syntax ကိုအသုံးပြုသည်-
Instr (အစ၊ string1၊ string2၊ …)
ရွှေ-
- start : ရှာဖွေမှု၏ အစအနေအထား
- string1 : ရှာဖွေရန် စာကြောင်း
- string2 : သင်ရှာရန်ကြိုးစားနေသော စာကြောင်း
အောက်ဖော်ပြပါ ဥပမာသည် ဤလုပ်ဆောင်ချက်ကို လက်တွေ့အသုံးချနည်းကို ပြသထားသည်။
ဥပမာ- စာကြောင်းတွင် အခြားစာကြောင်းပါရှိမရှိ စစ်ဆေးရန် VBA ကိုသုံးပါ။
ကျွန်ုပ်တို့တွင် အမျိုးမျိုးသော ဘတ်စကတ်ဘောအသင်းများအကြောင်း အချက်အလက်ပါရှိသော Excel တွင် အောက်ပါဒေတာအစုံရှိသည် ဆိုကြပါစို့။
ယခု Team ကော်လံရှိ စာကြောင်းတစ်ခုစီတွင် string ၏တစ်နေရာရာမှာ “ avs” ပါဝင်နေသလား စစ်ဆေးလိုသည်ဆိုကြပါစို့။
အဖွဲ့ကော်လံရှိ စာကြောင်းတစ်ခုစီတွင် “ avs” ပါဝင်ခြင်းရှိ၊ မရှိ စစ်ဆေးရန် VBA တွင် အောက်ပါ syntax ကို အသုံးပြုနိုင်ပြီး၊ သို့ဆိုလျှင် ကော်လံ D နှင့် E တွင် အတန်းတစ်ခုလုံးကို ပြန်ပေးနိုင်ပါသည်။
Sub StringContains() Dim i As Integer , i_num As Integer For i = 2 To 9 If InStr(1, LCase(Range(" A " & i)), " avs ") <> 0 Then i_num = i_num + 1 Range(" D " & i_num & " :E " & i_num) = Range(" A " & i & " :B " & i).Value End If Next i End Sub
ကျွန်ုပ်တို့ ဤ macro ကို run သောအခါတွင်၊ ကျွန်ုပ်တို့သည် အောက်ပါ output ကို ရရှိသည် ။
အဖွဲ့ကော်လံရှိတစ်နေရာရာမှာ “ avs” ဟူသောစာကြောင်းပါရှိသော အတန်းတစ်ခုစီကို ကော်လံ D နှင့် E ဖြင့် ပြန်ပေးကြောင်း သတိပြုပါ။
ဤဥပမာတွင်၊ အဖွဲ့နှစ်ဖွဲ့သာ (Mavs နှင့် Cavs) သည် အဖွဲ့ကော်လံတွင် “ avs” ပါရှိသည်။
မတူညီသော စာကြောင်းတစ်ခုကို ရှာဖွေရန်၊ အထက်ကုဒ်တွင် “ avs” ကို သင်နှစ်သက်ရာ စာကြောင်းဖြင့် အစားထိုးပါ။
မှတ်ချက် #1- ကုဒ်တွင်၊ ကျွန်ုပ်တို့သည် ဆဲလ် A2 မှ A9 တွင် ကျွန်ုပ်တို့စိတ်ဝင်စားသော စာကြောင်းများပါသောကြောင့် For i = 2 မှ 9 ကို အသုံးပြုခဲ့သည်။ သင်ရှာဖွေနေသောဆဲလ်အကွာအဝေးပေါ်မူတည်၍ ဤအကွာအဝေးကို ပြောင်းလဲနိုင်သည်။
မှတ်ချက် #2 : VBA တွင် Instr() လုပ်ဆောင်ချက်၏ စာရွက်စာတမ်းအပြည့်အစုံကို ဤနေရာတွင် ရှာတွေ့နိုင်ပါသည်။
ထပ်လောင်းအရင်းအမြစ်များ
အောက်ဖော်ပြပါ သင်ခန်းစာများသည် VBA ကို အသုံးပြု၍ အခြားဘုံအလုပ်များကို မည်သို့လုပ်ဆောင်ရမည်ကို ရှင်းပြသည်-
VBA- စာကြောင်းတစ်ခုရှိ ဇာတ်ကောင်များ၏ ဖြစ်ပေါ်မှုကို ရေတွက်နည်း
VBA- အပိုင်းအခြားရှိ အတန်းအရေအတွက်ကို ရေတွက်နည်း
VBA- အပိုင်းအခြား၏ ပျမ်းမျှတန်ဖိုးကို တွက်ချက်နည်း