从组合框和命令按钮添加到工作表VBA
提问于 2016-06-03 11:38:41
我正在尝试设计一个当前看起来像这样的用户表单：
Combo Box使用A1:A5来生成它的列表，然后将所选择的内容链接到单元格D12。
但是，我希望用户能够使用Add命令按钮根据组合框中的选项填充新列表。
例如，用户从组合框中选择test2，单击Add，然后选择另一个选项，例如test4，再次单击Add，它将出现在单元格D13中的test2下。
我以前使用过VBA，但从来没有真正用于表单控件，只用于操作数据，所以这对我来说是相当新的。大多数在线教程似乎也帮不上忙，有人有什么建议吗？
回答 1
Stack Overflow用户
发布于 2016-06-03 12:36:21
此代码放入一个单独的模块中：
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您需要用ComboBox的名称替换"dropdown1"。然后，将此宏赋给您的按钮。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/37613411
复制相关文章
腾讯云开发者
