सामग्री सारणी
तुम्ही VBA वापरून सबस्ट्रिंग शोधण्याचे काही सोपे मार्ग शोधत असाल, तर तुम्ही योग्य ठिकाणी आहात. या लेखात गेल्यानंतर, तुम्ही या सबस्ट्रिंगचा वापर करून सबस्ट्रिंगची स्थिती शोधू शकाल किंवा डेटा काढू शकाल किंवा सबस्ट्रिंगचे स्वरूप सहजपणे बदलू शकाल. चला लेखात जाऊ या.
वर्कबुक डाउनलोड करा
नमुना सामग्री
VBA वापरून सबस्ट्रिंग शोधण्याचे ९ मार्ग
येथे, माझ्याकडे खालील गोष्टी आहेत डेटा टेबल ज्याद्वारे मी VBA वापरून स्ट्रिंगमध्ये सबस्ट्रिंग शोधण्याचे मार्ग दाखवीन. मी यादृच्छिक स्ट्रिंगमध्ये सबस्ट्रिंग शोधण्याचे मार्ग देखील दाखवण्याचा प्रयत्न करेन.
मी हे कार्य Microsoft Excel 365 आवृत्ती वापरून केले आहे, तुम्ही तुमच्या सोयीनुसार इतर कोणतीही आवृत्ती वापरू शकता.
पद्धत-1: VBA वापरून स्ट्रिंगमध्ये सबस्ट्रिंग शोधणे
तुम्हाला VBA वापरून स्ट्रिंगमध्ये तुमची इच्छित सबस्ट्रिंग शोधायची असल्यास, तुम्ही VBA कोडमधील InStr फंक्शन .
स्टेप-01 :
➤ डेव्हलपर टॅब>><वर जा 11>Visual Basic Option
नंतर, Visual Basic Editor ओपन होईल.
➤ <11 वर जा>Insert टॅब>> मॉड्युल पर्याय
त्यानंतर, एक मॉड्युल तयार होईल.
स्टेप-02 :
➤ खालील कोड लिहा
9114
येथे, InStr(1, “ मला वाटते म्हणून मी आहे”, “विचार करा”) स्ट्रिंगच्या सबस्ट्रिंगची स्थिती परत करेल. 1 आहेप्रारंभ स्थिती, “ मला वाटते म्हणून मी आहे” ही स्ट्रिंग आहे जिथे तुम्हाला तुमची इच्छित सबस्ट्रिंग मिळेल आणि “विचार करा” तुम्हाला शोधायची असलेली सबस्ट्रिंग आहे. हे डीफॉल्ट केस-सेन्सिटिव्ह असते त्यामुळे तुम्ही शोधू इच्छित असलेल्या सबस्ट्रिंगच्या केसपासून सावध रहा.
➤ F5
दाबा परिणाम :
त्यानंतर, तुम्हाला खालील संदेश बॉक्स “विचार करा” सबस्ट्रिंगची स्थिती असेल.
पद्धत-2: स्ट्रिंगमध्ये केस-असंवेदनशील सबस्ट्रिंग शोधणे
तुम्हाला VBA वापरून केस काहीही असो, स्ट्रिंगमध्ये तुमची इच्छित सबस्ट्रिंग शोधायची असेल, तर याचे अनुसरण करा पद्धत.
चरण-01 :
➤ अनुसरण करा पद्धत-01 चे पद्धत-1
8903
येथे, vbTextCompare केस-असंवेदनशील सबस्ट्रिंग शोधण्यासाठी वापरले जाते.
➤ दाबा F5
परिणाम :
तर, तुम्हाला खालील संदेश बॉक्स “विचार करा” सबस्ट्रिंगची स्थिती असेल.
<0
तुम्ही खालील कोड वापरून ते करू शकता.
3852
येथे, पर्याय तुलना मजकूर केस-असंवेदनशील सबस्ट्रिंग सापडेल.
➤ दाबा F5
परिणाम :
यानंतर, आपण wi खालील संदेश बॉक्स “विचार” सबस्ट्रिंगची स्थिती असेल.
पद्धत-3: InstrRev फंक्शन वापरणे VBA मध्ये
येथे, मी a च्या शेवटी सबस्ट्रिंग शोधण्याचा मार्ग दाखवेनस्ट्रिंग.
स्टेप-01 :
➤ फॉलो करा पद्धत-01 चे पद्धत-1
3133
InStrRev डाव्या बाजूऐवजी उजव्या बाजूने सबस्ट्रिंग सापडेल.
➤ दाबा F5
परिणाम :
मग, तुम्हाला खालील संदेश बॉक्स दुसऱ्या “मी” चे स्थान असेल. उजवी बाजू.
पद्धत-4: डेटाच्या श्रेणीमध्ये स्ट्रिंगमधील सबस्ट्रिंगची स्थिती शोधणे
तुम्हाला विशेष वर्ण शोधायचा असल्यास “@” ईमेल आयडी मध्ये, नंतर ही पद्धत फॉलो करा. या उद्देशासाठी मी येथे पोझिशन कॉलम जोडला आहे.
स्टेप-01 :
➤ फॉलो करा पद्धत-1
8576
चे चरण-01 फाइंडसबस्ट्रिंग (तुम्ही इतर कोणतेही नाव वापरू शकता)
नावाचे फंक्शन तयार करेल.मूल्य हे सेल संदर्भ आहे ज्यामध्ये स्ट्रिंग असते आणि ते श्रेणी म्हणून घोषित केले जाते.
चरण -02 :
➤आउटपुट निवडा सेल E5
➤ खालील फंक्शन टाइप करा ( VBA द्वारे तयार केलेले)
=FindSubstring(D5)
D5 हा सेल आहे ज्यामध्ये स्ट्रिंग आहे.
➤ दाबा एंटर
➤ खाली ड्रॅग करा फिल हँडल टूल
निकाल :
त्यानंतर, तुम्हाला ईमेल आयडी मध्ये “ @” स्पेशल कॅरेक्टरची पोझिशन मिळेल.
समान वाचन:
- कसे शोधावेएक्सेलमध्ये व्हीबीए वापरून सेलमधील स्ट्रिंग (2 पद्धती)
- एक्सेलमध्ये व्हीबीए वापरून पुढील शोधा (2 उदाहरणे)
- सह स्ट्रिंग कसे शोधावे एक्सेलमधील VBA (8 उदाहरणे)
- VBA एक्सेलमध्ये शेवटची पंक्ती शोधा (5 मार्ग)
पद्धत-5: विशिष्ट सबस्ट्रिंग तपासणे डेटाच्या श्रेणीतील एक स्ट्रिंग
समजा, तुम्हाला परिणाम स्तंभावर अवलंबून विद्यार्थ्यांच्या नावांशी पास किंवा संबंधित करण्यात अयशस्वी लिहायचे आहे जेथे पास किंवा फेल कंसात लिहिले आहे. हे सबस्ट्रिंग परिणाम स्तंभ मध्ये शोधण्यासाठी आणि ते पास किंवा अयशस्वी कॉलममध्‍ये लिहा या पद्धतीचे अनुसरण करा.
चरण-01 :
➤ अनुसरण करा चरण-01 चे पद्धत-1
8725
येथे, सेल श्रेणी आहे C5:C10 जे परिणाम स्तंभ
InStr(cell.value, “Pass”) > 0 अशी स्थिती आहे जिथे संख्या शून्यापेक्षा मोठी असते (जेव्हा सेलमध्ये “पास” असते) नंतर खालील ओळ पुढे चालू राहील आणि शेजारच्या सेलमध्ये आउटपुट पास <12 म्हणून देईल>.
स्थिती खोटी ठरली म्हणजे सेलमध्ये कोणतेही “पास” नसेल तर अन्यथा खालील ओळ कार्यान्वित करेल आणि आउटपुट मूल्य देईल. अयशस्वी म्हणून समीप सेल.
हा लूप प्रत्येक सेलसाठी सुरू राहील.
➤ F5 <दाबा 1>
परिणाम :
मग, तुम्हाला पास किंवा अनुत्तीर्ण मध्ये खालील आउटपुट मिळतील स्तंभ.
पद्धत-6: स्ट्रिंगमधील ठराविक सबस्ट्रिंग तपासणे आणि डेटा काढणे
मी नाव असलेले विद्यार्थी शोधण्याचा मार्ग दाखवीन मायकेल विद्यार्थी नाव स्तंभात आणि या पद्धतीत VBA वापरून त्यांचा संबंधित डेटा काढा.
चरण-01 :
➤ अनुसरण करा पद्धत-01 चे पद्धत-1
2400
येथे, मी वापरला आहे B100 सक्रिय पत्रक श्रेणी म्हणून पण तुम्ही तुमच्या वापरानुसार कोणतीही श्रेणी वापरू शकता.
InStr(1, Range("B" & i), "Michael") > 0 सेलमध्ये आहे की नाही हे तपासण्याची अट आहे स्तंभ B मध्ये मायकेल
Range("E" & icount & ":G" & icount) आपल्याला तुमचा आउटपुट डेटा हवा आहे अशी श्रेणी आहे आणि Range("B" & i & ":D" & i).value मूल्ये देईल स्तंभ B पासून D पर्यंत.
➤ F5
<11 दाबा>परिणाम :
त्यानंतर, तुम्हाला मायकेल नाव असलेल्या विद्यार्थ्यांसाठी खालील माहिती मिळेल.
<38
पद्धत-7: शब्दासाठी सबस्ट्रिंग शोधत आहे
तुम्हाला सबस्ट्रिंग शब्द म्हणून शोधायचे असेल तर फॉल ही पद्धत कमी करा.
चरण-01 :
➤ अनुसरण करा पद्धत-01 चे पद्धत-1
2759
स्ट्रिंगमध्ये आहे आहे का ते तपासले जाईल आणि नंतर त्याचे स्थान दिले जाईल
➤ दाबा F5
परिणाम :
यानंतर, तुम्हाला खालील संदेश बॉक्स मिळेल जो स्थितीत आढळलेला शब्द दर्शवेल:6 (<11 चे स्थान>आहे ).
तुम्ही चाचणी करू शकतास्ट्रिंगमध्ये नसलेल्या शब्दासाठी हा कोड काढा.
➤खालील कोड टाइप करा
2033
➤ F5 <दाबा 1>
परिणाम :
नंतर, तुम्हाला खालील संदेश बॉक्स मिळेल जो शब्द सापडला नाही दर्शवेल.
पद्धत-8: Instr आणि LEFT फंक्शन वापरणे
येथे, मी स्ट्रिंगमधील सबस्ट्रिंगची स्थिती शोधण्याचा मार्ग समजावून सांगेन आणि वापरून या सबस्ट्रिंगच्या आधीचे मजकूर काढू. VBA आणि लेफ्ट फंक्शन .
स्टेप-01 :
➤फॉलो स्टेप-01 चे 11>पद्धत-1
3987
j = InStr(txt, "is") सबस्ट्रिंगची स्थिती आहे आणि Left(txt, j - 1) <11 पूर्वी सबस्ट्रिंग काढेल> आहे.
➤ दाबा F5
परिणाम :
त्यानंतर, तुम्हाला खालील संदेश बॉक्स मिळेल जो येथे ( आहे च्या आधी सबस्ट्रिंग) दर्शवेल.
पद्धत-9: बोल्डिंग स्ट्रिंगमधील ठराविक सबस्ट्रिंग
तुम्ही या पद्धतीचे अनुसरण करून परिणाम स्तंभ मध्ये कंसाच्या आधी ग्रेड ठळक करू शकता d.
चरण-01 :
➤ अनुसरण करा चरण-01 चे पद्धत- 1
4836
txt = InStr(1, Cell, "(") पहिल्या ब्रॅकेटची स्थिती परत करेल आणि Cell.Characters(1, txt - 1).Font.Bold पहिल्या ब्रॅकेटच्या आधी सबस्ट्रिंग बनवेल ठळक .
स्टेप-02 :
➤ निकाल कॉलम निवडा
➤जा डेव्हलपर टॅब>> मॅक्रो पर्याय
47>
नंतर, एक मॅक्रो विझार्ड दिसेल.
➤ बोल्डिंगसबस्ट्रिंग (VBA कोड नाव) निवडा आणि नंतर चालवा .
निकाल :
त्यानंतर, निकाल स्तंभ मधील ग्रेड ठळक केले जातील.
<49
सराव विभाग
स्वतः सराव करण्यासाठी आम्ही सराव नावाच्या शीटमध्ये खाली दिलेला सराव विभाग दिला आहे. कृपया ते स्वतः करा.
निष्कर्ष
या लेखात, मी VBA वापरून सबस्ट्रिंग शोधण्याचा सर्वात सोपा मार्ग सांगण्याचा प्रयत्न केला आहे. Excel मध्ये प्रभावीपणे. तुम्हाला ते उपयुक्त वाटेल अशी आशा आहे. तुमच्या काही सूचना किंवा प्रश्न असल्यास, ते आमच्यासोबत शेअर करा.
