Excel VBA 用户表单 - 如何从用户表单的列表中向组合框添加值？答案

【问题标题】：Excel VBA Userform - How do I add a value to a combo box from a list in the userform?Excel VBA 用户表单 - 如何从用户表单的列表中向组合框添加值？
【发布时间】：2014-02-24 09:37:17
【问题描述】：

有没有办法做到以下几点：？

我想要一个手动文本框，当用户填写并单击“添加”时，它会将值添加到组合框中。但是，我还会将此列表存储在某个地方，以便用户下次加载表单时，他们可以从列表中选择“以前使用过”的项目，然后这些项目也会添加到组合框中。

我将添加一个按钮来“添加所有”以前的项目，但它仍然必须具有每次手动添加项目的选项。

更有用的是有一个选项来检查组合框中的项目以及手动文本输入选项。

我尝试添加一张我发现可以更好地解释这一点的图片，但我需要 10 个代表点。因此，我希望这是有道理的，但如果需要，请随时评论更多细节和更好的解释。

链接到我正在考虑但没有手动添加字段的示例：

http://kb.blackboard.com/download/attachments/14057766/bbui_multi_select.gif?version=1&modificationDate=1202823953747

【问题讨论】：

标签： vba excel combobox userform

【解决方案1】：

使用这个

combobox1.additem txtValue.Text

Sheets("SheetName").Cells(lastRow+1,col).value=txtValue.Text

在 Form_activate 中添加以下代码

For i=1 to lastrow
combobox1.additem Sheets("SheetName").Cells(i,col).value

next i

【讨论】：

如果我在用户表单中使用 combobox1.additem txtValue.Text 并将其分配给一个按钮，那会起作用吗？