विषयसूची
यदि आप एक्सेल VBA का उपयोग करके टेक्स्ट को स्ट्रिंग में बदलने के तरीकों की तलाश कर रहे हैं, तो आपको यह लेख उपयोगी लगेगा। एक निश्चित टेक्स्ट भाग को बदलने से टेक्स्ट स्ट्रिंग्स को फिर से टाइप करने में काफी समय बच सकता है। तो, इस प्रतिस्थापन कार्य के बारे में विवरण जानने के लिए मुख्य लेख में आते हैं।
वर्कबुक डाउनलोड करें
स्ट्रिंग.xlsm में टेक्स्ट बदलें
एक्सेल वीबीए का उपयोग करके स्ट्रिंग में टेक्स्ट को बदलने के 5 तरीके
यहां, हमारे पास निम्नलिखित डेटासेट हैं जिसमें कर्मचारियों के ईमेल आईडी के साथ कुछ रिकॉर्ड हैं। हमारा काम पुराने डोमेन नामों को नए के साथ बदलना है। निम्नलिखित विधियों में, हम वांछित टेक्स्ट को VBA कोड से बदलने के लिए कुछ यादृच्छिक टेक्स्ट स्ट्रिंग्स के साथ इस डेटासेट के साथ काम करेंगे।
हमने <का उपयोग किया है। 9>Microsoft Excel 365 संस्करण यहाँ, आप अपनी सुविधा के अनुसार किसी भी अन्य संस्करण का उपयोग कर सकते हैं।
विधि-01: एक यादृच्छिक स्ट्रिंग की n-वें स्थान से शुरू होने वाले पाठ को बदलें
यहां, हम अलग-अलग शुरुआती पोजीशन के लिए रैंडम टेक्स्ट स्ट्रिंग में टेक्स्ट को बदल देंगे।
स्टेप-01 :
➤ डेवलपर टैब पर जाएं >> कोड समूह >> विज़ुअल बेसिक विकल्प।
फिर, विज़ुअल बेसिक संपादक खुल जाएगा।
➤ इन्सर्ट टैब >> मॉड्यूल विकल्प
उसके बाद, एक मॉड्यूल बनाया जाएगा।
चरण-02 :
➤ निम्नलिखित लिखिएकोड
4976
यहां, हमने full_txt_str और updated_str को स्ट्रिंग के रूप में घोषित किया है और फिर full_txt_str को एक रैंडम टेक्स्ट असाइन किया है स्ट्रिंग- "सौ कारें पचास कारें दस कारें" । फिर VBA रिप्लेस फंक्शन का इस्तेमाल कारों इस रैंडम स्ट्रिंग के हिस्से को साइकिलों<10 से बदलने के लिए किया जाता है और 1 इस स्ट्रिंग की स्थिति 1 से प्रतिस्थापन शुरू करने के लिए यहां उपयोग किया जाता है। अंत में, हमने इस नई टेक्स्ट स्ट्रिंग को updated_str को असाइन किया है और एक संदेश बॉक्स ( MsgBox ) के साथ हम परिणाम देखेंगे।
➤ F5 दबाएं।
फिर एक संदेश बॉक्स नए टेक्स्ट स्ट्रिंग के साथ बदली हुई टेक्स्ट साइकिलों <के साथ दिखाई देगा। 2>.
➤ कारों के दूसरे उदाहरण से प्रतिस्थापन प्रक्रिया करने के लिए निम्नलिखित कोड का उपयोग करें।
5176
यहाँ, हमने प्रारंभिक स्थिति का उपयोग 14 के रूप में किया है क्योंकि हम सौ कारों के बाद स्ट्रिंग का भाग चाहते हैं और <1 को प्रतिस्थापित करना चाहते हैं कारें यहां.
➤ कोड चलाने के बाद, हमारे पास निम्न संदेश बॉक्स होगा टेक्स्ट स्ट्रिंग के साथ टेक्स्ट से शुरू पचास और साइकिल के साथ <की स्थिति में 1> कारें ।
➤ इस स्ट्रिंग के केवल अंतिम भाग के लिए हम निम्नलिखित कोड लागू कर रहे हैं।
5150
यहाँ, हमने प्रारंभिक स्थिति का उपयोग 25 के रूप में किया है क्योंकि हम पचास कारों के बाद स्ट्रिंग का हिस्सा चाहते हैं और कारों को साइकिलों से बदलना चाहते हैं यहाँ।
आखिरकार, हमारे पास एक संदेश बॉक्स होगा जिसमें स्ट्रिंग के हमारे वांछित हिस्से को से बदला जाएगा। साइकिलें ।
और पढ़ें: एक्सेल VBA: स्ट्रिंग में वर्ण को स्थिति से बदलें (4 प्रभावी तरीके)
विधि-02: एक्सेल VBA का उपयोग करके रैंडम स्ट्रिंग की n-th घटना के लिए पाठ को प्रतिस्थापित करें
इस अनुभाग में, हम मदद से विभिन्न संख्याओं की घटनाओं के लिए एक यादृच्छिक स्ट्रिंग में टेक्स्ट को प्रतिस्थापित करेंगे। VBA कोड का।
चरण :
➤ चरण-01 का पद्धति-1<का पालन करें 2>।
➤ निम्न कोड टाइप करें।
9766
यहाँ, हमने full_txt_str और updated_str को स्ट्रिंग के रूप में घोषित किया है। और फिर full_txt_str को एक रैंडम टेक्स्ट स्ट्रिंग- "हंड्रेड कार्स फिफ्टी कार्स टेन कार्स" असाइन किया गया। उसके बाद, इस रैंडम स्ट्रिंग के कारों भाग को साइकिलों <से बदलने के लिए REPLACE फ़ंक्शन का उपयोग किया जाता है 9>, 1 इस स्ट्रिंग की स्थिति 1 से प्रतिस्थापन शुरू करने के लिए यहां उपयोग किया जाता है, और अंतिम 1 है घटनाओं की संख्या की गणना के लिए। गिनती संख्या के रूप में 1 का उपयोग करके हम केवल पहली कारों के प्रतिस्थापन को परिभाषित कर रहे हैं। अंत में, हमने इस नई टेक्स्ट स्ट्रिंग को updated_str और a के साथ असाइन किया हैसंदेश बॉक्स ( MsgBox ) हम परिणाम देखेंगे।
➤ F5 दबाएं।
बाद में, एक संदेश बॉक्स नए टेक्स्ट के साथ दिखाई देगा साइकिलें पहले स्थान में कारें <केवल 2>
➤ कार के पहले दो उदाहरणों को साइकिल <10 से बदलने के लिए निम्नलिखित कोड का उपयोग करें।
3949
यहां, 2 का उपयोग गिनती संख्या के रूप में कारों <2 के पहले दो उदाहरणों को बदलने के लिए किया जाता है> साइकिलों के साथ।
कोड चलाने के बाद, आपके पास पहले दो पाठों का प्रतिस्थापन होगा कारें साइकिलों के साथ।
➤ सभी उदाहरणों को बदलने के लिए निम्नलिखित कोड लागू करें पाठ का कारें ।
3856
यहाँ, REPLACE फ़ंक्शन का अंतिम तर्क 3 है जो कि गिनती संख्या कारों के साथ साइकिल टेक्स्ट स्ट्रिंग में सभी के प्रतिस्थापन का संकेत देती है।
➤ F5 दबाएं।
बाद में, हम करेंगे निम्नलिखित संदेश बॉक्स को प्रतिस्थापित पाठ के साथ साइकिलें स्ट्रिंग में रखें।
इसी तरह की रीडिंग
- एक्सेल में कैरेज रिटर्न के साथ टेक्स्ट को कैसे बदलें (4 स्मूद तरीके)
- एक्सेल वीबीए: कैसे खोजें और Word दस्तावेज़ में टेक्स्ट बदलें
- Excel में विशिष्ट वर्ण के बाद टेक्स्ट कैसे बदलें (3 विधियाँ)
- किसी फ़ाइल का टेक्स्ट बदलेंएक्सेल में कंडीशन पर आधारित सेल (5 आसान तरीके)
विधि-03: टेक्स्ट को रैंडम स्ट्रिंग में इनपुटबॉक्स से बदलें
यहाँ, हम एक निश्चित टेक्स्ट को बदल देंगे एक पाठ के साथ एक यादृच्छिक स्ट्रिंग जिसे VBA InputBox फ़ंक्शन की मदद से एक उपयोगकर्ता द्वारा परिभाषित किया जाएगा।
चरण :<3
➤ विधि-1 के चरण-01 का पालन करें।
➤ निम्नलिखित कोड टाइप करें।
3596
यहां, हमने घोषित किया है full_txt_str , new_txt , और updated_str स्ट्रिंग के रूप में और फिर full_txt_str एक यादृच्छिक टेक्स्ट स्ट्रिंग को असाइन किया गया- "सौ कारें पचास कारें दस कारें" । टेक्स्ट के रूप में यूज़र-डिफ़ाइंड इनपुट को रैंडम स्ट्रिंग में कार से बदलने के लिए, हमने इनपुटबॉक्स फ़ंक्शन का उपयोग किया है और फिर यह मान असाइन किया है से new_txt . फिर REPLACE फ़ंक्शन का उपयोग new_txt के साथ इस यादृच्छिक स्ट्रिंग के कारों भाग को बदलने के लिए किया जाता है। अंत में, हमने इस नई टेक्स्ट स्ट्रिंग को updated_str को असाइन किया है और एक संदेश बॉक्स ( MsgBox ) के साथ हम परिणाम देखेंगे।
➤ प्रेस F5 ।
उसके बाद, एक इनपुट बॉक्स दिखाई देगा जहां आप कोई भी टेक्स्ट भाग दर्ज कर सकते हैं जिसे आप नई स्ट्रिंग में रखना चाहते हैं।
➤ टाइप करें साइकिल या कोई अन्य टेक्स्ट जो आप चाहते हैं और फिर ओके दबाएं।
अंत में, आप नए टेक्स्ट स्ट्रिंग के साथ निम्न परिणाम प्राप्त करें जिसमें नया टेक्स्ट साइकिलें में हों कारों की स्थिति ।
और पढ़ें: एक्सेल फॉर्मूला में टेक्स्ट कैसे बदलें (7 आसान तरीके)
मेथड-04: एक्सेल VBA
के साथ स्ट्रिंग्स की एक रेंज में टेक्स्ट को बदलें, यहाँ, हम gmail का हिस्सा बदल देंगे नया डोमेन कॉलम में डोमेन के साथ ईमेल आईडी, और नई ईमेल आईडी संचित करने के लिए हमने एक नया कॉलम डाला है; अंतिम ईमेल आईडी .
चरण :
➤ अनुसरण करें चरण-01 of Method-1 .
➤ निम्न कोड टाइप करें।
1725
यहाँ, हमने FOR लूप का उपयोग <से ऑपरेशन निष्पादित करने के लिए किया है। 1> पंक्ति 4 से पंक्ति 13 । IF-THEN स्टेटमेंट की मदद से हमने जांच की है कि कॉलम D की ईमेल आईडी में “gmail” <10 है या नहीं या नहीं, और इस मानदंड को पूरा करने के लिए “gmail” ईमेल आईडी के हिस्से को कॉलम E<के नए डोमेन से बदल दिया जाएगा। 10> कॉलम F में नई आईडी बनाने के लिए। अन्यथा आपके पास कॉलम F के संबंधित सेल में एक खाली स्थान होगा।
➤ F5 दबाएं .
फिर, आपके पास नई ईमेल आईडी अंतिम ईमेल आईडी कॉलम में होगी।
और पढ़ें: एक्सेल VBA एक कॉलम में टेक्स्ट को खोजने और बदलने के लिए (2 उदाहरण)
विधि-05: टेक्स्ट को खोजने के लिए उपयोगकर्ता इनपुट के साथ स्ट्रिंग्स की एक श्रेणी में टेक्स्ट बदलें
आप इसे बदल सकते हैं निम्नलिखित ईमेल आईडी के साथनए डोमेन और घोषणा करें कि पिछले आईडी में क्या बदलना है, इस विधि का पालन करके उपयोगकर्ता इनपुट का उपयोग किया जा सकता है।
कदम :
➤ विधि-1 का चरण-01 का पालन करें।
➤ निम्न कोड टाइप करें।
8691
यहाँ, हमने परिभाषित किया है partial_text एक स्ट्रिंग के रूप में और फिर इसे एक स्ट्रिंग को असाइन किया जाता है जो इनपुट बॉक्स के माध्यम से एक उपयोगकर्ता द्वारा दिया जाएगा।
बाद में, हमने फॉर लूप का उपयोग पंक्ति 4 से पंक्ति 13 तक ऑपरेशन निष्पादित करने के लिए किया, और उपयोग किया IF-THEN स्टेटमेंट में, हमने जांच की कि कॉलम D की ईमेल आईडी में “gmail” है या नहीं नहीं। और इस मानदंड को पूरा करने के लिए “gmail” ईमेल आईडी के हिस्से को कॉलम E के नए डोमेन से बदल दिया जाएगा। कॉलम F में नई आईडी। अन्यथा आपके पास कॉलम F के संबंधित सेल में एक खाली स्थान होगा।
➤ F5 दबाएं .
उसके बाद, आपके पास एक इनपुट बॉक्स होगा जहां आपको वह टेक्स्ट टाइप करना है जिसे आप ईमेल आईडी की श्रेणी में खोजना चाहते हैं (यहां हमारे पास है एंटर किया gmail ) और फिर OK दबाएं।
आखिरकार, हमें Final ईमेल आईडी कॉलम।
और पढ़ें: एक्सेल VBA (मैक्रो और यूजरफॉर्म) के साथ एक रेंज में टेक्स्ट को खोजें और बदलें
प्रैक्टिस सेक्शन
अभ्यास करने के लिएहमने स्वयं अभ्यास नाम की एक शीट में नीचे की तरह अभ्यास अनुभाग प्रदान किया है। कृपया इसे स्वयं करें।
निष्कर्ष
इस लेख में, हमने एक्सेल VBA का उपयोग करके स्ट्रिंग में टेक्स्ट को बदलने के तरीकों को कवर करने का प्रयास किया । आशा है आपको यह उपयोगी लगेगा। यदि आपके कोई सुझाव या प्रश्न हैं, तो बेझिझक उन्हें टिप्पणी अनुभाग में साझा करें।
