एक्सेल VBA मिड फंक्शन
VBA MID फ़ंक्शन आपूर्ति किए गए वाक्य या शब्द के बीच से मान निकालता है। MID फ़ंक्शन को स्ट्रिंग और टेक्स्ट फ़ंक्शन के अंतर्गत वर्गीकृत किया गया है और यह एक वर्कशीट फ़ंक्शन है जिसका अर्थ है कि VBA में इस फ़ंक्शन का उपयोग करने के लिए हमें application.worksheet विधि का उपयोग करने की आवश्यकता है।
ऐसी परिस्थितियाँ हैं जहाँ हम पहला नाम, अंतिम नाम या मध्य नाम निकालना चाहते हैं। उन स्थितियों में, TEXT श्रेणी के सूत्र हमारी आवश्यकताओं को पूरा करने में सहायक होते हैं। इस फ़ंक्शन का उपयोग कार्यपत्रक संदर्भ के समान है, और सिंटैक्स भी समान है।
वाक्य - विन्यास
हमारे एक्सेल एमआईडी फ़ंक्शन की तरह, वीबीए में भी, इसमें सिंटैक्स मानों का एक समान सेट है। नीचे वाक्य विन्यास है।
- स्ट्रिंग टू सर्च: यह कुछ भी नहीं है लेकिन स्ट्रिंग का वाक्य क्या है, यानी आप किस स्ट्रिंग या शब्द से मान निकालना चाहेंगे।
- आरंभिक स्थिति: वाक्य के किस स्थान से आप निकालना चाहते हैं। यह एक संख्यात्मक मान होना चाहिए।
- निकालने के लिए वर्णों की संख्या: प्रारंभिक स्थिति से, आप कितने वर्ण निकालना चाहते हैं? यह भी एक संख्यात्मक मूल्य होना चाहिए।
VBA MID फ़ंक्शन का उपयोग कैसे करें?
उदाहरण 1
मान लें कि आपके पास "नमस्ते गुड मॉर्निंग" शब्द है, और आप इस वाक्य से "गुड" निकालना चाहते हैं। मूल्य निकालने के लिए नीचे दिए गए चरणों का पालन करें।
चरण 1: पहले एक मैक्रो नाम बनाएँ।
कोड:
उप MID_VBA_Example1 () समाप्ति उप
चरण 2: एक चर को "STRING" घोषित करें।
कोड:
उप MID_VBA_Example1 () मंद मध्यवृत्तांत स्ट्रिंग अंत उप के रूप में
चरण 3: अब MID फ़ंक्शन के माध्यम से इस चर के लिए एक मान असाइन करें।
कोड:
Sub MID_VBA_Example1 () मंद मिडिलव्यू स्ट्रिंग मिडिलव्यू = मिड (एंड सब) के रूप में
चरण 4: पहला तर्क स्ट्रिंग है, अर्थात, जिस मूल्य से हम निकालना चाहते हैं। तो हमारा मूल्य है "नमस्ते गुड मॉर्निंग।"
कोड:
Sub MID_VBA_Example1 () मंद मिडिलव्यू स्ट्रिंग मिडिलव्यू = मिड ("हैलो गुड मॉर्निंग", एंड सब के रूप में
चरण 5: अगला वह तरीका है, जिसे आप निकालना चाहते हैं। इस मामले में, गुड मॉर्निंग की शुरुआत 7 वें चरित्र से होती है।
नोट: अंतरिक्ष भी एक वर्ण है।
कोड:
Sub MID_VBA_Example1 () मंद मिडिलव्यू स्ट्रिंग मिडिलव्यू = मिड ("हैलो गुड मॉर्निंग", 7 एंड सब के रूप में
चरण 6: लंबाई और कुछ नहीं बल्कि आप कितने वर्ण निकालना चाहते हैं। शब्द "गुड" 4 वर्णों की लंबाई के कारण हमें यहां 4 वर्ण निकालने की आवश्यकता है।
कोड:
Sub MID_VBA_Example1 () मंद मिडलव्यू स्ट्रिंग मिडिलव्यू = मिड ("हैलो गुड मॉर्निंग", 7, 4) एंड सब के रूप में
चरण 7: हमने फॉर्मूला पूरा कर लिया है। संदेश बॉक्स में चर का परिणाम दिखाते हैं।
कोड:
Sub MID_VBA_Example1 () मंद मिडलव्यू स्ट्रिंग मिडिलव्यू = मिड ("हैलो गुड मॉर्निंग", 7, 4) MsgBox मिडिलव्यू एंड सब के रूप में
चरण 8: अब इस कोड को मैन्युअल रूप से चलाएं या F5 कुंजी दबाएं, संदेश बॉक्स को "अच्छा" शब्द दिखाना चाहिए।
आउटपुट:
उदाहरण # 2
मान लें कि आपका पहला नाम और अंतिम नाम एक साथ है, और शब्द "रमेश, तेंदुलकर" है। प्रथम नाम और अंतिम नाम के बीच, पृथक्करण वर्ण एक अल्पविराम (,) है। अब हमें केवल पहला नाम निकालने की आवश्यकता है।
चरण 1: एक मैक्रो बनाएँ और एक चर को परिभाषित करें।
कोड:
उप MID_VBA_Example2 () मंद प्रथम नाम स्ट्रिंग अंत उप के रूप में
चरण 2: अब MID फ़ंक्शन के माध्यम से इस चर के लिए एक मान असाइन करें।
कोड:
उप MID_VBA_Example2 () प्रथम FirstName = मध्य (अंतिम उप) के रूप में मंद प्रथम नाम
चरण 3: हमारा स्ट्रिंग "रमेश। तेन्दुलकर" है, इसलिए इस शब्द को दर्ज करें।
कोड:
Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar", End Sub
Step 4: Since we are extracting the first name starting position is 1.
Code:
Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar",1, End Sub
Step 5: Length of the character you can directly enter as 6, but this is not the best way. In order to determine the length, let’s apply one more formula called Instr.
Code:
Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar",1,InStr( End Sub
Step 6: For this starting position is 1.
Code:
Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar",1,InStr(1, End Sub
Step 7: String 1 is our name, i.e., “Ramesh, Tendulkar.”
Code:
Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar",1,InStr(1,"Ramesh,Tendulkar", End Sub
Step 8: String 2 what is the separator of first name & last name, i.e., comma (,).
Code:
Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar",1,InStr(1,"Ramesh,Tendulkar",",") End Sub
Note: Instr function will return how many characters are there in the word “Ramesh, Tendulkar” from the string 1 position to the string 2 positions, i.e., until comma (,). So Instr will return 7 as a result, including comma (,).
Step 9: Since Instr function returns no., of characters including comma (,) we need to minus 1 character here. So enter -1 after the close of Instr function.
Code:
Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar", 1, InStr(1, "Ramesh,Tendulkar", ",") - 1) End Sub
Step 10: Now show the value of the variable in the message box.
Code:
Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar", 1, InStr(1, "Ramesh,Tendulkar", ",") - 1) MsgBox FirstName End Sub
Step 11: Run this code using the F5 key, or you can run this code manually. We would get the first name in the message box.
Output:
Example #3
Now I will give you one assignment to solve. I have a list of First Name & Last Name.
From this list, I want you to extract the first name only. All the best!!!!.
Ok, If you have tried and not able to get the result, then the below code would help you in this.
Code:
उप MID_VBA_Example3 () डिम i ऐज़ लॉन्ग फ़ॉर i = 2 टू 15 सेल्स (i, 2)। वाल्यू = मिड (सेल्स (i, 1)। वैल्यू, 1, इनस्ट्रीम (1, सेल्स (i, 1)। वैल्यू, ") , ") - 1) अगला मैं अंत उप
उपरोक्त कोड को अपने मॉड्यूल में कॉपी और पेस्ट करें। कोड की प्रतिलिपि बनाने के बाद, F5 कुंजी का उपयोग करके इस कोड को चलाएं, या आप मैन्युअल रूप से चला सकते हैं।
यह नीचे की तरह एक परिणाम देना चाहिए।
याद रखने वाली चीज़ें
- MID फ़ंक्शन में लंबाई तर्क वैकल्पिक है। यदि आप इसे अनदेखा करते हैं, तो यह डिफ़ॉल्ट मान के रूप में 1 लेगा।
- लंबाई या शुरुआती स्थिति का निर्धारण करने के लिए MID फ़ंक्शन के साथ इंस्ट्र फ़ंक्शन का उपयोग करें।
