लेन फ़ंक्शन वर्कशीट और VBA दोनों के लिए एक सामान्य फ़ंक्शन है, यह दोनों प्लेटफार्मों के लिए एक इनबिल्ट फ़ंक्शन है और इस फ़ंक्शन का उपयोग करने के लिए सिंटैक्स भी समान है, दोनों फ़ंक्शन इस प्लेटफ़ॉर्म में लेने वाले तर्क समान हैं जो एक स्ट्रिंग और उपयोग है या इस फ़ंक्शन के लिए आउटपुट समान है क्योंकि यह एक स्ट्रिंग की लंबाई लौटाता है।
VBA LEN फ़ंक्शन
VBA LEN फ़ंक्शन "स्ट्रिंग की लंबाई" देता है, अर्थात, और यह देता है कि आपूर्ति किए गए मूल्य में कितने वर्ण हैं। VBA में सभी स्ट्रिंग फ़ंक्शंस में से, "LEN" सबसे अधिक उपयोग किया जाने वाला फ़ंक्शन है। मैंने "VBA LEN" फ़ंक्शन को VBA MID फ़ंक्शंस और VBA राइट फ़ंक्शन जैसे अन्य स्ट्रिंग फ़ंक्शंस के लिए समर्थन फ़ंक्शन के रूप में उपयोग किया है।
आप स्ट्रिंग की लंबाई या मूल्य कैसे पाते हैं?
उदाहरण के लिए, यदि आप वाक्य "हेलो दोस्तों, गुड मॉर्निंग !!!" और आप इसमें वर्णों की संख्या का पता लगाना चाहते हैं, आप इसे कैसे ढूंढते हैं? इस लेख में, हम आपको "VBA LEN" फ़ंक्शन दिखाएंगे।
VBA LEN फ़ंक्शन का सूत्र
LEN फंक्शन में केवल एक सिंटैक्स होता है, यानी, एक्सप्रेशन।
एक अभिव्यक्ति और कुछ नहीं बल्कि वह मूल्य है जिसे हम परखना चाहते हैं।
उदाहरण के लिए, लेन ("अच्छा") 4 वापस आ जाएगा।
उदाहरण
नीचे स्ट्रिंग फ़ंक्शन के VBA लंबाई के उदाहरण दिए गए हैं।
उदाहरण 1
VBA स्ट्रिंग फ़ंक्शन की लंबाई उपयोग करने के लिए बहुत सरल है। उदाहरण के लिए, नीचे दिए गए VBA कोड को देखें।
कोड:
उप LEN_Example () स्ट्रिंग Total_Length जैसा स्ट्रिंग Total_Length = लेन ("एक्सेल VBA") MsgBox Total_Length अंत उप
उपरोक्त कोड चर में "Total_Length" है।
स्ट्रिंग के रूप में मंद Total_Length
इस चर के लिए, हमने VBA LEN फ़ंक्शन के माध्यम से मान असाइन किया है।
Total_Length = लेन ("एक्सेल VBA")
LEN फ़ंक्शन के लिए, हमने "Excel VBA" के रूप में मान असाइन किया है।
Total_Length = लेन ("एक्सेल VBA")
अगला, हम VBA संदेश बॉक्स में परिणाम दिखा रहे हैं।
MsgBox Total_Length
जब मैं F5 कुंजी या मैन्युअल का उपयोग करके इस कोड को चलाता हूं, तो हमें 9 परिणाम मिलेंगे क्योंकि अंतरिक्ष भी एक चरित्र है।
VBA LEN सपोर्ट फंक्शन के रूप में
उदाहरण 1
LEN फ़ंक्शन का उद्देश्य ज्यादातर अन्य कार्यों के साथ उपयोग किया जाता है। मैंने इस फ़ंक्शन का उपयोग राइट एंड इंस्ट्र फ़ंक्शंस के साथ किया है।
उदाहरण के लिए, नीचे दिए गए नमूना डेटा को देखें।
उपरोक्त डेटा से, हमें अलग से तिथि निकालने और अलग से रिमार्क्स की आवश्यकता है। उपरोक्त डेटा को अपनी एक्सेल शीट पर कॉपी करें और सेल A1 में पेस्ट करें।
इन तत्वों को निकालने के लिए, हमें अन्य स्ट्रिंग फ़ंक्शन के साथ LEN फ़ंक्शन का उपयोग करने की आवश्यकता है। नीचे दिया गया कोड हमारे लिए काम करेगा।
कोड:
सब LEN_Example1 () डिम आवरवैल्यू ऐज स्ट्रिंग डिम k as लॉन्ग फॉर k = 2 टू 6 'इस मामले में मेरा डेटा दूसरी सेल से शुरू होकर 6 वें पर समाप्त होता है। 'अपने डेटा के आधार पर नंबर बदलिए OurValue = ActiveSheet.Cells (k, 1) .Value' यह पहले 10 वर्णों को निकालेगा अर्थात् दिनांक भाग ActiveSheet.Cells (k, 2) .Value = Left (ट्रिम (OurValue), 10)। 'यह सक्रिय टिप्पणी का अंश निकाल देगा
जब हम इस कोड को मैन्युअल रूप से या F5 कुंजी के माध्यम से चलाते हैं, तो हमें नीचे जैसा परिणाम मिलेगा।
उदाहरण # 2
अब मैं आपको दिखाऊंगा कि RIGHT & Instr फ़ंक्शन के साथ पूर्ण नाम के अंतिम नाम को निकालने के लिए समर्थन फ़ंक्शन के रूप में VBA लंबाई की स्ट्रिंग का उपयोग कैसे करें।
प्रदर्शन के लिए, नीचे दिए गए डेटा को देखें।
उपरोक्त सूची से, हमें पूर्ण नाम से अंतिम नाम निकालने की आवश्यकता है। नीचे दिया गया कोड अंतिम नाम निकालेगा। LEN का उपयोग यहाँ समर्थन समारोह के रूप में किया जाता है।
कोड:
Sub LEN_Example2 () डिम FullName As String Dim k k लंबे समय तक k = 2 To 8 FullName = ActiveSheet.Cells (k, 1) .Value 'यह अंतिम नाम ActiveSheet.Cells (k, 2) निकाल देगा ।Value = Right (FullName) , लेन (FullName) - InStr (1, FullName, "")) 'LEN को वर्णों की पूरी संख्या मिलती है' Instr पाता है अंतरिक्ष वर्ण 'LEN - Inst सही से कुल वर्ण देगा
F5 कुंजी का उपयोग करके कोड चलाएँ, या आप मैन्युअल रूप से चला सकते हैं और परिणाम देख सकते हैं।
आप इस Excel VBA लंबाई की स्ट्रिंग को यहाँ डाउनलोड कर सकते हैं - VBA LEN फ़ंक्शन टेम्प्लेट
