एक्सेल में VBA के मिड फंक्शन के 3 उदाहरण

इस बार, मिड फंक्शन<को एक्सप्लोर करते हैं। 2> of VBA विस्तार से कुछ उदाहरणों के साथ।

1। एक्सेल में VBA के मिड फंक्शन का उपयोग करके कुछ आईडी के मध्य से वर्णों की संख्या को अलग करना

यहाँ हमें आईडी और के साथ एक डेटा सेट मिला है सैटर्न ग्रुप नामक कंपनी के कुछ कर्मचारियों के नाम ।

यहाँ, चौथा से सातवें प्रत्येक के वर्ण आईडी संबंधित कर्मचारी के ज्वाइनिंग वर्ष को दर्शाता है।

अब हम VBA के मिड फंक्शन का उपयोग करके यूजर-डिफाइंड फंक्शन विकसित करेंगे। जो कर्मचारी आईडी से प्रत्येक कर्मचारी का ज्वाइनिंग वर्ष निकालेगा।

आप निम्नलिखित VBA कोड का उपयोग कर सकते हैं:

⧭ VBA कोड:

2920

ध्यान दें: यह कोड Joining_Year नामक एक फंक्शन बनाता है।

⧭ आउटपुट:

इसे रन करें तर्क के रूप में आईडी के साथ आपकी वर्कशीट के किसी भी सेल में कार्य करता है।

यहाँ, सेल D4 में, हमने सूत्र दर्ज किया है:

इसने पहले कर्मचारी का ज्वाइनिंग ईयर वापस कर दिया है, 2021 ।

अब आप को ड्रैग कर सकते हैं भरण हैंडल बाकी कर्मचारियों के ज्वाइनिंग वर्ष जानने के लिए।

⧭ कोड की व्याख्या:

• सबसे पहले, हम Joining_Year नामक एक फ़ंक्शन की घोषणा करते हैं जो लाइन Function Joining_Year(ID) द्वारा इनपुट के रूप में एक आईडी लेता है।
• फिर हम स्थिति 4 से Joining_Year = Mid(ID, 4, 4) द्वारा ID से 4 अक्षर निकालते हैं।
• लाइन एंड फंक्शन फंक्शन के अंत की घोषणा करती है।

2। एक्सेल में VBA के मिड फंक्शन का उपयोग करके कुछ ईमेल पतों से एक्सटेंशन निकालना

अब हमने डेटा सेट में एक नया कॉलम जोड़ा है, जिसमें कर्मचारियों के ईमेल पते शामिल हैं।

इस बार हम VBA के मध्य फ़ंक्शन का उपयोग करके ईमेल पतों के एक्सटेंशन निकालेंगे।

VBA कोड होगा:

⧭ VBA कोड:

3336

ध्यान दें: यह कोड एक्सटेंशन नामक एक फंक्शन बनाता है।

⧭ आउटपुट:

इसे रन करें ईमेल के साथ अपने वर्कशीट के किसी भी सेल में कार्य करेंपता तर्क के रूप में।

यहां, सेल E4 में, हमने सूत्र दर्ज किया है:

इसने पहले ईमेल पते का विस्तार वापस कर दिया है।

फिर आप सभी ईमेल के विस्तार को निकालने के लिए फिल हैंडल को खींच सकते हैं पते।

⧭ कोड की व्याख्या

• सबसे पहले, हम एक फ़ंक्शन की घोषणा करते हैं जिसे कहा जाता है एक्सटेंशन जो लाइन फंक्शन एक्सटेंशन(ईमेल_एड्रेस) द्वारा इनपुट के रूप में कोई भी नाम लेता है।
• फिर हम फॉर-लूप<2 के साथ एक पुनरावृत्ति शुरू करते हैं> जो यह देखने के लिए ईमेल पता के प्रत्येक वर्ण की जांच करता है कि यह @ है या नहीं, रेखा If Mid(Email_Address, i, 1) = “@” फिर .
• अगर इसे @ मिलता है, तो यह ईमेल एड्रेस से लाइन एक्सटेंशन = मिड(ईमेल_एड्रेस, i) से आवश्यक एक्सटेंशन निकालता है। + 1, लेन(ईमेल_एड्रेस) - (i + 4)) .
• अंत में, हम समारोह के अंत की घोषणा करते हैं।

3। यह देखने के लिए कुछ टेक्स्ट की जाँच करना कि उनमें कोई विशिष्ट टेक्स्ट है या नहीं

मिड फंक्शन के सबसे महत्वपूर्ण उपयोगों में से एक यह देखना है कि किसी टेक्स्ट में कोई विशिष्ट टेक्स्ट है या नहीं .

चलिए ईमेल पतों में "gmail" शब्द शामिल है या नहीं, यह जांचने के लिए एक फ़ंक्शन विकसित करें।

आप निम्न का उपयोग कर सकते हैं VBA कोड:

⧭ VBA कोड:

7248

नोट: यह कोड एक फ़ंक्शन बनाता है बुलाया चेकिंग ।

⧭ आउटपुट:

इस फ़ंक्शन को किसी भी सेल में चलाएं तर्क के रूप में दो पाठों के साथ आपकी वर्कशीट का।

यहाँ, कक्ष E4 में, हमने सूत्र दर्ज किया है:

यह हां वापस आ गया है क्योंकि पहला ईमेल पता जीमेल पता है।

फिर आप इसे खींच सकते हैं फील हैंडल सभी ईमेल आईडी के लिए ऐसा ही करें।

⧭ कोड की व्याख्या:<2

• सबसे पहले, हम चेकिंग नामक एक फ़ंक्शन की घोषणा करते हैं जो लाइन फ़ंक्शन चेकिंग(टेक्स्ट1,टेक्स्ट2) द्वारा तर्कों के रूप में दो टेक्स्ट लेता है।
• फिर हम लूप के लिए शुरू करते हैं जो स्थिति टेक्स्ट1 के प्रत्येक सेगमेंट की जांच स्थिति 1 से शुरू करते हैं, यह देखने के लिए कि यह टेक्स्ट2 के बराबर है या नहीं , लाइन द्वारा यदि Mid(Text1, i, Len(Text2)) = Text2 तो ।
• अगर यह टेक्स्ट2 पाता है, तो यह “हां” लौटाता है, अन्यथा यह “नहीं” देता है।
• अंत में, हम एंड फंक्शन लाइन द्वारा फंक्शन को समाप्त करते हैं।

याद रखने योग्य बातें

<28 मिड फंक्शन का पहला आर्गुमेंट हमेशा एक स्ट्रिंग नहीं होना चाहिए। यह स्ट्रिंग , संख्या , या बूलियन मान भी हो सकता है।
• लेकिन दूसरा और तीसरा तर्क संख्या होने चाहिए। वे पूर्णांक या अंश हो सकते हैं लेकिन संख्या होने चाहिए। यदि वे अंश हैं, तो मध्यफ़ंक्शन उन्हें निकटतम पूर्णांक में परिवर्तित कर देगा।