एक्सेल वीबीए कॉम्बो बॉक्स
कॉम्बो बॉक्स एक ड्रॉप-डाउन सूची है जहां से कोई उपयोगकर्ता कोई आइटम चुन सकता है या अपनी पसंद भर सकता है। बनाने के लिए सम्मिश्रण पटी में एक्सेल VBA, निम्नलिखित चरणों को निष्पादित करें।
1. डेवलपर टैब पर, सम्मिलित करें पर क्लिक करें।
2. ActiveX नियंत्रण समूह में, कॉम्बो बॉक्स पर क्लिक करें।
3. अपने वर्कशीट पर एक कॉम्बो बॉक्स खींचें।
ध्यान दें: आप नियंत्रण पर राइट क्लिक करके नियंत्रण का नाम बदल सकते हैं (सुनिश्चित करें कि डिज़ाइन मोड चुना गया है) और फिर गुणों पर क्लिक करें। अभी के लिए, हम कॉम्बो बॉक्स 1 के नाम के रूप में कॉम्बोबॉक्स 1 छोड़ देंगे।
वर्कबुक ओपन इवेंट बनाएं। वर्कबुक ओपन इवेंट में जोड़ा गया कोड एक्सेल वीबीए द्वारा निष्पादित किया जाएगा जब आप कार्यपुस्तिका खोलेंगे।
4. विजुअल बेसिक एडिटर खोलें।
5. प्रोजेक्ट एक्सप्लोरर में इस वर्कबुक पर डबल क्लिक करें।
6. बाएं ड्रॉप-डाउन सूची से कार्यपुस्तिका चुनें और दाएं ड्रॉप-डाउन सूची से खोलें चुनें।
7. कॉम्बो बॉक्स में आइटम जोड़ने के लिए, वर्कबुक ओपन इवेंट में निम्न कोड लाइन जोड़ें:
.AddItem "Paris"
.AddItem "New York"
.AddItem "London"
End With
ध्यान दें: यदि आपका कॉम्बो बॉक्स दूसरे वर्कशीट पर स्थित है, तो शीट 3 का उपयोग करें, यदि आपका कॉम्बो बॉक्स तीसरे वर्कशीट पर स्थित है, तो आदि। यदि आप वर्कबुक ओपन इवेंट के बाहर इन कोड लाइनों का उपयोग करते हैं, तो आप इन से पहले कोड लाइन जोड़ना चाहेंगे कोड लाइनें पहली कोड लाइन कॉम्बो बॉक्स को साफ़ करती है। यदि आप अपने कोड को एक से अधिक बार निष्पादित करते हैं तो इस तरह आपके आइटम कई बार नहीं जोड़े जाएंगे। दूसरी कोड लाइन आपकी पसंद को साफ़ करती है।
ComboBox1.Value = ""
8. इस कॉम्बो बॉक्स को किसी सेल से जोड़ने के लिए, कॉम्बो बॉक्स पर राइट क्लिक करें (सुनिश्चित करें कि डिज़ाइन मोड चुना गया है) और गुणों पर क्लिक करें। LinkedCell के लिए डी 2 भरें।
नोट: कक्षों की एक श्रृंखला के साथ कॉम्बो बॉक्स भरने के लिए ListFillRange प्रॉपर्टी को भी देखें।
9. एक्सेल फ़ाइल को सहेजें, बंद करें और दोबारा खोलें।
परिणाम:
हालांकि कुछ परिस्थितियों में यह आपके वर्कशीट पर कॉम्बो बॉक्स को सीधे रखने के लिए उपयोगी हो सकता है, लेकिन एक कॉम्बो बॉक्स विशेष रूप से उपयोगी होता है जब उपयोगकर्ताफॉर्म पर रखा जाता है।