सामग्री तालिका
हामीले भिजुअल बेसिक एप्लिकेसन (VBA) मा प्रयोग गर्ने सबैभन्दा महत्त्वपूर्ण र व्यापक रूपमा प्रयोग हुने प्रकार्यहरू मध्ये एउटा Find प्रकार्य हो। यस लेखमा, म तपाईंलाई एक्सेलको FIND प्रकार्य उपयुक्त उदाहरणहरू र दृष्टान्तहरूका साथ कसरी प्रयोग गर्न सक्नुहुन्छ भनेर देखाउनेछु।
अभ्यास कार्यपुस्तिका डाउनलोड गर्नुहोस्
<6 Excel.xlsm मा VBA मा प्रकार्य फेला पार्नुहोस्
6 VBA मा FIND प्रकार्य प्रयोग गर्न द्रुत उदाहरणहरू
हामीले यहाँ छौँ मार्टिन बुकस्टोर नामक पुस्तक पसलका केही पुस्तकहरूको पुस्तकको नाम, लेखकहरू र मूल्य सँग डेटा सेट प्राप्त भयो।
आज हाम्रो उद्देश्य यस डेटा सेटबाट VBA को Find function को विभिन्न प्रकारका प्रयोगहरू हेर्नु हो।
1। कुनै प्यारामिटर बिना VBA मा Find प्रकार्य प्रयोग गर्नुहोस्
तपाईँ Find function को VBA कुनै प्यारामिटर बिना प्रयोग गर्न सक्नुहुन्छ।
त्यसपछि यो कक्षहरूको दायरा भित्र एउटा विशिष्ट मान खोज्नेछ र फेला पारेको पहिलो मिल्दो फिर्ता गर्नेछ।
नाम खोजौं “P. B. Shelly” स्तम्भमा Author ( C4:C13 )।
Find function को साथको रेखा यस्तो हुनेछ:
Set cell = Range("C4:C17").Find("P. B. Shelly") पूर्ण VBA कोड हुनेछ:
⧭ VBA कोड:
4366
⧭ आउटपुट:
यसले उत्पादन गर्छ म्याक्रो भनिन्छ फेन्ड । यदि तपाईंले म्याक्रो चलाउनुभयो भने, यसले $C$6 फर्काउनेछ, नाम P भएको पहिलो सेल ठेगाना। B. Shelly ।
थप पढ्नुहोस्: मा VBA को साथ दायरा भित्र खोज्नुहोस्एक्सेल: सटीक र आंशिक मिलानहरू समावेश गर्दै
2। आफ्टर प्यारामिटर (विशिष्ट कक्षबाट खोजी सुरु गर्न)
तपाईँले पछी प्यारामिटरलाई फाइन्ड प्रकार्य को साथ प्रयोग गर्न सक्नुहुन्छ। VBA मा। त्यसपछि यसले दायरा भित्र सेलको तलबाट मान खोज्न थाल्छ।
उदाहरणका लागि, नामको खोजी सुरु गरौं “P. B. Shelly” तलको कक्षबाट C6 ।
कोडको रेखा यस्तो हुनेछ:
Set cell = Range("C4:C13").Find("P. B. Shelly", After:=Range("C6")) र पूरा VBA कोड हुनेछ:
⧭ VBA कोड:
4152
यसले $C$13 फर्काउनेछ किनभने यसले तलको कक्ष C6 बाट खोजी सुरु गर्छ, त्यो सेल C7 बाट हो। त्यसैले यसले P प्राप्त गर्दछ। B. Shelly कक्षमा C13 पहिले।
थप पढ्नुहोस्: कसरी स्ट्रिङ पत्ता लगाउने एक्सेलमा VBA प्रयोग गर्ने सेल
3। आफ्टर प्यारामिटरको वरिपरि र्यापिङको साथ VBA मा Find प्रकार्य चलाउनुहोस् (वृत्ताकार तरिकामा मान खोज्नको लागि)
Find function<2 सँग प्यारामिटर> गोलाकार तरिकामा मानको लागि खोजी गर्दछ
अर्थात, यसले दायरा भित्रको कक्षको तलबाट खोजी सुरु गर्दछ, दायरामा खोजी समाप्त गर्दछ, र त्यसपछि फेरि दायराको शीर्षबाट सुरु हुन्छ।
उदाहरणका लागि, पछि प्यारामिटर प्रयोग गरेर “John Keats” तलको सेल C8 नामको खोजी सुरु गरौं।
को रेखा कोड हुनेछ:
Set cell = Range("C4:C13").Find("John Keats", After:=Range("C8")) रपूरा VBA कोड हुनेछ:
⧭ VBA कोड:
4353
⧭ आउटपुट:
यसले $C$7 फर्काउनेछ किनभने यसले तलको कक्ष C8 बाट खोजी सुरु गर्छ, त्यो बाट सेल C9 ।
यसले सेल C13 सम्म केही फेला पार्दैन, त्यसैले यो फेरि सेल C4 बाट सुरु हुन्छ र सेलमा एउटा फेला पार्छ। 1 एक्सेलमा (८ उदाहरणहरू)
4. लुकएट प्यारामिटरको साथ VBA मा Find प्रकार्य प्रयोग गर्नुहोस् (सटीक वा आंशिक मिलानको लागि)
तपाईले VBA मा Find function प्रयोग गर्न सक्नुहुन्छ।>LookAt प्यारामिटर।
प्रयोग गर्नुहोस् LookAt = xlWhole एउटा सही मिलानको लागि, र आंशिकको लागि LookAt=xlPart मेल खान्छ।
उदाहरणका लागि, पुस्तकको नाम स्तम्भ ( B4:B13 )।
यदि हामीले कोडको लाइनमा xlWhole प्रयोग गर्छौं:
Set cell = Range("B4:B13").Find("Ode", LookAt:=xlWhole) आउटपुटले त्रुटि देखाउनेछ किनभने यसले कुनै पनि सही मिल्दो फेला पार्दैन।
21>
तर यदि तपाइँ प्रयोग गर्नुहुन्छ भने:
<7 Set cell = Range("B4:B13").Find("Ode", LookAt:=xlPart) त्यसपछि यो फर्किनेछ $B$9 , किनभने त्यहाँ “Ode” नामको एउटा पुस्तक सेलमा छ B7 , Ode to the Nightingale।
तसर्थ आंशिक मिलानको लागि पूर्ण कोडहो:
⧭ VBA कोड:
1524
5। SearchDirection प्यारामिटर (खोजको दिशा निर्दिष्ट गर्न) को साथ VBA मा Find प्रकार्य सञ्चालन गर्नुहोस्
तपाईँले VBA मा Find प्रकार्य पनि प्रयोग गर्न सक्नुहुन्छ SearchDirection प्यारामिटर।
प्रयोग गर्नुहोस् SearchDirection = xlNext शीर्ष देखि तल खोज्नको लागि।
र SearchDirection = xlPrevious तलदेखि माथि खोज्नका लागि।
उदाहरणका लागि, लेखक एलिफ शफाक स्तम्भ लेखक मा खोज्ने प्रयास गरौं। ( C4:C13 )।
यदि हामीले कोडको लाइनमा xlNext प्रयोग गर्छौं:
Set cell = Range("C4:C13").Find("Elif Shafak", SearchDirection:=xlNext) त्यसपछि $C$5 फर्किनेछ।
तर यदि तपाईंले प्रयोग गर्नुहुन्छ भने:
Set cell = Range("C4:C13").Find("Elif Shafak", SearchDirection:=xlPrevious) त्यसपछि यसले $C$11 फर्काउँछ।
25>
त्यसैले तलदेखि माथिसम्म खोज्नको लागि पूर्ण कोड छ:
⧭ VBA कोड:
1276
6। MatchCase प्यारामिटर (केस-सेन्सिटिभ वा असंवेदनशील मिलानको लागि) संग VBA मा प्रकार्य खोज्नुहोस्
अन्तमा, तपाईंले MatchCase प्यारामिटरको साथ Find function प्रयोग गर्न सक्नुहुन्छ।
केस-संवेदनशील मिलान , र को लागि MatchCase=False को लागि MatchCase = True प्रयोग गर्नुहोस् केस-संवेदनशील मिल्ने।
उदाहरणका लागि, पुस्तकको नाम स्तम्भ ( B4:B13) मा पुस्तक “आमा” खोज्ने प्रयास गरौं )।
यदि हामीले कोडको लाइनमा True प्रयोग गर्छौं:
Set cell = Range("B4:B13").Find("mother", MatchCase:=True) आउटपुटले त्रुटि देखाउनेछ किनभने यसले ' कुनै फेला परेनमेल खान्छ।
तर यदि तपाईंले प्रयोग गर्नुहुन्छ भने:
Set cell = Range("B4:B13").Find("mother", MatchCase:=False) त्यसपछि यो फर्किनेछ $ B$9 किनभने सेल B8 मा “आमा” नामक पुस्तक छ।
त्यसैले पूरा कोड केस-असंवेदनशील मिलान हो:
⧭ VBA कोड:
2299
यी विधिहरू प्रयोग गरेर, तपाईँले भिजुअल बेसिक अनुप्रयोगमा खोज कार्य प्रयोग गर्न सक्नुहुन्छ। के तपाईंको कुनै प्रश्न छन्? हामीलाई सोध्न नहिचकिचाउनुहोस्।
