Vba का उपयोग करके स्ट्रिंग्स को अपरकेस में कैसे बदलें

आप स्ट्रिंग्स को अपरकेस में बदलने के लिए VBA में UCase फ़ंक्शन का उपयोग कर सकते हैं।

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

 Sub ConvertToUpperCase()
    
    Dim i As Integer

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

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

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

उदाहरण: VBA का उपयोग करके स्ट्रिंग्स को अपरकेस में बदलें

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

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

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

 Sub ConvertToUpperCase()
    
    Dim i As Integer

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

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

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

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

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

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

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