如何通过Excel数据在用户表单中填充VBA组合框下拉列表

Question

我是VBA编码的新手。有人可以告诉我，如何用Excel工作表中的值填充用户窗体中的组合框。

说工作表名称为“ Reg ALL-current”，我需要从AI单元格（它是日期列）中填充值。另外，我还必须将日期从AJ增加到BF单元格到1天。

示例：如果AI持有价值（19/06/2019），那么AJ应该持有（20/06/2019）等等，直到BF。

谁能告诉我，如何在VBA中处理此代码？

Answer 1

有不同的方法。如果您有一组不变的单元格范围（我认为是您所读的问题），那么您只需设置组合框的RowSource属性即可。

例如：

适用于您的情况：

• 单元格AI1保存您的日期
• 单元格AJ1拥有公式=AI1+1
• 将公式拖到单元格BF1中（假设您一直想将其添加到AI1中的值，该公式将继续为您执行此操作）
• 使用RowSource属性并填写=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