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