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

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

 Sub CountOccurrences()
    Dim i As Integer
    
    'Specify character to look for
    my_char = "/"
    
    'Count occurrences in each string in B2:B12 and display results in C2:C12
    For i = 2 To 12
        Count = (Len(Range(" B " & i)) - Len(Replace(Range(" B " & i), my_char, ""))) / Len(my_char)
        Range(" C " & i) = Count
    Next i
End Sub

ဤဥပမာသည် အကွာအဝေး B2:B12 ရှိ ဆဲလ်တစ်ခုစီရှိ ရှေ့ဆက်မျဉ်းစောင်း ( / ) ၏ အရေအတွက်ကို ရေတွက်ပြီး အပိုင်းအခြား C2:C12 တွင် ရလဒ်များကို ပြသသည်။

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

ဥပမာ- VBA ကို အသုံးပြု၍ စာကြောင်းတစ်ခုရှိ ဇာတ်ကောင်များ ဖြစ်ပွားမှုကို ရေတွက်ပါ။

ကျွန်ုပ်တို့တွင် မတူညီသောဘတ်စကက်ဘောကစားသမားများ၏အမည်များနှင့် ဂိမ်းတစ်ခုတွင် ၎င်းတို့ကစားနိုင်သည့်နေရာများကိုပြသသည့် Excel တွင် အောက်ပါဒေတာအစုံရှိသည်ဆိုကြပါစို့။

Position ကော်လံရှိ စာကြောင်းတစ်ခုစီတွင် ရှေ့သို့ မျဉ်းစောင်းများ ( / ) အရေအတွက်ကို ရေတွက်လိုသည်ဆိုပါစို့။

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

 Sub CountOccurrences()
    Dim i As Integer
    
    'Specify character to look for
    my_char = "/"
    
    'Count occurrences in each string in B2:B12 and display results in C2:C12
    For i = 2 To 12
        Count = (Len(Range(" B " & i)) - Len(Replace(Range(" B " & i), my_char, ""))) / Len(my_char)
        Range(" C " & i) = Count
    Next i
End Sub

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

ကော်လံ C ရှိ တန်ဖိုးများသည် ကော်လံ B ရှိ ကိုက်ညီသော စာကြောင်းများတွင် မျဉ်းစောင်းများ အရေအတွက်ကို ပြသသည်။

ဥပမာအားဖြင့်:

• Guard/Forward စာတန်းတွင် မျဉ်းစောင်း 1 ခု ပါရှိသည်။
• Guard string တွင် 0 မျဉ်းစောင်းများ ပါရှိသည်။
• Guard string တွင် 0 မျဉ်းစောင်းများ ပါရှိသည်။
• ရှေ့သို့/ဗဟိုစာတန်းတွင် မျဉ်းစောင်း 1 ခု ပါရှိသည်။

နောက် … ပြီးတော့။

မတူညီသော ဇာတ်ကောင်တစ်ခု၏ ဖြစ်ပျက်မှုများကို ရေတွက်ရန်၊ မက်ခရိုရှိ my_char variable ၏ ဇာတ်ကောင်ကို ပြောင်းပါ။

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

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

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