VBA / VB6 - खोलने के लिए एक कॉम्बो बॉक्स को बल दें

Excel जब VBA के साथ संयुक्त होता है, तो अनुकूलित और स्वचालित डेटा विश्लेषण समाधान बनाने के लिए एक शक्तिशाली उपकरण बनाता है। VBA में कॉम्बो बॉक्स जैसे अंतर्निहित नियंत्रण हैं जो उपयोगकर्ताओं को पहले से ही आबादी वाली सूची से चयन करने या अपने स्वयं के इनपुट की आपूर्ति करने की अनुमति देते हैं। एक कस्टम कोड में SetFocus विधि का उपयोग करके दो कॉम्बो बॉक्स को लिंक कर सकते हैं। उसके बाद, उपयोगकर्ता एक अन्य कोड चला सकता है जो एक कॉम्बो बॉक्स से लौटने वाले कीकोड का उपयोग दूसरे को प्रारंभ करने के लिए करता है। यह सुविधा प्रोग्रामर को इस तरह से एक कोड सेट करने में मदद करती है कि एक बार कॉम्बो बॉक्स 1 में चयन हो जाने के बाद, यह दूसरे कॉम्बो बॉक्स को स्वतः खोलने का कारण बनता है।

एक ComboBox को खोलने के लिए मजबूर करने के लिए निम्न कार्य है ...

 ComboBox1.DropDown

लेकिन ... इसके लिए हमारे पास ComboBox फ़ोकस है, और अगर दूसरे नियंत्रण से कमांड नहीं खुलेगी।

एक और कॉम्बो बॉक्स खोलने के लिए आपको यहां एक ट्रिक का उपयोग करना चाहिए:

एक वर्कशीट या एक UserForm पर 2 ComboBox रखें और उन्हें क्रमशः ComboBox1 और CombBox2 नाम दें
दो कॉम्बो बॉक्स को जोड़ने के लिए निम्नलिखित कोड का उपयोग करें:

 निजी उप ComboBox1_Change () '========== कॉम्बो सुर यूएन feuille ========= 1' ComboBox2.Activate '========== कॉम्बो सुर संयुक्त राष्ट्र UserForm कहां VB6 ========= 2 'ComboBox2.SetFocus' ================================== ======== SendKeys "^ (F4)" अंतिम उप निजी उप ComboBox2_KeyDown (MSForms.ReturnInteger के रूप में ByVal KeyCode, पूर्णांक के रूप में बाई शिफ्ट: KeyCode = 16 तब ComboBox2.DropDown अंत यदि उप उप अंत है

कॉम्बोबॉक्स के स्थान के आधार पर लाइन 1 या 2 को साफ़ करके।

परिणाम: जब आप एक कॉम्बो 1 पर चयन करते हैं, तो दूसरा स्वचालित रूप से खुलता है।

Excel 97 - 2003 के लिए नमूना डाउनलोड करें