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

Question

我是vba的新手，我想问一下如何在每个单元格中粘贴从组合框中选择的项目？

示例：Combobox2项是10-STD，12-40、8-STD。

我将选择10-STD并将其粘贴在E9列上，接下来，我将选择12-40并将其粘贴在下一个空单元格E10上，与8-STD相同的内容应将其粘贴在E11上。

感谢您的帮助。

Answer 1

对于表单控件“组合框”，以下代码将起作用：

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

对于ActiveX ComboBox，它是以下内容：

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

编辑：正如QHarr所说，该代码可以包含在工作表代码中，因此它可以在不Dim ws As Worksheet Set ws As ActiveWorksheet代码的情况下工作。 也可以用isEmpty(Range("E9"))替换Range("E9") = Empty