Excel-VBA: Ottenere i valori da Form Controls

Question

incorporato nel foglio di lavoro sheet1 ho una casella combinata Controllo modulo chiamato combobox_test ed ha selezionato valore x

in aggiunta a ciò, ho anche embbeded un pulsante che, quando lo premo voglio che prenda il valore di combobox_test e lo metta in something.Rows(y). Ma non riesco a farlo funzionare e sto diventando un po 'frustrato. Forse puoi indicarmi la giusta direzione

Sub ButtonPressed_sample() 
    Dim value As String 

    Set putItRng = Range("theCells")   
    putItRng.Rows(1) = ActiveSheet.Shapes("combobox_test").Value   
End Sub 

Qualche consiglio? Sono un principiante assoluto in VBA, quindi per favore sii il più dettagliato possibile. Grazie

Answer 1

io non sono sicuro che questo è ciò che si vuole, ma è un inizio. L'oggetto Shape non ha una proprietà Value, che è la fonte dell'errore. Esiste un oggetto DropDown deprecato, ma ancora disponibile.

Sub ButtonPressed_sample() 

    Set putitrng = Range("theCells") 
    putitrng.Rows(1) = ActiveSheet.DropDowns("combobox_test").value 

End Sub 

Answer 2

putItRng.Rows(1)= ActiveSheet.combobox_test.value 

Prova:

activesheet.cells(1,putItRng.column).value=activesheet.combobox_test.value 

Se non funziona allora la vostra casella combinata non è denominato "Combobox_test"

Answer 3

Sub QuickSelect_Change() 
     With ActiveSheet.Shapes("QuickBox") 
      MsgBox "My Selected Value " & .ControlFormat.List(.ControlFormat.ListIndex) 
     End With 
    End Sub 

Answer 4

ActiveSheet.Shapes("combobox_test").ControlFormat.ListIndex