एक्सेल में नामांकित रेंज के डेटा के साथ कॉम्बो बॉक्स को कैसे पॉप्युलेट करें?

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

VBA कोड के साथ नामित श्रेणी के डेटा के साथ कॉम्बो बॉक्स को पॉप्युलेट करें

VBA कोड के साथ नामित श्रेणी के डेटा के साथ कॉम्बो बॉक्स को पॉप्युलेट करें

एक्सेल में नामित श्रेणी के डेटा के साथ कॉम्बो बॉक्स को पॉप्युलेट करने के लिए कृपया निम्नानुसार कार्य करें।

1. कृपया अपनी वर्कशीट में संपूर्ण हेडर चुनें (इस मामले में, मैं A1:E1 चुनता हूं) और फिर उसमें एक नाम टाइप करें नाम बॉक्स जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है।

2. उसके हेडर को छोड़कर प्रत्येक कॉलम डेटा का चयन करें, और फिर कॉलम को अलग से नाम दें नाम बॉक्स. स्क्रीनशॉट देखें:

इस मामले में, मैंने श्रेणी A2:A8, B2:B8, C2:C8, D2:D8 और E2:E8 को दिनांक, दुकान, आइटम, बिक्री और सप्ताह के दिन के रूप में अलग-अलग नाम दिया है।

3. फिर क्लिक करके कॉम्बो बॉक्स डालें डेवलपर > सम्मिलित करें > कॉम्बो बॉक्स (एक्टिवएक्स कंट्रोल). स्क्रीनशॉट देखें:

4. वर्कशीट में एक और कॉम्बो बॉक्स डालने के लिए चरण 3 को दोहराएं।

5. शीट टैब पर राइट-क्लिक करें और फिर क्लिक करें कोड देखें संदर्भ मेनू से. स्क्रीनशॉट देखें:

6. उद्घाटन में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया नीचे दिए गए वीबीए कोड को कोड विंडो में कॉपी और पेस्ट करें।

वीबीए कोड: नामित श्रेणी के डेटा के साथ कॉम्बो बॉक्स को पॉप्युलेट करें

Private Sub ComboBox1_Change()
'Updated by Extendoffice 2018/1/30
    Dim xRg As Range
    Set xRg = Range(Me.ComboBox1.Text)
    Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xRg As Range
    Set xRg = Range("Headers")
    Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
End Sub

नोट: कोड में, ComboBox1 कॉम्बो बॉक्स का नाम है जिसके अंदर आप सभी रेंज नामों को सूचीबद्ध करेंगे, और ComboBox2 कॉम्बो बॉक्स का नाम है जिसके अंदर निर्दिष्ट नामित रेंज का डेटा पॉप्युलेट किया जाएगा। "हेडर" वह श्रेणी नाम है जिसे आपने चरण 1 में बनाया है।

7. क्लिक करके डिज़ाइन मोड को बंद करें डेवलपर > डिजाइन मोड.

8. कोड को सक्रिय करने के लिए वर्कशीट में किसी भी सेल पर क्लिक करें। पहले कॉम्बो बॉक्स में तीर बटन पर क्लिक करें, आप देख सकते हैं कि सभी नामित श्रेणियाँ अंदर सूचीबद्ध हैं। स्क्रीनशॉट देखें:

पहले कॉम्बो बॉक्स में नामित श्रेणी का चयन करते समय, संबंधित सेल डेटा दूसरे कॉम्बो बॉक्स में पॉप्युलेट किया जाएगा जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है:

संबंधित आलेख:

• Excel में कॉम्बो बॉक्स मान को सक्रिय सेल में कैसे कॉपी करें?
• एक्सेल में कॉम्बो बॉक्स आउटपुट में दिनांक प्रारूप कैसे प्रदर्शित करें?
• एक्सेल में कॉम्बो बॉक्स में टाइपिंग को कैसे रोकें या अक्षम करें?
• वर्कबुक ओपन पर निर्दिष्ट डेटा के साथ कॉम्बो बॉक्स कैसे भरें?
• एक्सेल ड्रॉप डाउन सूची में मानों का चयन करते समय अन्य कोशिकाओं को स्वचालित रूप से कैसे पॉप्युलेट करें?

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖	कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
	लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
	सुपर लुकअप: एकाधिक मानदंड VLookup  |   मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
	उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
	स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
	फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार   |  कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल   |  सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
	शीर्ष 15 टूलसेट:  12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

अधिक पढ़ें... मुफ्त डाउनलोड...

---

ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

• Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
• नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
• आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!

अधिक पढ़ें... मुफ्त डाउनलोड...