कॉन्टैटेनेशन का अर्थ है दो मूल्यों या दो तारों को एक साथ मिलाना, जैसा कि हम उपयोग करने वाले एक्सेल के समान हैं या जिसे संक्षिप्त करने के लिए एम्परसेंड ऑपरेटर के रूप में भी जाना जाता है, दो कॉन्टेनेटेट दो स्ट्रिंग्स जो हम उपयोग करते हैं और ऑपरेटर जैसे स्ट्रिंग 1 और स्ट्रिंग 2, अब याद रखने के लिए एक महत्वपूर्ण बात है और वह है & ऑपरेटर का उपयोग करते समय हमें रिक्त स्थान प्रदान करने की आवश्यकता होती है या VBA इसे लंबे समय तक मानेगा।
वीबीए कॉनसैटनेट स्ट्रिंग्स
वीबीए कॉनसेनेट उन चीजों में से एक है, जिन्हें हम दो या अधिक मूल्य वाले सेल वैल्यू को एक साथ मिलाते थे। अगर मैं सरल भाषा में कहूं तो यह संयोजन है, इसमें दो या दो से अधिक मूल्यों को एक साथ जोड़ा जाना पूर्ण मूल्य है।
हमारे पास एक्सेल में CONCATENATE नामक एक फ़ंक्शन है, जो एक साथ दो या अधिक मानों या दो या अधिक सेल मानों के संयोजन को एक साथ करेगा।
लेकिन VBA में, हमारे पास दो या अधिक मानों को एक साथ जोड़ने के लिए कोई अंतर्निहित कार्य नहीं है। वास्तव में, हमें वर्कशीट फ़ंक्शन क्लास को एक्सेस करने के लिए VBA CONCATENATE फ़ंक्शन को वर्कशीट फ़ंक्शन के रूप में एक्सेस करने की आवश्यकता नहीं है।
वीबीए में स्ट्रैटनैट कैसे करें?
यदि हमारे पास किसी भी प्रकार का बिल्ट-इन फंक्शन नहीं है, तो मूल्यों को समेटने के लिए और यहाँ तक कि वर्कशीट फ़ंक्शन VBA के साथ एकीकृत नहीं है। अब चुनौती है, हम मूल्यों को कैसे जोड़ेंगे?
भले ही कोई अंतर्निहित कार्य नहीं हैं, फिर भी हम वीबीए में "एम्परसेंड" (&) प्रतीक का उपयोग करके जोड़ सकते हैं।
यदि आप नियमित रूप से हमारे पोस्ट का अनुसरण कर रहे हैं, तो हम अक्सर हमारे कोडिंग में ampersand (&) प्रतीक का उपयोग करते हैं।
उदाहरण के लिए, यदि आपका पहला नाम और अंतिम नाम अलग-अलग है, तो हम इन दोनों को मिला सकते हैं और इसे पूर्ण नाम के रूप में बना सकते हैं। अपने दम पर VBA मैक्रो कोड लिखने के लिए नीचे दिए गए चरणों का पालन करें।
चरण 1: विज़ुअल बेसिक एडिटर पर जाएँ और VBA उप प्रक्रिया बनाएँ।
चरण 2: स्ट्रिंग के रूप में तीन चर को परिभाषित करें ।
कोड:
Sub Concatenate_Example () डिम First_Name स्ट्रिंग के रूप में मंद Last_Name स्ट्रिंग के रूप में मंद Full_Name Asring उप
चरण 3: अब चर का पहला नाम और अंतिम नाम निर्दिष्ट करें ।
कोड:
Sub Concatenate_Example () डिम First_Name स्ट्रिंग के रूप में मंद Last_Name स्ट्रिंग के रूप में Dim Full_Name स्ट्रिंग के रूप में First_Name = "सचिन" Last_Name = "तेंदुलकर" अंतिम उप
चरण 4: अब इन दो नामों को वेरिएबल Full_Name में एम्परसेंड चर का उपयोग करके संयोजित करें।
कोड:
उप सम्मान
चरण 5: अब संदेश बॉक्स में चर Full_Name का मान दिखाएँ ।
कोड:
उप सम्मान
अब कोड चलाएं; हमें संदेश बॉक्स में पूरा नाम मिलेगा।
इस पूर्ण नाम के साथ समस्या यह है कि हमने पहला नाम और अंतिम नाम विभाजक वर्ण स्थान नहीं जोड़ा है, जबकि पहले नाम और अंतिम नाम को मिलाकर, अंतरिक्ष वर्ण को भी मिलाते हैं।
कोड:
उप सम्मान
यह अब एक उचित पूर्ण नाम देगा।
इस तरह एम्परसेंड प्रतीक का उपयोग करके, हम मूल्यों को संक्षिप्त कर सकते हैं। अब हम इसे पूरा नाम बनाने के लिए First Name & Last Name को हल करने की वर्कशीट समस्या को हल करेंगे।
चूंकि हमें कई नामों को संयोजित करने की आवश्यकता है, इसलिए हमें पहले नाम और अंतिम नाम को संयोजित करने के लिए छोरों का उपयोग करने की आवश्यकता है। नीचे दिया गया कोड आपके लिए काम करेगा।
कोड:
Sub Concatenate_Example1 () डिम i As इंटेगर फॉर i = 2 टू 9 सेल्स (i, 3) .Value = सेल्स (i, 1) और "" एंड सेल्स (i, 2) अगला i एंड सब
यह हमारे VBA कॉन्कैटनेट फ़ंक्शन की तरह पहले नाम और अंतिम नाम को मिलाएगा।
एम्परसैंड वीबीए कॉन्टेनेशन में आम गलती
यदि आप मेरे कोड को नोटिस करते हैं, तो मैंने एक एम्परसेंड प्रतीक के बीच अंतरिक्ष वर्ण जोड़ा है। VBA प्रोग्रामिंग की प्रकृति के कारण यह आवश्यक है।
हम मूल्यों और एम्परसेंड प्रतीकों को एक साथ जोड़ नहीं सकते हैं; अन्यथा, हम नीचे की तरह कंपाइल एरर प्राप्त करेंगे।
जोबा फंक्शन का उपयोग करते हुए VBA कॉन्टेनेट
VBA में, हम मूल्यों को मिलाने के लिए JOIN फ़ंक्शन का उपयोग कर सकते हैं। सबसे पहले, VBA JOIN फ़ंक्शन सिंटैक्स देखें।
- सरणी कुछ भी नहीं है, लेकिन एक ऐसा सरणी है जो हमारे मूल्यों-उदाहरण के लिए रखती है, पहला नाम और अंतिम नाम दोनों।
- सीमांकक कुछ भी नहीं है, लेकिन प्रत्येक सरणी मान के बीच विभाजक क्या है, इस मामले में, अंतरिक्ष चरित्र।
नीचे दिया गया कोड उसी का उदाहरण दिखाएगा।
कोड:
Sub Concatenate_Example2 () वेरिएंट के रूप में मंद MyValues पूर्ण MyValues = Array ("सचिन", "तेंदुलकर") के रूप में Full_Name = Full_Name = Join (MyValues, "") MsgBox Full_Name End Sub
