वीबीए में विकल्प का उपयोग कैसे करें (उदाहरण के साथ)

आप एक स्ट्रिंग में किसी विशिष्ट टेक्स्ट की सभी घटनाओं को नए टेक्स्ट से बदलने के लिए VBA में सब्स्टीट्यूट() विधि का उपयोग कर सकते हैं।

यह विधि निम्नलिखित मूल वाक्यविन्यास का उपयोग करती है:

स्थानापन्न (पाठ, पुराना_पाठ, नया_पाठ, उदाहरण संख्या)

सोना:

• टेक्स्ट : वह टेक्स्ट जिसमें आप वर्णों को बदलना चाहते हैं
• Old_text : प्रतिस्थापित किया जाने वाला टेक्स्ट
• New_text : प्रतिस्थापन के रूप में उपयोग किया जाने वाला टेक्स्ट
• Instance_num ( वैकल्पिक ) : पुराने टेक्स्ट का कौन सा इंस्टेंस बदलना है। यदि कोई भी निर्दिष्ट नहीं है, तो पुराने पाठ की सभी घटनाएं बदल दी जाती हैं।

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

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

मान लीजिए कि हमारे पास एक्सेल में भावों की निम्नलिखित सूची है:

मान लीजिए कि हम इसके बजाय प्रत्येक कोशिका में प्रत्येक स्थान को अल्पविराम से बदलना चाहते हैं।

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

 Sub SubstituteText()

Dim rng As Range, cell As Range
Set rng = Range(" A2:A9 ")

For Each cell In rng
    cell = WorksheetFunction.Substitute(cell, " ", ",")
Next
    
End Sub

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

ध्यान दें कि कॉलम ए में प्रत्येक सेल में प्रत्येक स्थान को अल्पविराम से बदल दिया गया है।

ध्यान दें कि हम प्रत्येक स्थान को शून्य से बदलने के लिए निम्नलिखित सिंटैक्स का भी उपयोग कर सकते हैं:

 Sub SubstituteText()

Dim rng As Range, cell As Range
Set rng = Range(" A2:A9 ")

For Each cell In rng
    cell = WorksheetFunction.Substitute(cell, " ", "")
Next
    
End Sub

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

ध्यान दें कि कॉलम ए में प्रत्येक सेल में प्रत्येक स्थान को कुछ भी नहीं से बदल दिया गया है।

दूसरे शब्दों में, हमने कॉलम ए में प्रत्येक सेल से प्रत्येक रिक्त स्थान हटा दिया।

नोट : आप वीबीए सब्स्टीट्यूट विधि के लिए संपूर्ण दस्तावेज़ यहां पा सकते हैं।

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

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

वीबीए: एक स्ट्रिंग में वर्णों की घटनाओं की गणना कैसे करें
वीबीए: कैसे जांचें कि एक स्ट्रिंग में दूसरी स्ट्रिंग है या नहीं
वीबीए: विशिष्ट पाठ वाले कक्षों की गणना कैसे करें