सामग्री सारणी
एक्सेलमध्ये VBA सोबत काम करत असताना, आम्हाला अनेकदा वर्कशीटमध्ये स्ट्रिंग (s) आणि व्हेरिएबल (s) एकत्र करावे लागतात. विद्यार्थ्यांच्या निकालांचा सारांश देण्यापासून ते जटिल व्यवसायाचे विश्लेषण करण्यापर्यंत, आमच्या कामात जवळजवळ सर्व क्षेत्रांमध्ये एकत्रित स्ट्रिंग (से) आणि व्हेरिएबल (से) मोठ्या प्रमाणावर वापरले जातात. या लेखात, मी तुम्हाला एक्सेलमधील VBA सोबत वर्कशीटमध्ये स्ट्रिंग (स) आणि व्हेरिएबल (चे) कसे एकत्र करू शकता ते दाखवीन. मी योग्य उदाहरणे आणि उदाहरणांसह गोष्टी समजावून सांगेन.
एक्सेल व्हीबीए (क्विक व्ह्यू) मधील कॉन्कॅटनेट स्ट्रिंग (से) आणि व्हेरिएबल (चे)
सराव वर्कबुक डाउनलोड करा
तुम्ही हा लेख वाचत असताना व्यायाम करण्यासाठी हे सराव वर्कबुक डाउनलोड करा.
Concatenate String and Variable.xlsm<एक्सेल व्हीबीए (स्टेप बाय स्टेप अॅनालिसिस) मधील 0>कॉन्केटनेट स्ट्रिंग (से) आणि व्हेरिएबल (से)
सर्व प्रथम, आपण स्ट्रिंग (से) कसे एकत्र करू शकतो ते पाहूया. आणि VBA स्टेप बाय स्टेप मधील व्हेरिएबल 1>VBA , तुम्ही अंकगणित अतिरिक्त (+) चिन्ह आणि अँपरसँड (& ) चिन्ह दोन्ही वापरू शकता.
उदाहरणार्थ, एकत्रित करण्यासाठी “महान अपेक्षा” आणि “अ टेल ऑफ टू सिटीज” या स्ट्रिंग्स स्वल्पविराम सह, तुम्ही हे वापरू शकता:
6010
किंवा,
5318
वरील कोणताही कोड चालवा. हे एकत्रित आउटपुट प्रदर्शित करेल, मोठ्या अपेक्षा,दोन शहरांची कहाणी .
⧪ एकत्रित व्हेरिएबल (स)
सर्व व्हेरिएबलमध्ये स्ट्रिंग व्हॅल्यू असल्यास, मग तुम्ही अंकगणित अतिरिक्त (+) चिन्ह आणि अँपरसँड (&) चिन्ह वापरू शकता.
परंतु ते नसल्यास, तुम्ही वापरू शकता जोडण्यासाठी फक्त अँपरसँड (&) चिन्ह.
उदाहरणार्थ, दोन व्हेरिएबल्स घेऊ, A आणि B .
A मध्ये एक स्ट्रिंग आहे, “अ टेल ऑफ टू सिटीज” , आणि B मध्ये दुसरी स्ट्रिंग आहे, “प्रेमाचे चाळीस नियम” .
त्यांना जोडण्यासाठी तुम्ही अॅडिशन (+) चिन्ह आणि अँपरसँड (&) चिन्ह दोन्ही वापरू शकता.
8290
किंवा,
5413
दोन्ही प्रकरणांमध्ये, ते एकत्रित स्ट्रिंग परत करतील.
<0
परंतु जर A ही स्ट्रिंग असेल ( “अ टेल ऑफ टू सिटीज” ) आणि B पूर्णांक असेल ( 27 ), तुम्हाला जोडण्यासाठी अँपरसँड (&) चिन्ह वापरणे आवश्यक आहे.
6493
हे एकत्रित आउटपुट परत करेल .
कॉंकॅटची उदाहरणे एक्सेल VBA मधील स्ट्रिंग्स आणि व्हेरिएबल्स (मॅक्रो, यूडीएफ आणि वापरकर्ता फॉर्मचा समावेश आहे)
आम्ही एक्सेलमध्ये VBA सह स्ट्रिंग (से) आणि व्हेरिएबल (चे) एकत्र करणे शिकलो आहोत. . यावेळी आम्ही VBA सह एकत्रित स्ट्रिंग (से) आणि व्हेरिएबल (चे) समाविष्ट असलेली काही उदाहरणे एक्सप्लोर करू.
उदाहरण 1: स्ट्रिंग (से) जोडण्यासाठी मॅक्रो विकसित करणे आणि एक्सेल व्हीबीए मधील व्हेरिएबल
आम्ही शिकलो आहोत VBA सह स्ट्रिंग्स आणि व्हेरिएबल्स एकत्र करा. यावेळी आम्ही वर्कशीटमध्ये अनेक स्तंभांच्या स्ट्रिंग्स आणि व्हेरिएबल्स एकत्र करण्यासाठी मॅक्रो विकसित करू.
येथे आमच्याकडे पुस्तकांची नावे असलेला डेटा सेट आहे, लेखक , आणि किंमत मार्टिन बुकस्टोअर नावाच्या पुस्तकांच्या दुकानाच्या काही पुस्तकांच्या.
चला एक मॅक्रो<2 विकसित करूया> सेल F4 मध्ये डेटा सेटचे 1, 2, आणि 3 स्तंभ जोडण्यासाठी.
VBA कोड असेल:
⧭ VBA कोड:
9467
⧭ आउटपुट :
हा कोड चालवा. तुम्हाला F4:F14.
अधिक वाचा: मॅक्रो ते एक्सेलमध्ये एकाधिक स्तंभ एकत्र करा (UDF आणि वापरकर्ता फॉर्मसह)
उदाहरण 2: एक्सेल VBA मध्ये स्ट्रिंग (से) आणि व्हेरिएबल (से) एकत्र करण्यासाठी वापरकर्ता-परिभाषित कार्य तयार करणे
डेटा सेटचे अनेक कॉलम एकत्र करण्यासाठी आम्ही मॅक्रो विकसित करायला शिकलो आहोत. यावेळी आम्ही एक्सेलमध्ये स्ट्रिंग्स किंवा व्हेरिएबल्स एकत्र करण्यासाठी वापरकर्ता-परिभाषित कार्य तयार करू.
संपूर्ण VBA कोड असेल:
⧭ VBA कोड:
6589
⧭ आउटपुट:
तुम्हाला जिथे जोडायचे आहे तो स्तंभ निवडा श्रेणी आणि हे सूत्र प्रविष्ट करा:
=ConcatenateValues("She","H. Rider Haggard",", ") ते शी, एच. रायडर हॅगार्ड आउटपुट म्हणून परत येईल.<3
पुन्हा, सूत्र प्रविष्ट करा:
=ConcatenateValues(B4:B14,30,", ") [ अॅरे फॉर्म्युला . त्यामुळे विसरू नकाजोपर्यंत तुम्ही Office 365 मध्ये नसता तोपर्यंत CTRL + SHIFT + ENTER दाबा.]
ते 30 श्रेणीच्या सर्व मूल्यांसह एकत्रित करेल B4:B14 .
शेवटी, प्रविष्ट करा:
=ConcatenateValues(B4:B14,C4:C14,", ") [पुन्हा अॅरे फॉर्म्युला . त्यामुळे तुम्ही Office 365 मध्ये असल्याशिवाय CTRL + SHIFT + ENTER दाबायला विसरू नका.]
हे श्रेणीतील सर्व मूल्ये एकत्रित करेल B4: B14 यापैकी C4:C14 .
अधिक वाचा: Excel मध्ये कसे एकत्र करावे (3 योग्य मार्ग) <2
समान वाचन:
- एक्सेलमधील एका सेलमध्ये दोन किंवा अधिक सेलमधील मजकूर कसा एकत्र करायचा (5 पद्धती)
- एक्सेलमधील एका सेलमध्ये पंक्ती एकत्र करा
- एक्सेलमध्ये क्रमांक एकत्र करा (4 द्रुत सूत्र)
- मजकूर एकत्र करा एक्सेलमध्ये (8 योग्य मार्ग)
- एक्सेलमध्ये अपोस्ट्रॉफी कसे जोडायचे (6 सोपे मार्ग)
उदाहरण 3: विकसित करणे एक्सेल VBA मधील वेगळ्या वर्कशीटमध्ये स्ट्रिंग (से) आणि व्हेरिएबल (से) एकत्र करण्यासाठी वापरकर्ता फॉर्म
आम्ही मॅक्रो आणि वापरकर्ता-परिभाषित विकसित करणे शिकलो आहोत फंक्शन स्ट्रिंग आणि व्हॅल्यू एकत्र करण्यासाठी. शेवटी, इच्छित वर्कशीटच्या इच्छित स्थानावर स्ट्रिंग्स आणि व्हॅल्यू एकत्र करण्यासाठी आम्ही UserForm विकसित करू.
⧪ पायरी 1: UserForm घालणे
घाला > वर जा; नवीन UserForm घालण्यासाठी VBA टूलबारमधील UserForm पर्याय.
⧪ पायरी 2: ड्रॅगिंग करण्यासाठी साधने UserForm1 नावाचा UserForm
A UserForm Control नावाच्या टूलबॉक्स सह उघडला जाईल.
तुमचा माऊस या ई टूलबॉक्सवर हलवा आणि वापरकर्ता फॉर्म मध्ये 2 लिस्टबॉक्स, 5 टेक्स्टबॉक्स, 7 लेबल्स आणि 1 कॉमन बटणे ड्रॅग करा.
लेबलचे डिस्प्ले बदला आकृतीत दाखवल्याप्रमाणे.
तसेच, कमांड बटन चे डिस्प्ले ओके वर बदला.
⧪ पायरी 3: TextBox1 साठी लेखन कोड
TextBox1 वर डबल क्लिक करा. टेक्स्टबॉक्स1_बदला नावाची खाजगी उपप्रक्रिया उघडेल. तेथे खालील कोड प्रविष्ट करा.
9040
⧪ पायरी 4: टेक्स्टबॉक्स3 साठी कोड लिहिणे
तसेच, वर डबल क्लिक करा. टेक्स्टबॉक्स3 . दुसरी खाजगी उपप्रक्रिया नावाची TextBox3_Change ओपन होईल. तेथे खालील कोड प्रविष्ट करा.
1825
⧪ पायरी 5: टेक्स्टबॉक्स 4 साठी कोड लिहिणे
तसेच, वर डबल क्लिक करा. टेक्स्टबॉक्स3 . दुसरी खाजगी उपप्रक्रिया नावाची TextBox3_Change ओपन होईल. तेथे खालील कोड प्रविष्ट करा.
9185
⧪ पायरी 6: ListBox2 साठी कोड लिहिणे
नंतर ListBox2 वर डबल क्लिक करा . जेव्हा ListBox2_Click नावाची खाजगी उपप्रक्रिया उघडेल, तेव्हा तेथे हा कोड प्रविष्ट करा.
8675
⧪ पायरी 7: लेखन कोड CommanButton1
तसेच, CommanButton1 वर डबल-क्लिक करा. खाजगी उपप्रक्रिया नंतर CommandButton1_Change उघडेल, तेथे खालील कोड घाला.
1582
⧪ पायरी 7: वापरकर्ता फॉर्म चालवण्यासाठी कोड लिहिणे
आता अंतिम टप्पा आहे. VBA टूलबारमधून नवीन मॉड्युल घाला आणि खालील कोड घाला.
8920
⧪ पायरी 8: रनिंग UserForm
तुमचा UserForm आता वापरण्यासाठी तयार आहे. ते चालवण्यासाठी, वर्कशीटमधून डेटा सेट निवडा ( हेडर्स सह) आणि मॅक्रो नावाचा रन_यूजरफॉर्म चालवा.
UserForm सर्व पर्यायांसह लोड होईल. निवडलेला श्रेणी पत्ता टेक्स्टबॉक्स1 ( B3:D4 येथे) वर दर्शविला जाईल. आपली इच्छा असल्यास, आपण ते बदलू शकता. वर्कशीटमधील निवडलेली श्रेणी बदलेल.
तुम्हाला कॉलम्स टू कॉन्कॅट लिस्टबॉक्समधून कॉन्कॅट करायचे असलेले कॉलम निवडा. येथे मी पुस्तकाचे नाव आणि किंमत निवडले आहे.
विभाजक प्रविष्ट करा. येथे मी एक स्वल्पविराम ( , ) प्रविष्ट केला आहे.
तुम्हाला कॉन्कटेनेटेड इन<2 मधून ज्या वर्कशीटचे नाव सिलेक्ट करायचे आहे ते निवडा> सूची बॉक्स. येथे मी Sheet3 टाकले आहे.
(ज्या क्षणी तुम्ही पत्रक निवडता, ते सक्रिय केले जाईल, जरी ते सक्रिय नसले तरीही.)
नंतर घाला आउटपुट स्थान . हा संकलित श्रेणीच्या पहिल्या सेलचा सेल संदर्भ आहे. येथे मी B3 ठेवले आहे.
(ज्या क्षणी तुम्ही आउटपुट स्थान प्रविष्ट कराल, आउटपुट श्रेणी निवडली जाईल).
आणि शेवटी , प्रविष्ट करा आउटपुट हेडर चे नाव (आउटपुट रेंजचे हेडर). येथे मी कॉन्केटेड रेंज ठेवले आहे.
(ज्या क्षणी तुम्ही आउटपुट हेडर टाकाल, आउटपुट कॉलमचे हेडर सेट केले जाईल.)
ठीक आहे क्लिक करा. तुम्हाला इच्छित स्थानावर इच्छित आउटपुट मिळेल.
अधिक वाचा: VBA वापरून स्ट्रिंग आणि पूर्णांक कसे जोडायचे
निष्कर्ष
तर ही काही उदाहरणे आहेत ज्यात तुम्ही स्ट्रिंग्स आणि व्हेरिएबल्स एकत्र करण्यासाठी एक्सेल VBA वापरू शकता. आशा आहे की उदाहरणांनी आपल्यासाठी सर्वकाही स्पष्ट केले आहे. तुला काही प्रश्न आहेत का? आम्हाला विचारण्यास मोकळ्या मनाने. आणि अधिक पोस्ट आणि अपडेटसाठी आमच्या ExcelWIKI साइटला भेट द्यायला विसरू नका.
