Vba- သီးခြားစာသားဖြင့် ဆဲလ်များကို ရေတွက်နည်း

VBA ကို အသုံးပြု၍ သီးခြားစာသားပါရှိသော အပိုင်းအခြားတစ်ခုရှိ ဆဲလ်အရေအတွက်ကို ရေတွက်ရန် အောက်ပါအခြေခံ syntax ကို အသုံးပြုနိုင်ပါသည်။

 SubCountCellsWithText ()
    Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A13 "), " *avs* ")
End Sub

ဤဥပမာသည် “ avs” ပါရှိသော အပိုင်းအခြား A2:A13 ရှိ ဆဲလ်အရေအတွက်ကို ရေတွက်ပြီးနောက် ရလဒ်ကို ဆဲလ် D2 သို့ သတ်မှတ်ပေးသည်။

မှတ်ချက် – Asterisks ( * ) ကို Countif လုပ်ဆောင်ချက်တွင် သင်္ကေတများအဖြစ် အသုံးပြုပါသည်။

မက်ဆေ့ဘောက်စ်တစ်ခုတွင် ဆဲလ်အရေအတွက်ကို ပြသလိုပါက၊ အောက်ပါ syntax ကို အသုံးပြုနိုင်ပါသည်။

 SubCountCellsWithText ()

    Dim cellCount As Integer
    
    'Calculate number of cells that contain 'avs'
    cellCount = WorksheetFunction.CountIf(Range(" A2:A13 "), "* avs* ")
    
    'Display the result
    MsgBox "Cells that contain avs : " & cellCount
End Sub

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

ဥပမာ 1- VBA ကို အသုံးပြု၍ သီးခြားစာသားဖြင့် ဆဲလ်များကို ရေတွက်ပြီး ဆဲလ်အတွင်းရှိ ရလဒ်များကို ပြသပါ။

အဖွဲ့အမည်တွင် “ avs” ပါဝင်သော ဆဲလ်အရေအတွက်ကို ရေတွက်ပြီး သီးခြားဆဲလ်တစ်ခုတွင် ရလဒ်များကို ပြသလိုသည်ဆိုပါစို့။

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

 SubCountCellsWithText ()
    Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A13 "), " *avs* ")
End Sub

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

ဆဲလ် D2 တွင် တန်ဖိုး 5 ပါဝင်ကြောင်း သတိပြုပါ။

၎င်းသည် အဖွဲ့အမည်တွင် “ avs” ပါဝင်သည့် အပိုင်းအခြား A2:A13 တွင် ဆဲလ် 5 ခုရှိကြောင်း ကျွန်ုပ်တို့ကိုပြောပြသည်။

ဥပမာ 2- VBA ကို အသုံးပြု၍ သီးခြားစာသားဖြင့် ဆဲလ်များကို ရေတွက်ပြီး ရလဒ်များကို မက်ဆေ့ဘောက်စ်တွင် ပြသပါ။

ယင်းအစား ကျွန်ုပ်တို့သည် “ avs” ပါရှိသော ဆဲလ်အရေအတွက်ကို ရေတွက်ပြီး ရလဒ်များကို မက်ဆေ့ဘောက်စ်တစ်ခုတွင် ပြသလိုသည်ဆိုပါစို့။

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

 SubCountCellsWithText ()

    Dim cellCount As Integer
    
    'Calculate number of cells that contain 'avs'
cellCount = WorksheetFunction.CountIf(Range(" A2:A13 "), " *avs* ")
    
    'Display the result
MsgBox "Cells that contain avs : " & cellCount
End Sub

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

အဖွဲ့အမည်တွင် “ avs” ပါဝင်သည့် ဆဲလ် 5 ခုရှိကြောင်း မက်ဆေ့ချ်ဘောက်စ်တွင် ဖော်ပြထားသည်။

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

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

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