वीबीए में ड्रॉपडाउन मूल्य प्राप्त करें और ड्रॉपडाउन का नाम प्राप्त करें ... कहीं भी नहीं मिला?

Question

मैंने उपयोगकर्ताफॉर्म टूलबार से कॉम्बो बॉक्स को अपनी शीट पर खींचकर एक ड्रॉपडाउन बनाया। मैंने पुस्तक में कुछ कोशिकाओं से कुछ मूल्यों को सौंपा। अब मैं कुछ वीबीए कोड को स्ट्रिंग के रूप में चयनित ड्रॉपडाउन आइटम के मान तक पहुंचने के लिए चाहता हूं।

मेरी ड्रॉपडाउन में केवल टेक्स्ट है।

मैं इस नव निर्मित ड्रॉपडाउन का नाम कैसे ढूंढूं (यह गुणों में कहीं भी नहीं है!)?

Answer 1

Dim dd As DropDown 
Set dd = ActiveSheet.DropDowns("Drop Down 6") 
Set r = Sheet2.Range(dd.ListFillRange) 

Set ddValue = r(dd.Value) 

नोट:

• ड्रॉपडाउन एक दृश्यमान वर्ग नहीं है। आप बस इसका उपयोग करें और यह काम करता है।

• लटकती नियंत्रण (UserForm नहीं) के नाम जानने के लिए सिर्फ
  बस स्तंभ ए ऊपर अपनी स्क्रीन के ऊपरी बाएँ कोने में नाम बॉक्स को देखो यह नियंत्रण जब के नाम का कहना है आप अपने नियंत्रण पर राइट क्लिक करें.-

• शीट 2 वह जगह है जहां ड्रॉपडाउन सूची आबादी है। तो जहां भी आपकी सूची डेटा है।

  आशा है कि आप सभी की मदद करें।

Answer 2

यह बात करने का एक भद्दा तरीका है, लेकिन यह काम करना चाहिए:

Dim o As Object 

For Each o In Worksheets("Sheet1").Shapes 
    MsgBox o.Name 
Next o 

भी Worksheet उद्देश्य यह है कि तुम पर पुनरावृति सकता है की एक छिपे हुए DropDowns संग्रह सदस्य नहीं है। यह Forms टूलबार से शामिल किए गए आइटम मिल जाएगा लेकिन Control Toolbox उपकरण पट्टी

Answer 3

यहाँ से शामिल किए गए आइटम नहीं मिलेगा कि कैसे आप नाम पता करने के लिए की जरूरत के बिना स्ट्रिंग प्राप्त होते हैं:

Dim DD As Shape 

Set DD = ActiveSheet.Shapes(Application.Caller) 

MsgBox DD.ControlFormat.List(DD.ControlFormat.ListIndex)