विषयसूची
एक्सेल में VBA के साथ काम करते समय, हमें अक्सर वर्कशीट में स्ट्रिंग (एस) और वेरिएबल (एस) को जोड़ना पड़ता है। छात्रों के परिणामों को संक्षेप में प्रस्तुत करने से लेकर एक जटिल व्यवसाय का विश्लेषण करने तक, हमारे कार्यों में लगभग सभी क्षेत्रों में श्रृंखलाबद्ध स्ट्रिंग (ओं) और चर (ओं) का व्यापक रूप से उपयोग किया जाता है। इस लेख में, मैं आपको दिखाऊंगा कि कैसे आप एक्सेल में VBA के साथ वर्कशीट में स्ट्रिंग (एस) और वेरिएबल (एस) को जोड़ सकते हैं। मैं चीजों को उचित उदाहरणों और दृष्टांतों के साथ समझाऊंगा। अभ्यास कार्यपुस्तिका डाउनलोड करें
इस लेख को पढ़ते समय अभ्यास करने के लिए इस अभ्यास कार्यपुस्तिका को डाउनलोड करें।
स्ट्रिंग और वेरिएबल.xlsm को जोड़ें
एक्सेल वीबीए (स्टेप बाय स्टेप एनालिसिस) में स्ट्रिंग (एस) और वेरिएबल (एस) को जोड़ना
सबसे पहले, देखते हैं कि हम स्ट्रिंग (एस) को कैसे जोड़ सकते हैं और चर (ओं) में VBA चरण दर चरण।
⧪ श्रृंखलाबद्ध स्ट्रिंग:
VBA , आप अंकगणितीय जोड़ (+) प्रतीक और ampersand (& ) प्रतीक दोनों का उपयोग कर सकते हैं।
उदाहरण के लिए, जोड़ने के लिए स्ट्रिंग्स "ग्रेट एक्सपेक्टेशंस" और "ए टेल ऑफ़ टू सिटिज़" कॉमा के साथ, आप इसका उपयोग कर सकते हैं:
9079
या,
2820
ऊपर दिए गए किसी भी कोड को रन करें। यह संबंधित आउटपुट प्रदर्शित करेगा, ग्रेट एक्सपेक्टेशंस,दो शहरों की कहानी ।
⧪ श्रृंखलाबद्ध चर (ओं)
यदि सभी चर में स्ट्रिंग मान हैं, तो आप अंकगणितीय जोड़ (+) प्रतीक और एम्परसैंड (&) प्रतीक दोनों का उपयोग कर सकते हैं।
लेकिन यदि वे नहीं करते हैं, तो आप उपयोग कर सकते हैं केवल एंपरसैंड (&) को जोड़ने के लिए प्रतीक।
उदाहरण के लिए, चलो दो चर हैं, A और B ।
A में एक स्ट्रिंग है, "दो शहरों की कहानी" , और B में एक और स्ट्रिंग है, "प्यार के चालीस नियम" .
आप दोनों को जोड़ने के लिए जोड़ (+) प्रतीक और एंपरसैंड (&) प्रतीक दोनों का उपयोग कर सकते हैं।
8283
या,
4158
दोनों मामलों में, वे श्रृंखलाबद्ध स्ट्रिंग वापस कर देंगे।
<0
लेकिन अगर ए एक स्ट्रिंग है ( "दो शहरों की कहानी" ) और बी एक पूर्णांक है ( 27 ), आपको जोड़ने के लिए ampersand (&) प्रतीक का उपयोग करना चाहिए।
6372
यह श्रृंखलाबद्ध आउटपुट लौटाएगा .
Concat के उदाहरण एक्सेल वीबीए (मैक्रो, यूडीएफ और यूजरफॉर्म को शामिल करते हुए) में स्ट्रिंग्स और वेरिएबल्स को सक्रिय करें
हमने एक्सेल में वीबीए के साथ स्ट्रिंग्स और वेरिएबल्स को जोड़ना सीखा है . इस बार हम VBA के साथ श्रृंखलाबद्ध स्ट्रिंग (ओं) और चर (ओं) से जुड़े कुछ उदाहरणों का पता लगाएंगे। एक्सेल VBA में वेरिएबल
हमने सीखा है VBA के साथ तार और चर को जोड़ना। इस बार हम वर्कशीट में एकाधिक कॉलम के स्ट्रिंग्स और वेरिएबल्स को जोड़ने के लिए मैक्रो विकसित करेंगे।
यहां हमें पुस्तकों के नाम के साथ एक डेटा सेट मिला है, लेखक , और मार्टिन बुकस्टोर नामक एक किताबों की दुकान की कीमत ।
आइए एक मैक्रो<2 विकसित करें> सेल F4 में डेटा सेट B4:D14 के कॉलम 1>1, 2, और 3 को जोड़ने के लिए।
VBA कोड होगा:
⧭ VBA कोड:
9356
⧭ आउटपुट :
इस कोड को रन करें। आपको 3 कॉलम F4:F14 की श्रेणी में मिलेंगे।
और पढ़ें: मैक्रो टू एक्सेल में एकाधिक कॉलम को जोड़ना (यूडीएफ और यूजरफॉर्म के साथ)
उदाहरण 2: एक्सेल वीबीए में स्ट्रिंग (ओं) और चर (एस) को जोड़ने के लिए उपयोगकर्ता-परिभाषित फ़ंक्शन बनाना
हमने डेटा सेट के कई कॉलम को जोड़ने के लिए मैक्रो विकसित करना सीख लिया है। इस बार हम एक्सेल में स्ट्रिंग्स या वेरिएबल्स को जोड़ने के लिए एक यूजर-डिफाइंड फंक्शन बनाएंगे।
पूरा VBA कोड होगा:
⧭ VBA कोड:
6984
⧭ आउटपुट:
वह कॉलम चुनें जहां आप जोड़ना चाहते हैं श्रेणी और इस सूत्र को दर्ज करें:
=ConcatenateValues("She","H. Rider Haggard",", ") यह आउटपुट के रूप में शी, एच. राइडर हैगार्ड लौटाएगा।<3
फिर से, सूत्र दर्ज करें:
=ConcatenateValues(B4:B14,30,", ") [ सरणी सूत्र । इसलिए भूले नहीं CTRL + SHIFT + ENTER दबाएं जब तक कि आप Office 365 में न हों।]
यह B4:B14 श्रेणी के सभी मानों के साथ 30 को जोड़ देगा .
अंत में, दर्ज करें:
=ConcatenateValues(B4:B14,C4:C14,", ") [फिर से सरणी सूत्र । इसलिए CTRL + SHIFT + ENTER दबाना न भूलें जब तक कि आप Office 365 में न हों।]
यह श्रेणी B4 के सभी मानों को जोड़ देगा: B14 C4:C14 के साथ।
और पढ़ें: एक्सेल में कैसे कनेक्ट करें (3 उपयुक्त तरीके) <2
समान रीडिंग:
- एक्सेल में दो या दो से अधिक सेल के टेक्स्ट को एक सेल में कैसे संयोजित करें (5 विधियाँ)
- एक्सेल में पंक्तियों को एक सेल में मिलाएं
- एक्सेल में संख्याओं को जोड़ना (4 त्वरित सूत्र)
- टेक्स्ट को मिलाएं एक्सेल में (8 उपयुक्त तरीके)
- एक्सेल में एपोस्ट्रोफ को कैसे जोड़ा जाए (6 आसान तरीके)
उदाहरण 3: एक विकसित करना एक्सेल वीबीए में एक अलग वर्कशीट में स्ट्रिंग (एस) और वेरिएबल (एस) को जोड़ने के लिए यूजरफॉर्म
हमने एक मैक्रो और एक यूजर-डिफाइंड विकसित करना सीखा है समारोह तार और मूल्यों को जोड़ने के लिए। अंत में, हम वांछित वर्कशीट के वांछित स्थान पर स्ट्रिंग्स और मानों को जोड़ने के लिए एक UserForm विकसित करेंगे।
⧪ चरण 1: UserForm सम्मिलित करना
इन्सर्ट > VBA टूलबार में UserForm विकल्प एक नया UserForm डालने के लिए।
⧪ चरण 2: खींचना करने के लिए उपकरणUserForm
A UserForm जिसे UserForm1 कहा जाता है, एक टूलबॉक्स जिसे कंट्रोल कहा जाता है, के साथ खोला जाएगा।
अपने माउस को ई टूलबॉक्स पर ले जाएं और UserForm में 2 लिस्टबॉक्स, 5 टेक्स्टबॉक्स, 7 लेबल और 1 कॉमनबटन खींचें।
लेबल के डिस्प्ले को बदलें जैसा कि चित्र में दिखाया गया है।
इसी तरह, कमांड बटन के डिस्प्ले को OK में बदलें।
⧪ चरण 3: टेक्स्टबॉक्स1 के लिए कोड लिखना
टेक्स्टबॉक्स1 पर डबल क्लिक करें। एक निजी उपप्रक्रिया जिसे टेक्स्टबॉक्स1_चेंज कहा जाता है, खुल जाएगा। वहां निम्नलिखित कोड दर्ज करें।
3932
⧪ चरण 4: TextBox3 के लिए कोड लिखना
इसी तरह, पर डबल क्लिक करें टेक्स्टबॉक्स3 . दूसरा निजी उपप्रक्रिया जिसे टेक्स्टबॉक्स3_चेंज कहा जाता है, खुल जाएगा। वहां निम्नलिखित कोड दर्ज करें।
2188
⧪ चरण 5: TextBox4 के लिए कोड लिखना
साथ ही, पर डबल क्लिक करें टेक्स्टबॉक्स3 . दूसरा निजी उपप्रक्रिया जिसे टेक्स्टबॉक्स3_चेंज कहा जाता है, खुल जाएगा। वहां निम्नलिखित कोड दर्ज करें।
Private Sub TextBox1_Change() On Error GoTo Task Range(UserForm1.TextBox1.Text).Select UserForm1.ListBox1.Clear For i = 1 To Range(UserForm1.TextBox1.Text).Columns.Count UserForm1.ListBox1.AddItem Range(UserForm1.TextBox1.Text).Cells(1, i) Next i Exit Sub Task: x = 5 End Sub 
⧪ चरण 6: ListBox2 के लिए कोड लिखना
फिर ListBox2 पर डबल क्लिक करें । जब निजी उपप्रक्रिया जिसे ListBox2_Click कहा जाता है, खुलता है, तो इस कोड को वहां दर्ज करें।
1152
⧪ चरण 7: लेखन कोड CommandButton1
के लिए भी, CommandButton1 पर डबल-क्लिक करें। निजी उपप्रक्रिया के बाद कमांडबटन1_चेंज कहा जाता है खुलता है, वहां निम्न कोड डालें।
8856
⧪ चरण 7: UserForm चलाने के लिए कोड लिखना
अब अंतिम चरण है। VBA टूलबार से एक नया मॉड्यूल डालें और निम्नलिखित कोड डालें।
8899
⧪ चरण 8: दौड़ना UserForm
आपका UserForm अब उपयोग के लिए तैयार है। इसे चलाने के लिए, वर्कशीट से डेटा सेट का चयन करें ( हेडर सहित) और मैक्रो चलाएं जिसे Run_UserForm कहा जाता है।
UserForm सभी विकल्पों के साथ लोड होगा। चयनित श्रेणी का पता टेक्स्टबॉक्स1 ( बी3:डी4 यहां) पर दिखाया जाएगा। आप चाहें तो इसे बदल सकते हैं। वर्कशीट में चयनित रेंज बदल जाएगी।
उन कॉलमों का चयन करें जिन्हें आप कॉलम से कॉन्सैट लिस्टबॉक्स से जोड़ना चाहते हैं। यहां मैंने पुस्तक का नाम और मूल्य चुना है।
विभाजक दर्ज करें। यहां मैंने अल्पविराम ( , ) प्रविष्ट किया है।> लिस्टबॉक्स। यहां मैंने शीट3 दर्ज किया है।
(जैसे ही आप शीट का चयन करेंगे, यह सक्रिय हो जाएगी, भले ही यह सक्रिय न हो।)
फिर डालें आउटपुट स्थान । यह श्रृंखलाबद्ध श्रेणी के पहले सेल का सेल संदर्भ है। यहाँ मैंने B3 रखा है।
(जिस क्षण आप आउटपुट स्थान दर्ज करते हैं, आउटपुट रेंज का चयन किया जाएगा)।
और अंत में , उसे दर्ज करें आउटपुट हैडर का नाम (आउटपुट रेंज का हैडर)। यहां मैंने कंटेनेटेड रेंज डाल दिया है।
(जैसे ही आप आउटपुट हैडर डालते हैं, आउटपुट कॉलम का हेडर सेट हो जाएगा।)
ओके क्लिक करें। आपको वांछित स्थान पर वांछित आउटपुट मिलेगा।
और पढ़ें: VBA का उपयोग करके स्ट्रिंग और पूर्णांक को कैसे जोड़ा जाए
निष्कर्ष
तो ये कुछ उदाहरण हैं जिनमें आप एक्सेल VBA का उपयोग तार और चर को जोड़ने के लिए कर सकते हैं। आशा है कि उदाहरणों ने आपके लिए सब कुछ बहुत स्पष्ट कर दिया है। क्या आपका कोई प्रश्न है? बेझिझक हमसे पूछें। और अधिक पोस्ट और अपडेट के लिए हमारी साइट ExcelWIKI पर जाना न भूलें।
