सामग्री तालिका
यदि तपाइँ VBA प्रयोग गरेर सबस्ट्रिङ फेला पार्ने केहि सजिलो तरिकाहरू खोज्दै हुनुहुन्छ भने, तपाइँ सही ठाउँमा हुनुहुन्छ। यस लेखमा गएपछि, तपाईंले सबस्ट्रिङको स्थिति पत्ता लगाउन वा यो सबस्ट्रिङ प्रयोग गरेर डाटा निकाल्न वा सजिलैसँग सबस्ट्रिङको ढाँचा परिवर्तन गर्न सक्षम हुनुहुनेछ। लेखमा जाऔं।
कार्यपुस्तिका डाउनलोड गर्नुहोस्
नमूना सामग्री
VBA प्रयोग गरेर सबस्ट्रिङ पत्ता लगाउने ९ तरिका
यहाँ, मसँग निम्न छन् डाटा तालिका जसद्वारा म VBA प्रयोग गरेर स्ट्रिङमा सबस्ट्रिङ फेला पार्ने तरिकाहरू देखाउनेछु। म अनियमित स्ट्रिङमा सबस्ट्रिङ फेला पार्ने तरिकाहरू पनि देखाउने प्रयास गर्नेछु।
मैले यो कार्य Microsoft Excel 365 संस्करण प्रयोग गरी गरेको छु, तपाईंले आफ्नो सुविधा अनुसार अन्य कुनै पनि संस्करण प्रयोग गर्न सक्नुहुन्छ।
विधि-१: VBA प्रयोग गरेर स्ट्रिङमा सबस्ट्रिङ फेला पार्ने
यदि तपाइँ VBA प्रयोग गरी स्ट्रिङमा आफ्नो मनपर्ने सबस्ट्रिङ फेला पार्न चाहनुहुन्छ भने, तपाइँ InStr प्रकार्य VBA कोडमा।
चरण-01 :
➤मा जानुहोस् विकासकर्ता ट्याब>> भिजुअल बेसिक विकल्प
त्यसपछि, भिजुअल बेसिक सम्पादक खुल्नेछ।
➤मा जानुहोस् घुसाउनुहोस् ट्याब>> मोड्युल विकल्प
14>
त्यसपछि, मोड्युल सिर्जना हुनेछ।
चरण-02 :
➤निम्न कोड लेख्नुहोस्
7554
यहाँ, InStr(1, “ मलाई लाग्छ त्यसैले म हुँ", "सोच्नुहोस्") स्ट्रिङको सबस्ट्रिङको स्थिति फर्काउनेछ। 1 होसुरु स्थिति, " मलाई लाग्छ त्यसैले म हुँ" तपाईँले आफ्नो मनपर्ने सबस्ट्रिङ फेला पार्नुहुनेछ भन्ने स्ट्रिङ हो, र "थिंक" तपाईले फेला पार्न चाहनु भएको सबस्ट्रिङ हो। यो पूर्वनिर्धारित केस-सेन्सेटिभ हुन्छ त्यसैले तपाईले खोज्न चाहनुभएको सबस्ट्रिङको केसबाट सावधान रहनुहोस्।
➤ थिच्नुहोस् F5
परिणाम :
त्यसपछि, तपाईंले निम्न सन्देश बाकस “सोच्नुहोस्” सबस्ट्रिङको स्थिति समावेश गरी प्राप्त गर्नुहुनेछ।
विधि-2: स्ट्रिङमा केस-असंवेदनशील सबस्ट्रिङ फेला पार्नुहोस्
यदि तपाइँ VBA प्रयोग गरेर केसको परवाह नगरी तपाइँको मनपर्ने सबस्ट्रिङ स्ट्रिङमा फेला पार्न चाहनुहुन्छ भने, त्यसपछि यो पालना गर्नुहोस्। विधि।
चरण-01 :
➤ फलो गर्नुहोस् चरण-01 को विधि-1
5006
यहाँ, vbTextCompare केस-संवेदनशील सबस्ट्रिङ फेला पार्न प्रयोग गरिन्छ।
➤ थिच्नुहोस् F5
नतिजा :
त्यसपछि, तपाईंले निम्न सन्देश बाकस “सोच्नुहोस्” सबस्ट्रिङको स्थिति समावेश गरी प्राप्त गर्नुहुनेछ।
तपाईँले निम्न कोड प्रयोग गरेर त्यसै गर्न सक्नुहुन्छ।
6986
यहाँ, विकल्प तुलना पाठ केस-संवेदनशील सबस्ट्रिङ फेला पार्नेछ।
➤ थिच्नुहोस् F5
परिणाम :
त्यसपछि, तपाइँ wi निम्न प्राप्त हुनेछ सन्देश बाकस “सोच्नुहोस्” सबस्ट्रिङको स्थिति समावेश।
विधि-3: InstrRev प्रकार्य प्रयोग गर्दै VBA मा
यहाँ, म a को अन्त्यबाट सबस्ट्रिङ फेला पार्ने तरिका देखाउनेछु।string।
चरण-01 :
➤ फलो गर्नुहोस् चरण-01 को विधि-1
4308
InStrRev ले बायाँ साइडको सट्टा दायाँ तर्फबाट सबस्ट्रिङ फेला पार्नेछ।
22>
➤ थिच्नुहोस् F5
नतिजा :
त्यसपछि, तपाईंले निम्न सन्देश बाकस सेकेन्ड “I” को सबस्ट्रिङको स्थिति समावेश गर्नुहुनेछ। दायाँ तिर।
विधि-४: डाटाको दायरामा स्ट्रिङमा सबस्ट्रिङको स्थिति पत्ता लगाउने
यदि तपाइँ विशेष क्यारेक्टर फेला पार्न चाहनुहुन्छ भने “@” इमेल आईडी मा, त्यसपछि यो विधि पालना गर्नुहोस्। मैले यहाँ पोजिसन स्तम्भ यस उद्देश्यका लागि थपेको छु।
24>
चरण-01 :
➤अनुसरण गर्नुहोस् चरण-01 को विधि-1
8601
यसले FindSubstring (तपाईले कुनै पनि अन्य नाम प्रयोग गर्न सक्नुहुन्छ)
नामक प्रकार्य सिर्जना गर्नेछ।मान सेल सन्दर्भ हो जसले स्ट्रिङ समावेश गर्दछ र यसलाई दायरा को रूपमा घोषणा गरिएको छ।
25>
चरण -02 :
➤आउटपुट चयन गर्नुहोस् सेल E5
➤निम्न प्रकार्य टाइप गर्नुहोस् ( VBA द्वारा सिर्जना गरिएको)
=FindSubstring(D5)
D5 स्ट्रिङ समावेश गर्ने सेल हो।
26>
➤ थिच्नुहोस् ENTER
➤ तल तान्नुहोस् फिल ह्यान्डल उपकरण
नतिजा :
त्यसपछि, तपाईंले “ @” इमेल आइडी मा विशेष क्यारेक्टरको पोजिसनहरू पाउनुहुनेछ।
समान पढाइहरू:
- कसरी पत्ता लगाउनेएक्सेलमा VBA प्रयोग गरेर सेलमा स्ट्रिङ (2 विधिहरू)
- FindNext Using VBA Excel मा (२ उदाहरणहरू)
- कसरी स्ट्रिङ फेला पार्ने एक्सेलमा VBA (8 उदाहरणहरू)
- VBA Excel मा अन्तिम पङ्क्ति फेला पार्नुहोस् (5 तरिकाहरू)
विधि-5: निश्चित सबस्ट्रिङ जाँच गर्दै डेटाको दायरामा स्ट्रिङ
मान्नुहोस्, तपाइँ नतिजा स्तम्भमा निर्भर गर्दै विद्यार्थीहरूको नाम पास वा अनुरूप गर्न असफल लेख्न चाहनुहुन्छ जहाँ पास वा फेल कोष्ठकमा लेखिएको छ। यो सबस्ट्रिङ नतिजा स्तम्भ मा फेला पार्न र यसलाई पास वा असफल स्तम्भमा लेख्नुहोस् यो विधि अनुसरण गर्नुहोस्।
चरण-01 :
➤ फलो गर्नुहोस् चरण-01 को विधि-1
4745
यहाँ, सेल दायरा हो C5:C10 जुन परिणाम स्तम्भ हो
InStr(cell.value, "Pass") > 0 यो अवस्था हो जहाँ संख्या शून्य भन्दा ठूलो छ (जब सेलले “पास” समावेश गर्दछ) तब निम्न रेखा जारी रहनेछ र छेउछाउको कक्षमा आउटपुटलाई Passed<12 को रूपमा दिनेछ।>।
यदि अवस्था गलत भयो भने सेलमा कुनै पनि “पास” समावेश छैन भने Else अन्तर्गतको रेखाले कार्यान्वयन गर्नेछ र आउटपुट मान दिनेछ। छेउछाउको कक्ष असफल को रूपमा।
यो लुप प्रत्येक कक्षको लागि जारी रहनेछ।
➤ थिच्नुहोस् F5
नतिजा :
त्यसपछि, तपाईंले पास वा फेलमा निम्न आउटपुटहरू पाउनुहुनेछ स्तम्भ।
विधि-6: स्ट्रिङमा निश्चित सबस्ट्रिङ जाँच गर्ने र डाटा निकाल्ने
म नामका विद्यार्थीहरू फेला पार्ने बाटो देखाउनेछु। माइकल विद्यार्थी नाम स्तम्भ मा र यस विधिमा VBA प्रयोग गरी तिनीहरूको सम्बन्धित डाटा निकाल्नुहोस्।
चरण-01 :
➤ फलो गर्नुहोस् चरण-01 को विधि-1
6873
यहाँ, मैले प्रयोग गरेको छु। 11>B100 को रूपमा सक्रिय पाना दायरा तर तपाइँ आफ्नो प्रयोग अनुसार कुनै पनि दायरा प्रयोग गर्न सक्नुहुन्छ।
InStr(1, Range("B" & i), "Michael") > 0 सेल भित्र छ कि छैन भनेर जाँच गर्नको लागि शर्त हो। स्तम्भ B मा माइकल
Range("E" & icount & ":G" & icount) तपाईँ आफ्नो आउटपुट डेटा चाहानु भएको दायरा हो र Range("B" & i & ":D" & i).value ले मान दिनेछ। स्तम्भहरू B बाट D सम्म।
37>
➤ थिच्नुहोस् F5
नतिजा :
त्यसपछि, तपाईंले माइकल नाम भएका विद्यार्थीहरूको लागि निम्न निकालिएको डाटा प्राप्त गर्नुहुनेछ।
<38
विधि-7: शब्दको लागि सबस्ट्रिङ खोज्दै
यदि तपाइँ शब्दको रूपमा सबस्ट्रिङ फेला पार्न चाहनुहुन्छ भने, फोल यो विधि कम गर्नुहोस्।
चरण-01 :
➤अनुसरण गर्नुहोस् चरण-01 को विधि-1
5308
यसले स्ट्रिङमा हो छ कि छैन भनेर जाँच गर्नेछ र त्यसपछि यसको स्थिति दिइनेछ
➤ थिच्नुहोस् F5
परिणाम :
त्यसपछि, तपाईंले निम्न सन्देश बाकस पाउनुहुनेछ जसले पदमा फेला परेको शब्द देखाउँछ: 6 (<11 को स्थिति।>हो )।
तपाईंले परीक्षण गर्न सक्नुहुन्छस्ट्रिङमा नभएको शब्दको लागि यो कोड निकाल्नुहोस्।
➤निम्न कोड टाइप गर्नुहोस्
7580
➤ थिच्नुहोस् F5
परिणाम :
त्यसपछि, तपाईंले निम्न सन्देश बक्स पाउनुहुनेछ जसले शब्द फेला परेन देखाउँछ।
42>
विधि-8: Instr र LEFT प्रकार्य प्रयोग गरेर
यहाँ, म स्ट्रिङमा सबस्ट्रिङको स्थिति पत्ता लगाउने तरिका व्याख्या गर्नेछु र प्रयोग गरेर यो सबस्ट्रिङ अघिको पाठहरू निकाल्ने छु। VBA र बायाँ प्रकार्य ।
चरण-01 :
➤फलो गर्नुहोस् चरण-01 को विधि-1
5431
j = InStr(txt, "is") सबस्ट्रिङको स्थिति हो है र Left(txt, j - 1) <11 अघि सबस्ट्रिङ निकाल्नेछ।>हो ।
➤ थिच्नुहोस् F5
परिणाम :
त्यसपछि, तपाईंले निम्न सन्देश बाकस प्राप्त गर्नुहुनेछ जुन देखाउँछ यहाँ ( इसे अघिको सबस्ट्रिङ)।
44>
विधि-9: बोल्डिङ स्ट्रिङमा निश्चित सबस्ट्रिङ
तपाईँले नतिजा स्तम्भ मा यो विधि पछ्याएर कोष्ठकभन्दा अगाडि ग्रेडहरू बोल्ड गर्न सक्नुहुन्छ। d.
चरण-01 :
➤ फलो गर्नुहोस् चरण-01 को विधि- 1
6495
txt = InStr(1, Cell, "(") पहिलो कोष्ठकको स्थिति फर्काउनेछ र Cell.Characters(1, txt - 1).Font.Bold ले पहिलो कोष्ठक बोल्ड अगाडि सबस्ट्रिङ बनाउनेछ।
चरण-02 :
➤ नतिजा स्तम्भ
➤जानुहोस् विकासकर्ता ट्याब>> म्याक्रोज विकल्प
47>
त्यसपछि, एउटा म्याक्रो विजार्ड देखा पर्नेछ।
➤ बोल्डिङसबस्ट्रिङ (VBA कोड नाम) चयन गर्नुहोस् र त्यसपछि रन ।
नतिजा :
त्यसपछि, नतिजा स्तम्भ मा रहेका ग्रेडहरू बोल्ड हुनेछन्।
<49
अभ्यास खण्ड
आफैले अभ्यास गर्नको लागि हामीले अभ्यास नामको पानामा तल जस्तै अभ्यास खण्ड प्रदान गरेका छौं। कृपया यो आफै गर्नुहोस्।
निष्कर्ष
यस लेखमा, मैले VBA प्रयोग गरेर सबस्ट्रिङ फेला पार्ने सबैभन्दा सजिलो तरिकाहरू समावेश गर्ने प्रयास गरेको छु। एक्सेलमा प्रभावकारी रूपमा। आशा छ तपाईंले यो उपयोगी पाउनुहुनेछ। यदि तपाईंसँग कुनै सुझाव वा प्रश्नहरू छन् भने, तिनीहरूलाई हामीसँग साझा गर्न नहिचकिचाउनुहोस्।
