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- အပိုင်းအခြား၏ ပျမ်းမျှတန်ဖိုးကို တွက်ချက်နည်း

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

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