excel vba：如何将组合框值粘贴到下一个列单元格

Question

I am new to vba, I would like to ask how can I paste the item I am selecting from combobox in each cell?

Example: Combobox2 items are 10-STD, 12-40, 8-STD.

I will select 10-STD and it should paste on column E9, next I will select 12-40 it should paste on the next empty cell E10, same thing with 8-STD when selected it should paste on E11.

Thanks for the kind help.

Answer 1

For the Form Control "Combo Box" the following code will work:

Sub DropDown1_Change()
    Dim dD As Object
    Dim selectedValue As String

    Set dD = DropDowns("Drop Down 1")

    selectedValue = dD.List(dD.ListIndex)

    If Range("E9") = Empty Then
        Range("E9") = selectedValue
    Else
        lrow = Cells(Rows.Count, 5).End(xlUp).Row
        Cells(lrow + 1, 5) = selectedValue
    End If  
End Sub

For the ActiveX ComboBox it is the following:

Private Sub ComboBox1_Change()
    Dim cB As ComboBox
    Dim selectedValue As String

    Set cB = OLEObjects("ComboBox1").Object

    selectedValue = cB.Value

    If Range("E9") = Empty Then
        Range("E9") = selectedValue
    Else
        lrow = Cells(Rows.Count, 5).End(xlUp).Row
        Cells(lrow + 1, 5) = selectedValue
    End If
End Sub

EDIT: As QHarr said, the code can be enbeeded in the Worksheet Code, so it works without Dim ws As Worksheet Set ws As ActiveWorksheet Code. Also Range("E9") = Empty can be replaced by isEmpty(Range("E9"))