Vba- “ဆဲလ်ပါရှိလျှင်” အတွက် ရိုးရှင်းသောဖော်မြူလာ

VBA တွင် “ ဆဲလ်ရှိလျှင်” အတွက်ဖော်မြူလာကိုသုံးရန် အောက်ပါအခြေခံအထားအသိုကိုသုံးနိုင်သည်။

 Sub IfContains()
    Dim i As Integer

    For i = 2 To 8
        If InStr(1, LCase(Range(" A " & i)), " turtle ") <> 0 Then
        Result = " Contains Turtle "
        Else
        Result = “ Does Not Contain Turtle ”
        End If
    Range(" B " & i) = Result
    Next i
End Sub

ဤဥပမာသည် အပိုင်းအခြား A2:A8 ရှိ ဆဲလ်တစ်ခုစီတွင် “ လိပ်” ပါဝင်ခြင်းရှိမရှိ စစ်ဆေးပြီး B2:B8 အပိုင်းအခြားရှိ ကိုက်ညီသည့်ဆဲလ်တစ်ခုစီအတွက် “ လိပ်ပါရှိသည်” သို့မဟုတ် “ လိပ်ပါရှိသည်” သို့မဟုတ် “ လိပ်မပါဝင်ပါ” ဟူ၍ သတ်မှတ်ပေးသည်။

မှတ်ချက် – Instr နည်းလမ်းသည် စာကြောင်းတစ်ခုတွင် အခြားစာကြောင်းများပါရှိမရှိ စစ်ဆေးပြီး LCase နည်းလမ်းသည် စာလုံးအသေးမှ စာလုံးအသေးသို့ ပြောင်းလဲပေးပါသည်။

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

ဥပမာ- VBA တွင် “ဆဲလ်ပါရှိလျှင်” ကိုအသုံးပြုနည်း

Excel တစ်ခုစီတွင် မတူညီသောစာသားများပါရှိသော အောက်ပါဆဲလ်များစာရင်းတွင် ကျွန်ုပ်တို့ရှိသည်ဆိုပါစို့။

အကွာအဝေး A2:A8 အတွင်းရှိ ဆဲလ်တစ်ခုစီတွင် “ လိပ်” ဟူသော စာသားပါရှိသည်၊ အပိုင်းအခြား B2:B8 ရှိ သက်ဆိုင်ရာဆဲလ်များတွင် ရလဒ်များကို ပြသလိုသည်ဆိုပါစို့။

ဒါကိုလုပ်ဖို့ အောက်ပါ macro ကို ဖန်တီးနိုင်ပါတယ်။

 Sub IfContains()
    Dim i As Integer

    For i = 2 To 8
        If InStr(1, LCase(Range(" A " & i)), " turtle ") <> 0 Then
        Result = " Contains Turtle "
        Else
        Result = “ Does Not Contain Turtle ”
        End If
    Range(" B " & i) = Result
    Next i
End Sub

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

ကော်လံ B သည် ကော်လံ A ရှိ သက်ဆိုင်ရာဆဲလ်များတွင် စာသားတစ်နေရာတွင် “လိပ်” ပါရှိ/မရှိကို ပြောပြသည်။

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

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

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

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