सामग्री तालिका
Excel मा VBA सँग काम गर्दा हामीले प्रयोग गर्ने सबैभन्दा महत्त्वपूर्ण र व्यापक रूपमा प्रयोग हुने कार्यहरू VBA को Mid function हो। यसले इनपुटको रूपमा स्ट्रिङ लिन्छ र आउटपुटको रूपमा स्ट्रिङको बीचबाट क्यारेक्टरहरूको दिइएको संख्या फर्काउँछ। आज यस लेखमा, म तपाइँलाई कसरी उपयुक्त उदाहरण र दृष्टान्तहरू सहित VBA को मिड प्रकार्य प्रयोग गर्न सक्नुहुन्छ भनेर देखाउनेछु।
यसले 8 औं वर्णबाट सुरु गरी “एन्जेला क्याथरिन नेभिल्स” स्ट्रिङबाट 9 वर्णहरू फर्काउनेछ। यो “क्याथरिन” हो।
अभ्यास कार्यपुस्तिका डाउनलोड गर्नुहोस्
कार्य अभ्यास गर्न यो अभ्यास पुस्तक डाउनलोड गर्नुहोस् तपाईं यो लेख पढ्दै हुनुहुन्छ।
VBA Mid Function.xlsm
Excel मा VBA को मध्य प्रकार्यको परिचय
⧭ प्रकार्य उद्देश्य:
Mid प्रकार्यले इनपुटको रूपमा मान लिन्छ र आउटपुटको रूपमा मानको दिइएको स्थितिबाट सुरु हुने वर्णहरूको संख्या फर्काउँछ।
मान स्ट्रिङ, नम्बर , वा बूलियन पनि हुन सक्छ।
उदाहरणका लागि, यदि तपाईंले Mid(“Angela Catherine Nevills”,8,9) सम्मिलित गर्नुभयो भने, यसले “क्याथरिन” फर्काउँछ।
यदि तपाईंले मिड(१२३४५,२,३) सम्मिलित गर्नुभयो भने, तपाईंले २३४ पाउनुहुनेछ।
र घुसाउनुहोस् मिड(फल्स,२,३) , तपाईंले als प्राप्त गर्नुहुनेछ।
⧭ सिन्ट्याक्स:
मिडको सिन्ट्याक्स प्रकार्य को VBA is:
=Mid(String,Start as Long,[Length]) ⧭ तर्क:
<13| तर्क | आवश्यक / ऐच्छिक | स्पष्टीकरण |
|---|---|---|
| स्ट्रिङ | आवश्यक | बाट स्ट्रिङ जसमा धेरै अक्षरहरू फर्काइनेछ। |
| सुरुवात | आवश्यक | फिर्ता गरिने स्ट्रिङको सुरुवात वर्ण। |
| लम्बाइ | वैकल्पिक | फर्काइने वर्णहरूको संख्या। पूर्वनिर्धारित 1 हो। |
⧭ रिटर्न मान:
बिचबाट दिइएको वर्णहरूको संख्या फर्काउँछ स्ट्रिङको, दिइएको स्थितिबाट सुरु गर्दै।
3 एक्सेलमा VBA को मध्य प्रकार्यका उदाहरणहरू
यस पटक, मध्य प्रकार्य<अन्वेषण गरौं। 2> को VBA केही उदाहरणहरू सहित विस्तृत रूपमा।
1। एक्सेलमा VBA को मध्य प्रकार्य प्रयोग गरेर केही ID को मध्यबाट वर्णहरूको दिइएको संख्या छुट्याउँदै
यहाँ हामीले आईडीहरू र सँग डेटा सेट पाएका छौं। Saturn Group भनिने कम्पनीका केही कर्मचारीहरूको नाम ।
यहाँ, 4th देखि 7th हरेकका वर्णहरू ID ले सम्बन्धित कर्मचारीको भर्ना हुने वर्षलाई जनाउँछ।
अब हामी VBA को मध्य प्रकार्य प्रयोग गरेर प्रयोगकर्ता-परिभाषित प्रकार्य विकास गर्नेछौं। जसले कर्मचारी आईडी बाट प्रत्येक कर्मचारीको भर्ना हुने वर्ष निकाल्नेछ।
तपाईँले निम्न VBA कोड प्रयोग गर्न सक्नुहुन्छ:
⧭ VBA कोड:
5075
नोट: यो कोड Joining_Year नामक प्रकार्य सिर्जना गर्दछ।
⧭ आउटपुट:
यसलाई चलाउनुहोस् तपाईंको कार्यपत्रको कुनै पनि कक्षमा तर्कको रूपमा ID सहितको प्रकार्य।
यहाँ, कक्ष D4 मा, हामीले सूत्र प्रविष्ट गरेका छौं:
=Joining_Year(B4) यसले पहिलो कर्मचारीको सामेल हुने वर्ष फर्काएको छ, 2021 ।
अब तपाईँले तान्न सक्नुहुन्छ। बाँकी कर्मचारीहरूको भर्ना हुने वर्षहरू प्राप्त गर्न ह्यान्डल भर्नुहोस्।
⧭ कोडको व्याख्या:
- पहिले, हामीले Joining_Year नामक प्रकार्य घोषणा गर्छौं जसले Function Joining_Year(ID) लाई इनपुटको रूपमा ID लिन्छ।
- त्यसपछि हामी स्थिति 4 बाट सुरु हुने ID बाट 4 अक्षरहरू निकाल्छौं, रेखा Joining_Year = Mid(ID, 4, 4) .
- लाइन समाप्त प्रकार्य प्रकार्यको अन्त्य घोषणा गर्दछ।
2। एक्सेलमा VBA को मध्य प्रकार्य प्रयोग गरेर केही इमेल ठेगानाहरूबाट विस्तारहरू निकाल्दै
अब हामीले डेटा सेटमा नयाँ स्तम्भ थपेका छौं, जसमा कर्मचारीहरूको इमेल ठेगानाहरू छन्।
यस पटक हामी VBA को Mid प्रकार्य प्रयोग गरेर इमेल ठेगानाहरूको विस्तारहरू निकाल्नेछौं।
द VBA कोड हुनेछ:
⧭ VBA कोड:
1803
नोट: यो कोड विस्तार नामक प्रकार्य सिर्जना गर्दछ।
⧭ आउटपुट:
यसलाई चलाउनुहोस् तपाईंको कार्यपत्रको कुनै पनि सेलमा इमेलको साथ कार्य गर्नुहोस्ठेगाना तर्कको रूपमा।
यहाँ, कक्ष E4 मा, हामीले सूत्र प्रविष्ट गरेका छौं:
=Extension(D4) यसले पहिलो इमेल ठेगानाको विस्तार फिर्ता गरेको छ।
त्यसपछि तपाईले सबै इमेलको विस्तार निकाल्न फिल ह्यान्डल तान्नुहोस्। ठेगानाहरू।
⧭ कोडको स्पष्टीकरण
- पहिले, हामी नामको प्रकार्य घोषणा गर्छौं। विस्तार जसले लाइन द्वारा इनपुटको रूपमा कुनै पनि नाम लिन्छ फंक्शन एक्सटेन्सन(इमेल_ठेगाना) ।
- त्यसपछि हामी फर-लूप<2 सँग पुनरावृत्ति सुरु गर्छौं।> जसले इमेल ठेगाना को प्रत्येक क्यारेक्टर जाँच गर्छ कि यो @ हो वा होइन लाइनबाट यदि मिड(इमेल_ठेगाना, i, 1) = “@” त्यसपछि .
- यदि यसले @ फेला पार्छ भने, यसले इमेल ठेगाना लाई रेखा विस्तार = मध्य(इमेल_ठेगाना, i) बाट आवश्यक विस्तार निकाल्छ। + 1, Len(Email_Address) – (i + 4)) ।
- अन्तमा, हामी प्रकार्यको अन्त्य घोषणा गर्छौं।
3। केहि पाठहरू जाँच गर्दै तिनीहरूमा एक विशिष्ट पाठ समावेश छ वा छैन भनेर हेर्नको लागि
मध्य प्रकार्य को सबैभन्दा महत्त्वपूर्ण प्रयोगहरू मध्ये एक पाठमा एक विशिष्ट पाठ समावेश छ वा छैन भनेर हेर्नु हो।
इमेल ठेगानाहरू मा “gmail” शब्द समावेश छ वा छैन भनी जाँच गर्न एउटा प्रकार्य विकास गरौं।
तपाईँ निम्न प्रयोग गर्न सक्नुहुन्छ VBA code:
⧭ VBA Code:
7680
नोट: यो कोडले एउटा प्रकार्य सिर्जना गर्दछ बोलाइयो जाँच गर्दै ।
⧭ आउटपुट:
यो प्रकार्य कुनै पनि सेलमा चलाउनुहोस् तर्कको रूपमा दुई पाठहरू भएको तपाईंको कार्यपत्रको।
यहाँ, कक्ष E4 मा, हामीले सूत्र प्रविष्ट गरेका छौं:
=Checking(D4,"gmail") <2 यसले हो फर्काएको छ किनभने पहिलो इमेल ठेगाना Gmail ठेगाना हो।
36>
त्यसपछि तपाईँले तान्नुहोस् ह्यान्डल भर्नुहोस् सबै इमेल आईडीहरूको लागि त्यसै गर्न।
⧭ कोडको व्याख्या:
- पहिले, हामीले चेकिङ नामक प्रकार्य घोषणा गर्छौँ जसले लाइन फंक्शन जाँच(Text1,Text2) द्वारा तर्कको रूपमा दुई पाठहरू लिन्छ।
- त्यसपछि हामी Text1 को स्थिति 1 बाट सुरु हुने प्रत्येक खण्ड जाँच गर्ने एउटा लूप सुरु गर्छौं, यो Text2 बराबर छ वा छैन भनी हेर्न। , रेखाद्वारा यदि Mid(Text1, i, Len(Text2)) = Text2 त्यसपछि ।
- यदि यसले Text2 फेला पार्छ, त्यसपछि यो “हो” फर्काउँछ, अन्यथा यसले “No” फर्काउँछ।
- अन्तमा, हामी समापन प्रकार्य लाई द्वारा प्रकार्य समाप्त गर्छौं।
याद गर्नुपर्ने कुराहरू
- <28 मध्य प्रकार्य को 1st तर्क सधैं एक स्ट्रिङ हुनु आवश्यक छैन। यो स्ट्रिङ , नम्बर , वा बुलियन मान पनि हुन सक्छ।
- तर 2nd र 3rd तर्कहरू संख्याहरू हुनुपर्छ। तिनीहरू पूर्णांकहरू वा भिन्नहरू हुन सक्छन् तर संख्याहरू हुनुपर्छ। यदि तिनीहरू भिन्नहरू छन् भने, त्यसपछि मध्यप्रकार्य ले तिनीहरूलाई निकटतम पूर्णांकमा रूपान्तरण गर्नेछ ।
