Excel VBA: Lấy giá trị từ Form Controls

Question

nhúng trong bảng sheet1 Tôi có một combo box Form Control tên combobox_test và nó đã chọn giá trị x

thêm vào đó, tôi cũng đã embbeded một nút mà khi tôi nhấn nó tôi muốn nó lấy giá trị combobox_test và đặt nó vào something.Rows(y). Nhưng tôi không thể làm cho nó hoạt động và nhận được một chút thất vọng. Có thể bạn có thể chỉ cho tôi đúng hướng

Sub ButtonPressed_sample() 
    Dim value As String 

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

Bất kỳ lời khuyên nào? Là một người mới bắt đầu tuyệt đối trong VBA, vì vậy hãy làm chi tiết nhất có thể. Cảm ơn

Answer 1

Tôi không chắc chắn đây là những gì bạn muốn, nhưng đó là một sự khởi đầu. Đối tượng Shape không có thuộc tính Value, là nguồn của lỗi. Có một đối tượng DropDown không được chấp nhận, nhưng vẫn có sẵn.

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 

Hãy thử:

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

Nếu nó không làm việc thì combobox của bạn không được đặt tên là "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