वीबीए: एक स्ट्रिंग में वर्णों की घटनाओं की गणना कैसे करें

आप 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 रेंज में प्रदर्शित करता है।

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस वाक्यविन्यास का उपयोग कैसे करें।

उदाहरण: 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

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

कॉलम सी में मान कॉलम बी में मिलान स्ट्रिंग्स में स्लैश की घटनाओं की संख्या प्रदर्शित करते हैं।

उदाहरण के लिए:

• गार्ड/फॉरवर्ड स्ट्रिंग में 1 स्लैश है।
• गार्ड स्ट्रिंग में 0 स्लैश हैं।
• गार्ड स्ट्रिंग में 0 स्लैश हैं।
• फॉरवर्ड/सेंटर स्ट्रिंग में 1 स्लैश है।

और इसी तरह।

किसी भिन्न वर्ण की घटनाओं की गणना करने के लिए, बस मैक्रो में my_char चर के वर्ण को बदलें।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए: कैसे जांचें कि एक स्ट्रिंग में दूसरी स्ट्रिंग है या नहीं
वीबीए: श्रेणी में पंक्तियों की संख्या कैसे गिनें
VBA: COUNTIF और COUNTIFS फ़ंक्शंस कैसे लिखें