वीबीए में, आप एक बना सकते हैं सूची बाक्स जहां उपयोगकर्ता सूचीबद्ध विकल्पों में से किसी एक को चुन सकता है। लिस्टबॉक्स अक्सर उपयोगकर्ताफॉर्म में उपयोग किया जाता है, लेकिन वर्कशीट में भी इसका इस्तेमाल किया जा सकता है। इस ट्यूटोरियल में, आप सीखेंगे कि लिस्टबॉक्स कैसे बनाएं, पॉप्युलेट और डिलीट कैसे करें। आप यह भी देखेंगे कि वीबीए में उपयोगकर्ता की पसंद कैसे प्राप्त करें और इसे कोड में कैसे उपयोग करें।
यदि आप कॉम्बोबॉक्स बनाना सीखना चाहते हैं, तो यहां क्लिक करें: वीबीए कॉम्बोबॉक्स
यदि आप सीखना चाहते हैं कि चेकबॉक्स कैसे बनाया जाता है, तो यहां क्लिक करें: वीबीए चेकबॉक्स
एक लिस्टबॉक्स बनाएं
वर्कशीट में लिस्टबॉक्स डालने के लिए, आपको पर जाना होगा डेवलपर टैबक्लिक करें डालने और ActiveX नियंत्रण के अंतर्गत चुनें सूची बाक्स:
छवि 1. वर्कशीट में एक लिस्टबॉक्स डालें
जब आप अपने द्वारा डाले गए लिस्टबॉक्स का चयन करते हैं, तो आप पर क्लिक कर सकते हैं गुण नीचे डेवलपर टैब:
छवि 2. सूची बॉक्स गुण बदलें
यहां आप लिस्टबॉक्स के विभिन्न गुण सेट कर सकते हैं। शुरुआत के लिए, हमने विशेषता बदल दी नाम प्रति पहली सूची बॉक्स. अब, हम वीबीए कोड में इस नाम के साथ लिस्टबॉक्स का उपयोग कर सकते हैं।
वीबीए कोड में एक लिस्टबॉक्स पॉप्युलेट करें
सबसे पहले, हमें लिस्टबॉक्स को मूल्यों के साथ पॉप्युलेट करने की आवश्यकता है। ज्यादातर मामलों में, कार्यपुस्तिका खोले जाने पर एक सूची बॉक्स को पॉप्युलेट करने की आवश्यकता होती है। इस वजह से, हमें ऑब्जेक्ट में लिस्टबॉक्स को पॉप्युलेट करने के लिए एक कोड डालना होगा वर्कबुक, प्रक्रिया खोलना। हर बार जब कोई उपयोगकर्ता कार्यपुस्तिका खोलता है तो यह प्रक्रिया निष्पादित की जाती है। यहाँ कोड है:
| 123456789 | शीट 1.lstListBox के साथ.AddItem "जॉन".AddItem "माइकल".AddItem "जेनिफर".AddItem "लिली".AddItem "रॉबर्ट"के साथ समाप्त करना |
जैसा कि आप चित्र 3 में देख सकते हैं, हमने अपने लिस्टबॉक्स को 5 नामों (जॉन, माइकल, जेनिफर, लिली और रॉबर्ट) से भर दिया है:
छवि 3. वीबीए में लिस्टबॉक्स को पॉप्युलेट करें
सेल रेंज से एक लिस्टबॉक्स पॉप्युलेट करें
लिस्टबॉक्स को पॉप्युलेट करने का एक और संभावित तरीका यह है कि उपयोगकर्ता को ऐसा करने दें। एक लिस्टबॉक्स को सेल रेंज से जोड़ा जा सकता है। इसलिए, जब भी कोई उपयोगकर्ता कक्ष श्रेणी में कोई नया मान दर्ज करता है, तो सूची बॉक्स उस मान के साथ अद्यतन हो जाएगा।
यदि आप इसे सक्षम करना चाहते हैं, तो आपको जाना होगा गुण ListBox की और विशेषता सेट करें सूची भरें रेंज:
छवि 4. सेल रेंज से लिस्टबॉक्स को पॉप्युलेट करें
हमने अपने लिस्टबॉक्स को E2:E5 श्रेणी के साथ जोड़ा है, जहां हम अपने इच्छित नाम (नाथन, हैरी, जॉर्ज, रॉबर्टा) डालते हैं। परिणामस्वरूप, लिस्टबॉक्स अब इन नामों से भर गया है।
वीबीए में एक सूची बॉक्स का एक चयनित आइटम प्राप्त करें
लिस्टबॉक्स का उद्देश्य उपयोगकर्ताओं की पसंद प्राप्त करना है। उपयोगकर्ता द्वारा चुने गए मान को पुनः प्राप्त करने के लिए, आपको इस कोड का उपयोग करने की आवश्यकता है:
| 123 | मंद strSelectedItem रूपांतर के रूप मेंstrSelectedItem = Sheet1.lstListBox.Value |
उपयोगकर्ता चयन विशेषता में है मूल्य का पत्रक1.lstListbox वस्तु। यह मान चर को सौंपा गया है strSelectedItem:
छवि 5. VBA में लिस्टबॉक्स से चयनित मान प्राप्त करें
हमने चुना सताना लिस्टबॉक्स में और प्रक्रिया को अंजाम दिया। जैसा कि आप चित्र 5 में देख सकते हैं, का मान strSelectedItem है सताना, जो वह मान है जिसे हमने चुना है। इसके अलावा, आप इस चर को कोड में संसाधित कर सकते हैं।
एक सूची बॉक्स साफ़ करें
वीबीए में एक सूची बॉक्स को साफ़ करने के लिए, आपको उपयोग करने की आवश्यकता है स्पष्ट उसकि विधि पत्रक1.lstListBox वस्तु। यह लिस्टबॉक्स से सभी आइटम हटा देगा। यहाँ कोड है:
| 1 | शीट1.lstListBox.Clear |
जब हम कोड निष्पादित करते हैं, तो हमें खाली लिस्टबॉक्स मिलता है:
छवि 6. सूची बॉक्स साफ़ करें
उपयोगकर्ताफॉर्म में एक सूची बॉक्स का प्रयोग करें
जैसा कि हमने उल्लेख किया है, लिस्टबॉक्स का उपयोग अक्सर यूजरफॉर्म में किया जाता है। यह समझाने के लिए कि आप इसे कैसे कर सकते हैं, हम पहले एक Userform सम्मिलित करेंगे। VBA संपादक में, मॉड्यूल नाम पर राइट-क्लिक करें, पर क्लिक करें डालने और चुनें userform:
छवि 7. एक उपयोगकर्ताफॉर्म डालें
डालने के लिए नियंत्रण प्रदर्शित करने के लिए, आपको सक्षम करने की आवश्यकता है उपकरण बॉक्स. ऐसा करने के लिए, पर क्लिक करेंउपकरण बॉक्स टूलबार में आइकन। उसके बाद, आपको सभी उपलब्ध नियंत्रणों के साथ खिड़कियाँ मिलेंगी। आप क्लिक कर सकते हैं सूची बाक्स इसे Userform में बनाने के लिए।
छवि 8. उपयोगकर्ताफॉर्म में एक सूची बॉक्स डालें
हम ComboBox का नाम रखेंगे cmbकॉम्बोबॉक्स. इसे मूल्यों के साथ भरने के लिए, हमें निम्नलिखित कोड को विधि में डालना होगा: प्रारंभ वस्तु का userform:
| 12345678910111213 | निजी उप UserForm_Initialize ()UserForm1.lstListBox के साथ.AddItem "जॉन".AddItem "माइकल".AddItem "जेनिफर".AddItem "लिली".AddItem "रॉबर्ट"के साथ समाप्त करनाअंत उप |
यह कोड हर बार जब कोई उपयोगकर्ता उपयोगकर्ताफॉर्म चलाता है और इन 5 नामों के साथ लिस्टबॉक्स को पॉप्युलेट करता है:
छवि 9. उपयोगकर्ताफॉर्म में मूल्यों के साथ सूची बॉक्स
यदि आप कॉम्बोबॉक्स से चयनित मूल्य प्राप्त करना चाहते हैं, तो आपको वर्कशीट में कॉम्बोबॉक्स के लिए उसी तर्क का उपयोग करने की आवश्यकता है, जिसे पहले लेख में समझाया गया है।
