विषय - सूची
आप लॉजिक पर प्रदर्शन कर सकते हैं, या स्ट्रिंग के माध्यम से लूप करके VBA में एक स्ट्रिंग से अलग-अलग वर्णों को वापस कर सकते हैं।
एक स्ट्रिंग में प्रत्येक वर्ण के माध्यम से लूप
निम्नलिखित एक स्ट्रिंग के माध्यम से एक फॉर… नेक्स्ट लूप का उपयोग करके लूपिंग का एक उदाहरण है, और प्रत्येक वर्ण को एक संदेशबॉक्स में वापस कर रहा है।
| 1234567891011121314 | उप लूपथ्रूस्ट्रिंग ()पूर्णांक के रूप में मंद काउंटरस्ट्रिंग के रूप में मंद MyStringMyString = "AutomateExcel" 'स्ट्रिंग को परिभाषित करेंकाउंटर के लिए = 1 से लेन (MyString)'स्ट्रिंग में प्रत्येक वर्ण के लिए कुछ करें''यहाँ हम प्रत्येक अक्षर को msgbox करेंगेMsgBox मिड (माईस्ट्रिंग, काउंटर, 1)अगलाअंत उप |
लेन फ़ंक्शन स्ट्रिंग में वर्णों की कुल संख्या की गणना करता है। तो अभिव्यक्ति
| 1 | काउंटर के लिए = 1 से लेन (MyString .) |
स्ट्रिंग में प्रत्येक अक्षर के माध्यम से लूप होगा।
एक स्ट्रिंग में प्रत्येक वर्ण के माध्यम से लूप - वैकल्पिक
प्रत्येक वर्ण को एक स्ट्रिंग में पढ़ें
: यह उदाहरण एक स्ट्रिंग में बाएं से दाएं प्रत्येक वर्ण को पढ़ता है और परिणाम को एक संदेश बॉक्स में देता है। यह का उपयोग करता है मध्य समारोह।
| 12345678910111213 | उप लूपथ्रूस्ट्रिंग ()डिम लुकइनयहां स्ट्रिंग के रूप मेंपूर्णांक के रूप में मंद काउंटर'यहां अपने पाठ का प्रयोग करेंलुकइनहेयर = "easyexcel.net"काउंटर के लिए = 1 से लेन (यहां देखें)MsgBox मिड (लुक इनहेयर, काउंटर, १)अगलाअंत उप |
हर शब्द को एक स्ट्रिंग में पढ़ें
यह उदाहरण स्ट्रिंग में प्रत्येक शब्द को बाएं से दाएं पढ़ता है और परिणाम को एक संदेश बॉक्स में देता है। यह का उपयोग करता है विभाजित करना समारोह।
| 1234567891011121314151617 | उप लूपथ्रूस्ट्रिंग2 ()डिम लुकइनयहां स्ट्रिंग के रूप मेंपूर्णांक के रूप में मंद काउंटरडिम स्प्लिटकैचर वेरिएंट के रूप में'यहां अपने स्वयं के पाठ का प्रयोग करेंलुकइनहेयर = "आई हार्ट Easyexcel.net"स्प्लिटकैचर = स्प्लिट (लुकइनहेयर, "")काउंटर के लिए = 0 से यूबाउंड (स्प्लिटकैचर)MsgBox स्प्लिटकैचर (काउंटर)अगलाअंत उप |
