如何从Excel数据中填充用户表单中的combobox下拉列表？

Question

如何使用Excel工作表中的值填充用户表单中的组合框？

将工作表名称设置为"Reg ALL - current“。

我需要填充来自单元格AI的值(这是一个日期列)。

另外，我需要将日期从AJ增加一天到单元格BF。

例如:如果AI保持值(2019/06/19)，则AJ应保持(20/06/2019)，以此类推，直到BF。

Answer 1

有不同的方法。如果您有一组不会更改的单元格范围(我假设您的问题就是这样)，那么只需设置组合框的RowSource属性即可。

例如：

​

​

​

​

适用于您的情况：

• 单元格AI1保存您的日期
• 单元格AJ1保存公式公式到单元格BF1 (假设您始终希望将AI1中的值相加，公式将继续为您添加)
• 使用D16属性并填写=Sheet1!AI1:BF1

结论，根本不需要VBA！如果我对你的问题理解得足够好的话，那就是。

Answer 2

这是一个简单的解决方案，只需添加一个按钮，粘贴此按钮。

Dim i As Long

'Clear existing items
ComboBox1.Clear

'36 (AJ) column to 58 (BF) column
For i = 36 To 58

    ComboBox1.AddItem ActiveSheet.Cells(1, i).Value

Next i