Ottieni il valore del dropdown in VBA e ottieni il nome del menu a discesa ... in nessun posto?

Question

Ho creato un menu a discesa trascinando la casella combinata sul mio foglio dalla barra degli strumenti UserForm. Ho assegnato alcuni valori ad esso da alcune celle del libro. Ora voglio che alcuni codici VBA accedano al valore del menu a discesa selezionato sotto forma di stringa.

Il mio menu a discesa contiene solo testo.

Inoltre, come trovare il nome di questo menu a discesa appena creato (non è in nessun punto nelle proprietà!)?

Answer 1

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

Set ddValue = r(dd.Value) 

NOTE:

• DropDown non è una classe visibile. Si basta usarlo e funziona.

• per trovare il nome del menu a discesa CONTROLLO (non form) basta guardare
  casella Nome nell'angolo in alto a sinistra dello schermo appena sopra la colonna R. Si dice che il nome del controllo, quando fai clic con il pulsante destro del mouse sul tuo controllo.-

• Foglio2 è il punto in cui è disponibile l'elenco a discesa . Quindi ovunque siano i tuoi dati di lista .

  Speranza che ti aiuti tutti.

Answer 2

Questo è un modo goffo di farlo ma dovrebbe funzionare:

Dim o As Object 

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

C'è anche un membro DropDowns collezione nascosta dell'oggetto Worksheet che si potrebbe iterare. Ciò trovare gli oggetti inseriti dalla barra degli strumenti Forms ma non troverà elementi inseriti dal Control Toolbox barra degli strumenti

Answer 3

Ecco come ottenere la stringa senza la necessità di conoscere il nome:

Dim DD As Shape 

Set DD = ActiveSheet.Shapes(Application.Caller) 

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