Excel-VBA: получение значений из элементов управления формой

Встроенный в рабочий лист sheet1 У меня есть поле со списком формы с именем combobox_test и оно выбрало значение x

в дополнение к этому, я также добавил кнопку, которая, когда я ее нажимаю, хочу, чтобы она приняла значение combobox_test и поместила его в something.Rows(y). Но я не могу заставить его работать, и я немного расстроен. Может быть, вы можете указать мне в правильном направлении.

Sub ButtonPressed_sample()
    Dim value As String

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

Можно посоветовать? Являюсь абсолютным новичком в VBA, поэтому, пожалуйста, будьте как можно более подробными. Благодаря

Ответы

Ответ 1

Я не уверен, что это то, что вы хотите, но это начало. Объект Shape не имеет свойства Value, которое является источником ошибки. Существует объект DropDown, который устарел, но все еще доступен.

Sub ButtonPressed_sample()

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

End Sub

Ответ 2

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

Ответ 3

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

Ответ 4

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

Try:

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

Если это не работает, то ваш combobox не называется "Combobox_test"