VBA बदलें स्ट्रिंग - स्ट्रिंग को VBA का उपयोग करके टेक्स्ट को कैसे बदलें?

एक्सेल VBA प्रतिस्थापन स्ट्रिंग

बदलें दोनों वर्कशीट फ़ंक्शन और साथ ही VBA फ़ंक्शन है। यह फ़ंक्शन हमें विशेष शब्द को स्ट्रिंग से दूसरे स्ट्रिंग से बदलने में मदद करता है। यह VBA में सब्स्टिट्यूट फ़ंक्शन के समान काम करता है।

परीक्षण स्ट्रिंग या पाठ डेटा मानों के साथ काम करते समय, किसी चीज़ को किसी अन्य चीज़ के साथ बदलना या प्रतिस्थापित करना एक स्पष्ट बात है, दो सेल डेटा को एक में जोड़ना या एक सेल डेटा को कई चीज़ों में विभाजित करना। ये सभी सामान्य कार्य हैं जो हम अपने कार्यस्थल पर दिन में करते हैं।

तो, हम एक शब्द को दूसरे शब्द के साथ स्ट्रिंग में कैसे बदलें? उदाहरण के लिए, यदि स्ट्रिंग "भारत एक विकासशील देश है और एशियाई देश में भारत" है, तो हमें "भारत" शब्द को बदलने और "भारथ" में बदलने की आवश्यकता है।

यह बदलें फ़ंक्शन का उपयोग करके संभव है। इस लेख में, हम आपको दिखाएंगे कि वीबीए कोडिंग में तारों को कैसे बदलना है।

फ़ंक्शन बदलें

  • अभिव्यक्ति: यह और कुछ नहीं बल्कि मूल स्ट्रिंग मूल्य है जिसमें से हम किसी चीज़ को किसी चीज़ से बदलने की कोशिश कर रहे हैं। उदाहरण के लिए, नीचे अभिव्यक्ति स्ट्रिंग है - "भारत एक विकासशील देश है और एशियाई देश में भारत है।"
  • स्ट्रिंग ढूंढें: वह स्ट्रिंग क्या है जिसे हम बदलने की कोशिश कर रहे हैं। उदाहरण के लिए, अभिव्यक्ति स्ट्रिंग में, हम "भारत" शब्द को बदलने की कोशिश कर रहे हैं।
  • स्ट्रिंग: स्थानापन्न स्ट्रिंग हम जगह क्या है ढूँढें स्ट्रिंग के साथ? इसलिए, इस मामले में, हम "भारत" शब्द को "भरत" से बदलने की कोशिश कर रहे हैं।
  • (प्रारंभ): यह एक वैकल्पिक पैरामीटर है। उपरोक्त स्ट्रिंग (एक्सप्रेशन) में, हमारे पास दो शब्द हैं, "भारत", इसलिए स्टिंग की किस स्थिति से , हमें प्रतिस्थापन प्रक्रिया शुरू करने की आवश्यकता है। उदाहरण के लिए, यदि हम 2 कहते हैं, तो यह "भारत" शब्द को दूसरी स्थिति से बदलना शुरू कर देगा।
  • (गणना): यदि अभिव्यक्ति में कई बार स्ट्रिंग का पता लगाएं , तो हमें कितने शब्दों को बदलने की आवश्यकता है।

उदाहरण के लिए, यदि शब्द "भारत" 5 बार दिखाई देता है और यदि आप 3 के रूप में गिनती की आपूर्ति करते हैं, तो यह केवल पहले 3 "भारत" शब्दों को बदल देगा।

स्ट्रिंग को VBA का उपयोग करके टेक्स्ट को कैसे बदलें?

उदाहरण 1

अब हम "भारत" शब्द को "भारत" से नीचे के स्ट्रिंग मान से बदलने का प्रयास करेंगे।

"भारत एक विकासशील देश है और एशियाई देश में भारत है।"

सबसे पहले, एक्सेल मैक्रो प्रक्रिया अभी शुरू करें।

कोड:

उप प्रतिस्थापन_ नमूना () उप उप

स्ट्रिंग के रूप में VBA चर को परिभाषित करें।

कोड:

सब रिप्लेस_एक्सप्लिमेंट () डिम न्यूस्ट्रिंग इन स्ट्रिंग एंड सब

इस चर में, हम "भरत" शब्द के साथ "भारत" शब्द को बदलने के बाद एक नया स्ट्रिंग मान दिखाएंगे। इस चर के लिए, बदलें फ़ंक्शन खोलें।

इस फ़ंक्शन का पहला तर्क है "अभिव्यक्ति", यानी, जिस स्ट्रिंग से हम एक शब्द को बदलने की कोशिश कर रहे हैं, इसलिए स्ट्रिंग को कॉपी और पेस्ट करें "भारत एक विकासशील देश है और एशियाई देश में भारत है।"

अगला तर्क है "स्ट्रिंग का पता लगाएं", अर्थात, हमें कौन सा शब्द बदलने की आवश्यकता है, अर्थात, "भारत।"

अगला तर्क है, "स्ट्रिंग को बदलें", अर्थात, किस स्ट्रिंग के साथ हमें "भारत", अर्थात, "भारथ" शब्द को बदलने की आवश्यकता है।

ठीक है, अब, शेष तर्कों की उपेक्षा करें। अब संदेश बॉक्स में परिणाम दिखाएं।

कोड:

उप प्रतिस्थापन_ प्रदर्शन () स्ट्रिंग न्यूस्ट्रिंग के रूप में डिम न्यूस्ट्रिंग = रिप्लेस ("भारत एक विकासशील देश है और भारत एशियाई देश है", "भारत", "भारत") MsgBox NewString End Sub

आइए F5 कुंजी या मैन्युअल का उपयोग करके कोड चलाएं और नया स्ट्रिंग परिणाम देखें।

ठीक है, उपरोक्त परिणाम को देखें। जहाँ भी हमारे पास "भारत" शब्द था, उसे "भारथ" शब्द से बदल दिया गया है।

उदाहरण # 2

अब हम देखेंगे कि चर के साथ समान कोड का उपयोग कैसे करें। नीचे दिए गए कोड को देखें।

कोड:

Sub Replace_Example1() Dim NewString As String Dim MyString As String Dim FindString As String Dim ReplaceString As String MyString = "India is a developing country and India is the Asian Country" FindString = "India" ReplaceString = "Bharath" NewString = Replace(MyString, FindString, ReplaceString) MsgBox NewString End Sub

In the above code, I have declared an extra three variables.

Dim MyString As String Dim FindString As String Dim ReplaceString As String

For these variables, I have assigned values. Instead of supplying the Expression String, Find String, and Replace String, we will supply only variable to the Replace function.

This code also gives the same result, but the only difference is we have used variables instead of direct supply of values to the function.

Example #3

Assume you want to replace the word “India” only from the second position, then we need to use the Replace function parameter (“Start”). Look at the below code for your information.

Code:

Sub Replace_Example2() Dim NewString As String Dim MyString As String Dim FindString As String Dim ReplaceString As String MyString = "India is a developing country and India is the Asian Country" FindString = "India" ReplaceString = "Bharath" NewString = Replace(MyString, FindString, ReplaceString, Start:=34) MsgBox NewString End Sub

Only one extra thing we have added from the previous code is the “Start” parameter as 34. Now run the code and see the result.

Now we can see only string after the 34th character of the string with “India” replacing with “Bharath.”

Example #4

Now for an example, if we want to replace only the first occurrence of the word “India” with “Bharath,” then we need to use the (“Count”) parameter of the Replace function.

Below is the code for you.

Code:

Sub Replace_Example3() Dim NewString As String Dim MyString As String Dim FindString As String Dim ReplaceString As String MyString = "India is a developing country and India is the Asian Country" FindString = "India" ReplaceString = "Bharath" NewString = Replace(MyString, FindString, ReplaceString, Count:=1) MsgBox NewString End Sub

Run the code manually or through the F5 key and see the result.

As you can see above, it has replaced only the first occurrence of the word “India” to “Bharath,” and the second instance remains the same.

Things to Remember Here

  • प्रतिस्थापित VBA में एक स्ट्रिंग फ़ंक्शन परिवार है।
  • VBA में, प्रतिस्थापित फ़ंक्शन बदले हुए स्ट्रिंग के साथ सभी दिए गए शब्दों को बदल देता है यदि गिनती पैरामीटर निर्दिष्ट नहीं है।
  • प्रारंभ पैरामीटर आपूर्ति किए गए वर्णों की संख्या को हटा देगा और शेष परिणाम दिखाएगा।

दिलचस्प लेख...