Uzyskaj wartość rozwijaną w VBA i uzyskaj nazwę listy rozwijanej ... nigdzie nie można znaleźć?

Question

Utworzono menu rozwijane, przeciągając pole kombi na mój arkusz z paska narzędzi UserForm. Przypisałem mu pewne wartości z niektórych komórek w książce. Teraz chcę trochę kodu VBA, aby uzyskać dostęp do wartości wybranego elementu rozwijanego w postaci ciągu.

Moje menu zawiera tylko tekst.

Również, jak znaleźć nazwę tego nowo utworzonego rozwijanego (nigdzie nie we właściwościach!)?

Answer 1

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

Set ddValue = r(dd.Value) 

Uwagi:

• DropDown nie jest klasą widoczną. Po prostu używaj go i to działa.

• Aby znaleźć nazwę rozwijanej KONTROLI (UserForm) nie wystarczy spojrzeć na
  polu Nazwa w lewym górnym rogu ekranu, tuż nad kolumnie A. Mówi nazwę kontroli podczas kliknij prawym przyciskiem myszy na formancie.

• Arkusz 2 jest tam, gdzie jest lista rozwijana . Tak więc wszędzie tam, gdzie masz listę danych .

  Nadzieję, że pomaga wam wszystkim.

Answer 2

To jest przylegający sposób to zrobić, ale to powinno działać:

Dim o As Object 

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

Jest też ukryty członek DropDowns zbiór obiektu Worksheet że można iteracyjnego. Pozwoli to znaleźć elementy wstawione z paska Forms ale nie znajdzie elementy wstawione z paska

Answer 3

Tutaj Control Toolbox ten sposób można uzyskać ciąg bez konieczności znać nazwę:

Dim DD As Shape 

Set DD = ActiveSheet.Shapes(Application.Caller) 

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