हम पहले ही अपने VBA स्ट्रिंग्स और सबस्ट्रिंग फ़ंक्शंस ट्यूटोरियल में स्ट्रिंग फ़ंक्शंस के परिचय पर जा चुके हैं। अब हम यह देखने जा रहे हैं कि टेक्स्ट स्ट्रिंग्स को कैसे संयोजित किया जाए।
तार जोड़ना
आप टेक्स्ट स्ट्रिंग्स में शामिल होने के लिए VBA में & ऑपरेटर का उपयोग कर सकते हैं।
| 1 | MsgBox "मर्ज" और "पाठ" |
कोशिकाओं को जोड़ना
आप कोशिकाओं को एक साथ जोड़ भी सकते हैं। नीचे, हमारे पास A1 और B1 में टेक्स्ट स्ट्रिंग्स हैं:
निम्न कोड आपको दिखाता है कि सेल C1 में & ऑपरेटर का उपयोग करके सेल A1 और B1 से टेक्स्ट स्ट्रिंग्स को कैसे जोड़ा जाए:
| 1 | रेंज ("सी 1")। वैल्यू = रेंज ("ए 1")। वैल्यू एंड रेंज ("बी 1")। वैल्यू |
परिणाम है:
समवर्ती चर
स्ट्रिंग वेरिएबल्स का उपयोग करके दो कोशिकाओं को एक साथ जोड़ने की यह पूरी प्रक्रिया है।
| 1234567891011 | उप ConcatenateStrings ()डिम स्ट्रिंगऑन स्ट्रिंग के रूप मेंडिम स्ट्रिंगटू स्ट्रिंग के रूप मेंस्ट्रिंगऑन = रेंज ("ए 1")। मानStringTwo = रेंज ("बी 1")। मान:रेंज ("C1")। मान = StringOne और StringTwoअंत उप |
स्पेस के साथ & ऑपरेटर का उपयोग करना
जब आप उन स्थानों को शामिल करना चाहते हैं जिनका आप उपयोग करते हैं और " " के साथ संयोजन में। निम्नलिखित कोड आपको दिखाता है कि आप रिक्त स्थान कैसे शामिल करेंगे:
| 123456789101112 | उप ConcatenaatingStringsWithSpaces ()डिम स्ट्रिंगऑन स्ट्रिंग के रूप मेंडिम स्ट्रिंगटू स्ट्रिंग के रूप मेंमंद स्ट्रिंगतीन स्ट्रिंग के रूप मेंस्ट्रिंगऑन = "यह है"StringTwo = "पाठ"StringThree = StringOne और "" और StringTwoMsgBox स्ट्रिंग थ्रीअंत उप |
संदेशबॉक्स परिणाम है:
कोटेशन मार्क को जोड़ने के लिए & ऑपरेटर का उपयोग करना
मान लें कि आपकी टेक्स्ट स्ट्रिंग में उद्धरण चिह्न है, निम्न कोड आपको दिखाता है कि टेक्स्ट स्ट्रिंग के भीतर उद्धरण चिह्न कैसे शामिल किया जाए:
| 12345678910111213 | Sub ConcatenatingAQuotationMark ()डिम स्ट्रिंगऑन स्ट्रिंग के रूप मेंडिम स्ट्रिंगटू स्ट्रिंग के रूप मेंमंद स्ट्रिंगतीन स्ट्रिंग के रूप मेंStringOne = "यह उद्धरण चिह्न है"स्ट्रिंग टू = """"StringThree = StringOne और "" और StringTwoMsgBox स्ट्रिंग थ्रीअंत उप |
परिणाम है:
स्ट्रिंग्स को एक नई लाइन पर रखना
मान लें कि आपके पास पांच टेक्स्ट स्ट्रिंग हैं, आप प्रत्येक टेक्स्ट स्ट्रिंग को एक नई लाइन या पैराग्राफ पर रख सकते हैं, या तो vbNewLine, vbCrLf, vbCr या Chr फ़ंक्शन का उपयोग कर सकते हैं। निम्न कोड आपको दिखाता है कि प्रत्येक टेक्स्ट स्ट्रिंग को एक नई लाइन पर कैसे रखा जाए:
| 123456789101112131415161718 | उप PuttingEachTextStringOnANewLine ()डिम स्ट्रिंगऑन स्ट्रिंग के रूप मेंडिम स्ट्रिंगटू स्ट्रिंग के रूप मेंमंद स्ट्रिंगतीन स्ट्रिंग के रूप मेंमंद StringFour स्ट्रिंग के रूप मेंडिम स्ट्रिंगफाइव स्ट्रिंग के रूप मेंStringOne = "यह पहली स्ट्रिंग है"StringTwo = "यह दूसरी स्ट्रिंग है"StringThree = "यह तीसरी स्ट्रिंग है"StringFour = "यह चौथी स्ट्रिंग है"StringFive = "यह पांचवीं स्ट्रिंग है"MsgBox StringOne और vbNewLine और StringTwo और vbCrLf और StringThree और vbCr और StringFour और Chr(13) और StringFiveअंत उप |
परिणाम है:
