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

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

• * : မည်သည့်စာလုံးအရေအတွက်နှင့်မဆို ကိုက်ညီသည်။
• ? : ဇာတ်ကောင်တစ်ခုတည်းနှင့် ကိုက်ညီသည်။
• # : ဂဏန်းတစ်လုံးနှင့် သက်ဆိုင်သည်။
• [] : အကွာအဝေးအတွင်း မည်သည့်ဇာတ်ကောင်နှင့်မဆို ကိုက်ညီသည်။

အောက်ဖော်ပြပါ ဥပမာများသည် ဤသင်္ကေတများကို လက်တွေ့တွင် မည်သို့အသုံးပြုရမည်ကို ပြသထားသည်။

ဥပမာ 1- စာကြောင်းခွဲတစ်ခုကိုရှာဖွေရန် *Wildcard ကိုသုံးပါ။

ကော်လံ A တွင် အောက်ပါ အစားအစာများ ရှိသည် ဆိုပါစို့။

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

 Sub FindString()

    Dim i As Integer
    
    For i = 2 To 10
        If Range(" A " & i) Like " *hot* " Then
            Range(" B " & i) = " Contains hot "
        Else
            Range(" B " & i) = " Does Not Contain hot "
        End If
    Next i
    
End Sub

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

ဥပမာ 2- ပုံစံတစ်ခုဖြင့်အဆုံးသတ်ထားသော စာကြောင်းများကိုရှာဖွေရန် သင်္ကေတစာလုံး * ကိုသုံးပါ။

ကျွန်ုပ်တို့တွင် ကော်လံ A တွင် အောက်ပါ ဘတ်စကတ်ဘောအသင်းအမည်များ ရှိသည်ဆိုပါစို့။

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

 Sub FindEndingString()

    Dim i As Integer
    
    For i = 2 To 10
        If Range(" A " & i) Like " *ets " Then
            Range(" B " & i) = " Ends in ets "
        Else
            Range(" B " & i) = " Does Not End in ets "
        End If
    Next i
    
End Sub

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

ဥပမာ 3- နံပါတ်များကိုရှာဖွေရန် wildcard # ကိုသုံးပါ။

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

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

 SubFindNumbers ()

    Dim i As Integer
    
    For i = 2 To 10
        If Range(" A " & i) Like " *#* " Then
            Range(" B " & i) = " Contains Numbers "
        Else
            Range(" B " & i) = " Does Not Contain Numbers "
        End If
    Next i
    
End Sub

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

ဥပမာ 4- စာလုံးများစွာကိုရှာဖွေရန် သင်္ကေတ [] ကိုသုံးပါ။

ကျွန်ုပ်တို့တွင် ကော်လံ A တွင် အောက်ပါ ဘတ်စကတ်ဘောအသင်းအမည်များ ရှိသည်ဆိုပါစို့။

အဖွဲ့အမည်တွင် r၊ s သို့မဟုတ် t ပါရှိသော ကော်လံ A ကို ရှာဖွေရန် အောက်ပါ မက်ခရိုကို ဖန်တီးနိုင်ပြီး ကော်လံ B တွင် ရလဒ်များကို ပြသနိုင်သည်-

 Sub FindSpecificLetters()

    Dim i As Integer
    
    For i = 2 To 10
        If Range(" A " & i) Like " *[rt]* " Then
            Range(" B " & i) = " Contains r, s, or t "
        Else
            Range(" B " & i) = " Does Not Contain r, s or t "
        End If
    Next i
    
End Sub

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

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

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

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

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