वीबीए का उपयोग करके स्ट्रिंग्स को उचित केस में कैसे परिवर्तित करें

एक स्ट्रिंग केस सही है यदि स्ट्रिंग में प्रत्येक शब्द का पहला अक्षर अपरकेस है और प्रत्येक शब्द के अन्य सभी अक्षर लोअरकेस हैं।

आप स्ट्रिंग वाले कक्षों की श्रेणी को सही केस में बदलने के लिए VBA में निम्नलिखित सिंटैक्स का उपयोग कर सकते हैं:

 Sub ConvertToProperCase()
    
    Dim i As Integer

    For i = 2 To 10
        Range(" B " & i) = StrConv(Range(" A " & i), vbProperCase)
    Next i
    
End Sub

यह विशेष उदाहरण प्रत्येक स्ट्रिंग को श्रेणी A2:A10 में उचित मामले में बदल देगा और परिणाम को श्रेणी B2:B10 में प्रदर्शित करेगा।

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

उदाहरण: वीबीए का उपयोग करके स्ट्रिंग्स को उचित केस में बदलें

मान लीजिए कि हमारे पास एक्सेल में स्ट्रिंग्स का निम्नलिखित कॉलम है:

मान लीजिए कि हम कॉलम ए में प्रत्येक स्ट्रिंग को सही केस में बदलना चाहते हैं और परिणाम कॉलम बी में प्रदर्शित करना चाहते हैं:

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 Sub ConvertToProperCase()
    
    Dim i As Integer

    For i = 2 To 10
        Range(" B " & i) = StrConv(Range(" A " & i), vbProperCase)
    Next i
    
End Sub

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

कॉलम बी उचित स्थिति में कॉलम ए में प्रत्येक स्ट्रिंग को प्रदर्शित करता है।

नोट : आप VBA में StrConv फ़ंक्शन का पूरा दस्तावेज़ यहां पा सकते हैं।

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

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

VBA में स्ट्रिंग्स की तुलना कैसे करें
VBA में एक स्ट्रिंग से रिक्त स्थान कैसे निकालें
VBA में स्ट्रिंग में वर्णों को कैसे बदलें