从组合框和命令按钮VBA添加到工作表

Question

我正在尝试设计一个目前看起来像这样的用户表单：

组合框使用A1：A5生成其列表，然后选择的任何内容都链接到单元格D12。

但是，我希望用户能够使用“添加”命令按钮，根据组合框中的选项填充新列表。

因此，例如，用户将从组合框中选择test2，单击“添加”，然后选择另一个选项，例如test4，再次单击“添加”，它将显示在单元格D13中的test2下方。

之前我曾经使用过VBA，但从来没有真正使用过Form控件，只是为了操作数据，所以这对我来说是个新手。大多数在线教程似乎都没有帮助，有人有任何建议吗？

Answer 1

此代码进入单独的模块：

Sub add_click()

Dim aws As Worksheet
Dim i As Integer
Dim firstemptyrow As Integer

Set aws = ActiveSheet

    With aws

        firstemptyrow = .Cells(.Rows.count, "D").End(xlUp).Row + 1
        If firstemptyrow < 12 Then firstemptyrow = 12

        i = .DropDowns("dropdown1").Value
        .Range("D" & firstemptyrow).Value = .DropDowns("dropdown1").List(i)

    End With

End Sub

您需要将"dropdown1"替换为ComboBox的名称。然后将此宏指定给按钮。