एक्सेल VBA: स्ट्रिङमा पाठ कसरी बदल्ने (५ प्रभावकारी तरिकाहरू)

  • यो साझा गर्नुहोस्
Hugh West

यदि तपाईं एक्सेल VBA प्रयोग गरेर स्ट्रिङमा पाठ बदल्ने तरिकाहरू खोज्दै हुनुहुन्छ भने, तपाईंले यो लेख उपयोगी पाउनुहुनेछ। निश्चित पाठ भाग प्रतिस्थापन गर्नाले पाठ स्ट्रिङहरू फेरि टाइप गर्न धेरै समय बचत हुन सक्छ। त्यसोभए, यस प्रतिस्थापन कार्यको बारेमा विवरणहरू जान्नको लागि मुख्य लेखमा प्रवेश गरौं।

कार्यपुस्तिका डाउनलोड गर्नुहोस्

String.xlsm

<मा पाठ प्रतिस्थापन गर्नुहोस्। 4> एक्सेल VBA प्रयोग गरेर स्ट्रिङमा टेक्स्ट रिप्लेस गर्ने ५ तरिकाहरू

यहाँ, हामीसँग निम्न डेटासेट छ जसमा कर्मचारीहरूको इमेल आइडीसँग केही रेकर्डहरू छन्। हाम्रो कार्य पुरानो डोमेन नामहरू नयाँसँग बदल्नु हो। निम्न विधिहरूमा, हामी यस डेटासेटसँग काम गर्नेछौं केही अनियमित पाठ स्ट्रिङहरूका साथ इच्छित पाठलाई VBA कोडहरूसँग बदल्नका लागि।

हामीले प्रयोग गरेका छौं Microsoft Excel 365 संस्करण यहाँ, तपाइँ आफ्नो सुविधा अनुसार कुनै पनि अन्य संस्करणहरू प्रयोग गर्न सक्नुहुन्छ।

विधि-01: अनियमित स्ट्रिङको n-th स्थितिबाट सुरु हुने पाठ बदल्नुहोस्

यहाँ, हामी विभिन्न प्रारम्भिक स्थितिहरूको लागि अनियमित पाठ स्ट्रिङमा पाठ प्रतिस्थापन गर्नेछौं।

चरण-01 :

विकासकर्ता ट्याबमा जानुहोस्। >> कोड समूह >> भिजुअल बेसिक विकल्प।

13>

त्यसपछि, भिजुअल बेसिक सम्पादक खोल्नेछ।

Insert ट्याब >> मोड्युल विकल्पमा जानुहोस्।

त्यसपछि, मोड्युल बनाइनेछ।

चरण-02 :

➤ निम्न लेख्नुहोस्code

4944

यहाँ, हामीले full_txt_str updated_str लाई String को रूपमा घोषणा गरेका छौं र त्यसपछि full_txt_str अनियमित पाठमा तोकिएको छ। string- "सय कार पचास कार दस कार" । त्यसपछि VBA REPLACE प्रकार्य लाई कारहरू यस अनियमित स्ट्रिङको भागलाई साइकल<10 लाई प्रतिस्थापन गर्न प्रयोग गरिन्छ। 1 यहाँ यो स्ट्रिङको स्थिति 1 बाट प्रतिस्थापन सुरु गर्न प्रयोग गरिन्छ। अन्तमा, हामीले यो नयाँ पाठ स्ट्रिङलाई updated_str मा नियुक्त गरेका छौं र सन्देश बाकस ( MsgBox ) सँग हामीले परिणाम देख्नेछौं।

F5 थिच्नुहोस्।

त्यसपछि एउटा सन्देश बाकस प्रतिस्थापन गरिएको पाठ बाइकल <सहित नयाँ पाठ स्ट्रिङको साथ देखा पर्नेछ। 2>।

कारहरू को दोस्रो उदाहरणबाट प्रतिस्थापन प्रक्रिया गर्न निम्न कोड प्रयोग गर्नुहोस्।

8722

यहाँ, हामीले सुरुवाती स्थितिलाई 14 को रूपमा प्रयोग गरेका छौं किनभने हामी सय कारहरू पछि स्ट्रिङको अंश राख्न चाहन्छौं र <1 लाई बदल्न चाहन्छौं। कारहरू यहाँ।

➤ कोड चलाएपछि हामीसँग निम्न मेसेज बक्स हुनेछ। पाठ स्ट्रिङ पाठबाट सुरु हुने पचास को साथ र साइकल को स्थितिमा कारहरू

➤ यस स्ट्रिङको अन्तिम भाग मात्र भएकोले हामीले निम्न कोड लागू गर्दैछौँ।

8890

यहाँ हामीले सुरुवाती स्थितिलाई 25 को रूपमा प्रयोग गरेका छौं किनभने हामी पचास कारहरू पछि स्ट्रिङको भाग राख्न चाहन्छौं र कारहरू लाई साइकल <सँग बदल्न चाहन्छौं। 10> यहाँ।

अन्तमा, हामीसँग सन्देश बाकस स्ट्रिङको हाम्रो वांछित भागको साथ प्रतिस्थापन हुनेछ साइकलहरू

21>

थप पढ्नुहोस्: एक्सेल VBA: स्थिति अनुसार स्ट्रिङमा क्यारेक्टर बदल्नुहोस् (४ प्रभावकारी तरिकाहरू)

विधि-02: एक्सेल VBA प्रयोग गरी अनियमित स्ट्रिङको n-th घटनाको लागि पाठ प्रतिस्थापन गर्नुहोस्

यस खण्डमा, हामी मद्दतले विभिन्न संख्याको घटनाहरूको लागि अनियमित स्ट्रिङमा पाठ प्रतिस्थापन गर्नेछौं। VBA कोडको।

चरणहरू :

➤ पालना गर्नुहोस् चरण-01 को विधि-1

➤ निम्न कोड टाइप गर्नुहोस्।

2073

यहाँ, हामीले full_txt_str updated_str स्ट्रिङ को रूपमा घोषणा गरेका छौं। र त्यसपछि full_txt_str अनियमित पाठ स्ट्रिङमा तोकियो- “सय कार पचास कार दस कार” । त्यस पछि, REPLACE प्रकार्य कारहरू यस अनियमित स्ट्रिङको भागलाई साइकल <प्रतिस्थापन गर्न प्रयोग गरिन्छ। 9>, 1 यहाँ यो स्ट्रिङको स्थिति 1 बाट प्रतिस्थापन सुरु गर्न प्रयोग गरिन्छ, र अन्तिम 1 हो घटनाहरूको संख्या गणनाको लागि। गणना नम्बरको रूपमा 1 प्रयोग गरेर हामी पहिलो कारहरू मात्र प्रतिस्थापन परिभाषित गर्दैछौं। अन्तमा, हामीले यो नयाँ पाठ स्ट्रिङलाई updated_str मा नियुक्त गरेका छौं रसन्देश बक्स ( MsgBox ) हामीले परिणाम देख्नेछौं।

F5 थिच्नुहोस्।

पछि, एउटा सन्देश बाकस नयाँ पाठ बाइकल पहिलो स्थिति कारहरू <को साथ देखा पर्नेछ। 2>मात्र।

कारहरू को साइकल <10 को पहिलो दुई उदाहरणहरू प्रतिस्थापनको लागि> निम्न कोड प्रयोग गर्नुहोस्।

6082

यहाँ, 2 गणना नम्बरको रूपमा प्रयोग गरिन्छ कारहरू <2 को पहिलो दुई उदाहरणहरू प्रतिस्थापन गर्न। साइकलहरू सँग।

कोड चलाएपछि, तपाइँसँग पहिलो दुई पाठहरू प्रतिस्थापन हुनेछ कारहरू साइकल सँग।

25>

➤ सबै उदाहरणहरू प्रतिस्थापन गर्न निम्न कोड लागू गर्नुहोस् पाठको कारहरू

8512

यहाँ, REPLACE प्रकार्य को अन्तिम तर्क 3 हो जुन पाठ स्ट्रिङमा कारहरू साथ बाइकल को प्रतिस्थापन सङ्केत गर्ने संख्या।

F5 थिच्नुहोस्।

पछि, हामी गर्नेछौं निम्न सन्देश बाकस प्रतिस्थापन गरिएको पाठ बाइकल स्ट्रिङमा।

समान पढाइहरू

  • एक्सेलमा क्यारिज रिटर्नको साथ पाठ कसरी प्रतिस्थापन गर्ने (४ सहज दृष्टिकोण)
  • Excel VBA: कसरी खोज्ने र Word Document मा टेक्स्ट रिप्लेस गर्नुहोस्
  • कसरी एक्सेलमा विशिष्ट क्यारेक्टर पछि टेक्स्ट रिप्लेस गर्ने (३ विधि)
  • ए को टेक्स्ट रिप्लेस गर्नुहोस्एक्सेलमा सर्तमा आधारित सेल (५ सजिलो विधि)

विधि-03: इनपुटबक्सको साथ अनियमित स्ट्रिङमा पाठ बदल्नुहोस्

यहाँ, हामी निश्चित पाठलाई प्रतिस्थापन गर्नेछौं। पाठसँगको अनियमित स्ट्रिङ जुन VBA InputBox प्रकार्य को मद्दतले प्रयोगकर्ताद्वारा परिभाषित हुनेछ।

चरणहरू :<3

➤ पालना गर्नुहोस् चरण-01 को विधि-1

➤ निम्न कोड टाइप गर्नुहोस्।

1622

यहाँ, हामीले घोषणा गरेका छौं। full_txt_str , new_txt , र updated_str स्ट्रिङ को रूपमा र त्यसपछि full_txt_str अनियमित पाठ स्ट्रिङमा नियुक्त गरियो- "सय कार पचास कार दस कार" । पाठको रूपमा प्रयोगकर्ता-परिभाषित इनपुटलाई कारहरू अनियमित स्ट्रिङमा प्रतिस्थापन गर्न, हामीले इनपुटबक्स प्रकार्य प्रयोग गरेका छौं र त्यसपछि यो मान तोक्यौं। new_txt मा। त्यसपछि REPLACE प्रकार्य लाई new_txt को साथ कारहरू यस अनियमित स्ट्रिङको भागलाई प्रतिस्थापन गर्न प्रयोग गरिन्छ। अन्तमा, हामीले यो नयाँ पाठ स्ट्रिङलाई updated_str मा नियुक्त गरेका छौं र सन्देश बाकस ( MsgBox ) सँग हामीले परिणाम देख्नेछौं।

F5 थिच्नुहोस्।

त्यसपछि, एउटा इनपुट बक्स देखा पर्नेछ जहाँ तपाइँ नयाँ स्ट्रिङमा राख्न चाहनु भएको कुनै पनि पाठ भाग प्रविष्ट गर्न सक्नुहुन्छ।

➤ टाइप गर्नुहोस् साइकलहरू वा कुनै अन्य पाठ तपाईंले चाहानुहुन्छ र त्यसपछि ठीक छ थिच्नुहोस्।

33>

अन्तमा, तपाईंले नयाँ पाठ साइकल मा नयाँ पाठ स्ट्रिङको साथ निम्न परिणामहरू छन् कारहरूको स्थिति

थप पढ्नुहोस्: एक्सेल सूत्रमा पाठ कसरी बदल्ने (७ सजिलो तरिका)

विधि-04: एक्सेल VBA

यहाँ, हामी gmail को अंशलाई प्रतिस्थापन गर्नेछौं। नयाँ डोमेन स्तम्भमा डोमेनहरू भएका इमेल आईडीहरू, र नयाँ इमेल आईडीहरू जम्मा गर्न हामीले नयाँ स्तम्भ घुसाएका छौं; अन्तिम इमेल आईडी

35>

चरणहरू :

➤ पालना गर्नुहोस् चरण-०१ को विधि-1

➤ निम्न कोड टाइप गर्नुहोस्।

1722

यहाँ, हामीले फोर लूप प्रयोग गरेका छौं <बाट अपरेशन कार्यान्वयन गर्न 1> पङ्क्ति 4 देखि पङ्क्ति 13 IF-THEN कथनको मद्दतले, हामीले स्तम्भ D को इमेल आईडीमा “gmail” <10 समावेश छ कि छैन भनी जाँचेका छौं।> वा होइन, र यो मापदण्ड पूरा गर्नको लागि “gmail” इमेल आईडीको भागलाई स्तम्भ E<को नयाँ डोमेनहरूसँग प्रतिस्थापन गरिनेछ। 10> स्तम्भ F मा नयाँ आईडीहरू सिर्जना गर्न। अन्यथा तपाईसँग स्तम्भ F को सम्बन्धित कक्षहरूमा खाली हुनेछ।

➤ थिच्नुहोस् F5 .

त्यसपछि, तपाईंसँग अन्तिम इमेल आईडी स्तम्भमा नयाँ इमेल आईडी हुनेछ।

थप पढ्नुहोस्: स्तम्भमा पाठ फेला पार्न र प्रतिस्थापन गर्न एक्सेल VBA (२ उदाहरणहरू)

विधि-05: पाठ फेला पार्न प्रयोगकर्ता इनपुटको साथ स्ट्रिङको दायरामा पाठ बदल्नुहोस्

तपाईंले प्रतिस्थापन गर्न सक्नुहुन्छ निम्न इमेल आईडी संगनयाँ डोमेनहरू र अघिल्लो आइडीहरूमा के प्रतिस्थापन गर्ने भनेर घोषणा गर्नुहोस् एक प्रयोगकर्ता इनपुट यो विधि पछ्याएर प्रयोग गर्न सकिन्छ।

चरणहरू :

➤ फलो गर्नुहोस् चरण-01 को विधि-1

➤ निम्न कोड टाइप गर्नुहोस्।

5465

यहाँ, हामीले परिभाषित गरेका छौं partial_text स्ट्रिङ को रूपमा र त्यसपछि यसलाई एक स्ट्रिङमा तोकियो जुन प्रयोगकर्ताद्वारा इनपुट बक्स मार्फत दिइनेछ।

पछि, हामीले पङ्क्ति 4 बाट रो 13 सम्म सञ्चालन गर्न का लागि लुप प्रयोग गर्‍यौं, र प्रयोग गर्यौं। IF-THEN कथन, हामीले स्तम्भ D को इमेल आईडीमा “gmail” वा होइन। र यो मापदण्ड पूरा गर्नको लागि “gmail” इमेल आइडीको भागलाई स्तम्भ E को नयाँ डोमेनहरूसँग प्रतिस्थापन गरिनेछ। स्तम्भ F मा नयाँ आईडीहरू। अन्यथा तपाईसँग स्तम्भ F को सम्बन्धित कक्षहरूमा खाली हुनेछ।

➤ थिच्नुहोस् F5 .

त्यसपछि, तपाईंसँग एउटा इनपुट बक्स हुनेछ जहाँ तपाईंले इमेल आइडीको दायरामा खोज्न चाहनुभएको पाठ टाइप गर्नुपर्नेछ (यहाँ हामीसँग छ। प्रविष्ट गर्नुहोस् gmail ) र त्यसपछि ठीक थिच्नुहोस्।

अन्तमा, हामीले हाम्रो अपडेट गरिएको इमेल आईडीहरू फाइनलमा राख्दैछौं। इमेल आईडी स्तम्भ।

थप पढ्नुहोस्: एक्सेल VBA (म्याक्रो र प्रयोगकर्ता फारम) को साथ दायरामा पाठ फेला पार्नुहोस् र प्रतिस्थापन गर्नुहोस्

अभ्यास खण्ड

द्वारा अभ्यास गर्नका लागिआफैलाई हामीले अभ्यास नामको पानामा तल जस्तै अभ्यास खण्ड प्रदान गरेका छौं। कृपया यो आफै गर्नुहोस्।

निष्कर्ष

यस लेखमा, हामीले एक्सेल VBA प्रयोग गरेर स्ट्रिङमा पाठ प्रतिस्थापन गर्ने तरिकाहरू समावेश गर्ने प्रयास गरेका छौं। । आशा छ तपाईंले यो उपयोगी पाउनुहुनेछ। यदि तपाइँसँग कुनै सुझाव वा प्रश्नहरू छन् भने, टिप्पणी सेक्सनमा साझा गर्न नहिचकिचाउनुहोस्।

Hugh West एक उच्च अनुभवी एक्सेल प्रशिक्षक र उद्योग मा 10 वर्ष भन्दा बढी अनुभव संग विश्लेषक हो। उनले लेखा र वित्तमा स्नातक र व्यवसाय प्रशासनमा स्नातकोत्तर डिग्री हासिल गरेका छन्। Hugh को शिक्षण को लागी एक जोश छ र एक अद्वितीय शिक्षण दृष्टिकोण को विकास गरेको छ जुन पछ्याउन र बुझ्न सजिलो छ। एक्सेलको उनको विशेषज्ञ ज्ञानले विश्वभरका हजारौं विद्यार्थी र पेशेवरहरूलाई उनीहरूको सीप सुधार गर्न र उनीहरूको करियरमा उत्कृष्टता हासिल गर्न मद्दत गरेको छ। आफ्नो ब्लग मार्फत, हगले व्यक्ति र व्यवसायहरूलाई उनीहरूको पूर्ण क्षमतामा पुग्न मद्दत गर्न नि:शुल्क एक्सेल ट्यूटोरियलहरू र अनलाइन प्रशिक्षणहरू प्रदान गर्दै आफ्नो ज्ञान संसारसँग साझा गर्छन्।