Vba में एक स्ट्रिंग को कैसे उल्टा करें (उदाहरण के साथ)

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

इस फ़ंक्शन को व्यवहार में उपयोग करने का एक सामान्य तरीका यहां दिया गया है:

 SubReverseStrings ()
    
Dim i As Integer

For i = 2 To 11
    Range("B" & i) = StrReverse(Range("A" & i))
Next i

End Sub

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

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

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

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

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

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

 SubReverseStrings ()
    
Dim i As Integer

For i = 2 To 11
    Range("B" & i) = StrReverse(Range("A" & i))
Next i

End Sub

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

कॉलम बी, कॉलम ए में प्रत्येक टीम का नाम पीछे की ओर प्रदर्शित करता है।

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

• Mavs svaM बन जाता है
• स्पर्स SrupS बन जाते हैं
• रॉकेट स्टेककोआर बन जाता है
• किंग्स sgniK बन जाता है

और इसी तरह।

ध्यान दें कि StrRevers फ़ंक्शन संख्याओं के साथ भी काम करता है।

उदाहरण के लिए, StrRevers फ़ंक्शन को संख्या 1234 पर लागू करने पर 4321 वापस आएगा।

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

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

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