विषयसूची
यदि आप VBA का उपयोग करके सबस्ट्रिंग खोजने के कुछ सबसे आसान तरीकों की तलाश कर रहे हैं, तो आप सही जगह पर हैं। इस लेख के माध्यम से जाने के बाद, आप इस सबस्ट्रिंग का उपयोग करके एक सबस्ट्रिंग की स्थिति या डेटा निकालने या एक सबस्ट्रिंग के प्रारूप को आसानी से बदलने में सक्षम होंगे। चलिए लेख में आते हैं।
वर्कबुक डाउनलोड करें
नमूना सामग्री
VBA का उपयोग करके सबस्ट्रिंग खोजने के 9 तरीके
यहाँ, मेरे पास निम्नलिखित हैं डेटा टेबल जिसके द्वारा मैं VBA का उपयोग करके एक स्ट्रिंग में सबस्ट्रिंग खोजने के तरीके दिखाऊंगा। मैं एक यादृच्छिक स्ट्रिंग में सबस्ट्रिंग खोजने के तरीके दिखाने का भी प्रयास करूंगा।
मैंने यह कार्य Microsoft Excel 365 संस्करण का उपयोग करके किया है, आप अपनी सुविधा के अनुसार किसी अन्य संस्करण का उपयोग कर सकते हैं।
विधि-1: VBA का उपयोग करके एक स्ट्रिंग में सबस्ट्रिंग ढूँढना
यदि आप VBA का उपयोग करके स्ट्रिंग में अपना वांछित सबस्ट्रिंग ढूँढना चाहते हैं, तो आप <का उपयोग कर सकते हैं 11>VBA कोड में InStr फ़ंक्शन
Step-01 :
➤ Developer Tab>><पर जाएं 11>विजुअल बेसिक ऑप्शन
फिर, विजुअल बेसिक एडिटर खुल जाएगा।
➤ <11 पर जाएं>Insert Tab>> Module Option
उसके बाद, एक Module बनाया जाएगा।
स्टेप-02 :
➤निम्न कोड लिखें
8612
यहाँ, InStr(1, “ मुझे लगता है इसलिए मैं हूं", "सोचता हूं") एक स्ट्रिंग के सबस्ट्रिंग की स्थिति लौटाएगा। 1 हैप्रारंभ स्थिति, " मुझे लगता है इसलिए मैं हूं" वह स्ट्रिंग है जहां आपको अपना वांछित सबस्ट्रिंग मिलेगा, और "सोचें" वह सबस्ट्रिंग है जिसे आप खोजना चाहते हैं। यह डिफ़ॉल्ट रूप से केस-संवेदी होता है इसलिए अपने सबस्ट्रिंग के उस केस से सावधान रहें जिसे आप खोजना चाहते हैं।
➤ F5
दबाएं परिणाम :
उसके बाद, आपको निम्न संदेश बॉक्स मिलेगा जिसमें “विचार” सबस्ट्रिंग की स्थिति होगी।
विधि-2: एक स्ट्रिंग में केस-असंवेदनशील सबस्ट्रिंग ढूँढना
यदि आप VBA का उपयोग करके किसी भी मामले के बावजूद स्ट्रिंग में अपनी वांछित सबस्ट्रिंग खोजना चाहते हैं, तो इसका पालन करें तरीका।
स्टेप-01 :
➤फॉलो स्टेप-01 का मेथड-1
9547
यहां, vbTextCompare का उपयोग केस-असंवेदनशील सबस्ट्रिंग को खोजने के लिए किया जाता है।
➤ F5
दबाएं परिणाम :
फिर, आपको निम्न संदेश बॉक्स मिलेगा जिसमें "विचार" सबस्ट्रिंग की स्थिति होगी।
<0
आप निम्न कोड का उपयोग करके ऐसा कर सकते हैं।
2712
यहां, विकल्प तुलना टेक्स्ट केस-असंवेदी सबस्ट्रिंग मिलेगा।
➤प्रेस F5
परिणाम :
बाद में, आप आपको निम्न संदेश बॉक्स मिलेगा जिसमें “सोचें” सबस्ट्रिंग की स्थिति होगी।
विधि-3: InstrRev फ़ंक्शन का उपयोग करना वीबीए में
यहां, मैं ए के अंत से एक सबस्ट्रिंग खोजने का तरीका दिखाऊंगाstring.
Step-01 :
➤Follow Step-01 of Method-1
1745
InStrRev सबस्ट्रिंग को बाईं ओर के बजाय दाईं ओर से ढूंढेगा।
➤ F5
दबाएंपरिणाम :
फिर, आपको निम्नलिखित संदेश बॉक्स मिलेगा जिसमें दूसरे "I" की स्थिति शामिल होगी। राइट साइड।
मेथड-4: डेटा की रेंज में एक स्ट्रिंग में सबस्ट्रिंग की पोजीशन का पता लगाना
अगर आप स्पेशल कैरेक्टर को ढूंढना चाहते हैं "@" ईमेल आईडी में, तो यह तरीका अपनाएं। मैंने यहां इस उद्देश्य के लिए स्थिति कॉलम जोड़ा है।
चरण-01 :
➤अनुसरण करें Step-01 of Method-1
1565
यह FindSubstring नाम का एक फंक्शन बनाएगा (आप किसी अन्य नाम का उपयोग कर सकते हैं)
मान वह सेल संदर्भ है जिसमें स्ट्रिंग होती है और इसे श्रेणी के रूप में घोषित किया जाता है।
चरण -02 :
➤आउटपुट का चयन करें सेल E5
➤निम्न फ़ंक्शन टाइप करें ( VBA द्वारा बनाया गया)
=FindSubstring(D5)
D5 वह सेल है जिसमें स्ट्रिंग होती है।
➤ दबाएं ENTER
➤ फील हैंडल टूल
परिणाम को नीचे खींचें:
बाद में, आपको " @" ईमेल आईडी में विशेष वर्ण के पद मिलेंगे।
<1
समान रीडिंग:
- कैसे पता करेंएक्सेल में VBA का उपयोग करके सेल में स्ट्रिंग (2 विधियाँ) एक्सेल में VBA (8 उदाहरण)
- VBA एक्सेल में अंतिम पंक्ति खोजें (5 तरीके)
विधि-5: में एक निश्चित सबस्ट्रिंग की जाँच करना डेटा की एक श्रेणी में एक स्ट्रिंग
मान लीजिए, आप उत्तीर्ण या संवाद में विफल लिखना चाहते हैं परिणाम कॉलम के आधार पर छात्रों के नाम जहां उत्तीर्ण या विफल को कोष्ठक में लिखा गया है। इस सबस्ट्रिंग को परिणाम कॉलम में खोजने के लिए और इसे पास या फेल कॉलम में लिखने के लिए इस विधि का पालन करें।
स्टेप-01 :
➤फॉलो स्टेप-01 की मेथड-1
6025
यहां, सेल रेंज है C5:C10 जो कि परिणाम कॉलम
InStr(cell.value, “Pass”) > 0 वह स्थिति है जहां संख्या शून्य से अधिक है (जब सेल में "पास" शामिल है) तो निम्न पंक्ति जारी रहेगी और आसन्न सेल में उत्तीर्ण<12 के रूप में आउटपुट देगी>.
यदि स्थिति झूठी हो जाती है, तो इसका मतलब है कि सेल में कोई "पास" नहीं है, तो अन्यथा के तहत लाइन निष्पादित होगी और आउटपुट मान देगी सन्निकट सेल विफल के रूप में।
यह लूप प्रत्येक सेल के लिए जारी रहेगा।
➤ F5 <दबाएं 1>
परिणाम :
फिर, आपको उत्तीर्ण या अनुत्तीर्ण में निम्न आउटपुट प्राप्त होंगे कॉलम। माइकल छात्र का नाम कॉलम में और इस विधि में VBA का उपयोग करके उनके संबंधित डेटा को निकालें।
Step-01 :
➤Follow Step-01 of Method-1
6663
यहां, मैंने <का इस्तेमाल किया है 11>B100 सक्रिय शीट श्रेणी के रूप में लेकिन आप अपने उपयोग के अनुसार किसी भी श्रेणी का उपयोग कर सकते हैं।
InStr(1, Range("B" & i), "Michael") > 0 यह जांचने की शर्त है कि सेल अंदर है या नहीं कॉलम बी इसमें माइकल
Range("E" & icount & ":G" & icount) वह रेंज है जहां आप अपना आउटपुट डेटा चाहते हैं और Range("B" & i & ":D" & i).value मान देगा कॉलम B से D तक।
➤ F5
<11 दबाएं>परिणाम :
उसके बाद, आपको माइकल नाम वाले छात्रों के लिए निम्न निकाला गया डेटा प्राप्त होगा।
<38
मेथड-7: वर्ड के लिए सबस्ट्रिंग सर्च करना
अगर आप सबस्ट्रिंग को एक शब्द के रूप में खोजना चाहते हैं, तो fol इस तरीके को कम करें।
स्टेप-01 :
➤फॉलो स्टेप-01 की मेथड-1
6835
यह जांच करेगा कि क्या स्ट्रिंग में है और फिर इसकी स्थिति दी जाएगी
➤प्रेस F5
परिणाम :
इसके बाद, आपको निम्न संदेश बॉक्स मिलेगा जो शब्द स्थिति में मिला: 6 (<11 की स्थिति) दिखाता है>है ).
आप परीक्षण कर सकते हैंजो शब्द स्ट्रिंग में नहीं है उसके लिए यह कोड निकाल दें।
➤निम्नलिखित कोड टाइप करें
6806
➤ F5 <दबाएं 1>
परिणाम :
इसके बाद, आपको निम्न संदेश बॉक्स मिलेगा जो शब्द नहीं मिला दिखाता है।
विधि-8: Instr और LEFT फ़ंक्शन का उपयोग करना
यहां, मैं एक स्ट्रिंग में एक सबस्ट्रिंग की स्थिति का पता लगाने और का उपयोग करके इस सबस्ट्रिंग से पहले टेक्स्ट निकालने का तरीका समझाऊंगा VBA और बाएं फ़ंक्शन ।
चरण-01 :
➤अनुसरण करें चरण-01 का विधि-1
4108
j = InStr(txt, "is") सबस्ट्रिंग की स्थिति है है और Left(txt, j - 1) सबस्ट्रिंग को <11 से पहले निकालेगा>is .
➤ F5
परिणाम :
दबाएं बाद में, आपको निम्न संदेश बॉक्स मिलेगा जो यहां ( से पहले सबस्ट्रिंग है) दिखाता है।
विधि -9: बोल्डिंग एक स्ट्रिंग में एक निश्चित सबस्ट्रिंग
आप इस विधि का पालन करके परिणाम कॉलम में कोष्ठकों से पहले ग्रेड को बोल्ड कर सकते हैं d.
स्टेप-01 :
➤फॉलो स्टेप-01 का तरीका- 1
7224
txt = InStr(1, Cell, "(") पहले ब्रैकेट की स्थिति लौटाएगा और Cell.Characters(1, txt - 1).Font.Bold पहले ब्रैकेट से पहले सबस्ट्रिंग बनाएगा बोल्ड ।
स्टेप-02 :
➤ परिणाम कॉलम का चयन करें
➤जाएं से डेवलपर टैब>> मैक्रोज़ ऑप्शन
फिर, एक मैक्रो विज़ार्ड दिखाई देगा।
➤ बोल्डिंगसबस्ट्रिंग (VBA कोड नाम) का चयन करें और फिर चलाएं ।
परिणाम :
उसके बाद, परिणाम कॉलम में ग्रेड बोल्ड किया जाएगा।
<49
अभ्यास अनुभाग
स्वयं अभ्यास करने के लिए हमने एक अभ्यास अनुभाग प्रदान किया है, जैसा कि अभ्यास नामक शीट में नीचे दिया गया है। कृपया इसे स्वयं करें।
निष्कर्ष
इस लेख में, मैंने VBA का उपयोग करके सबस्ट्रिंग खोजने के सबसे आसान तरीकों को शामिल करने का प्रयास किया है। एक्सेल में प्रभावी ढंग से। आशा है आपको यह उपयोगी लगेगा। यदि आपके पास कोई सुझाव या प्रश्न हैं, तो बेझिझक उन्हें हमारे साथ साझा करें।
