将单元格值传递到combobox列表中

我正在寻找将单元格值传递到Excel中的combobox的列表。

我已经创build了一个数组来传递单元格的值，但是当它们被调用时他们没有进入combobox列表。 我需要单元格值显示为下拉项目，所有显示的是空格：

Sub Clear_Invoice_Data() Dim Arr As Variant Arr = Range("A1:A5").Value frmAddLineItem.ddlProduct.List = Arr End Sub 

它由用户窗体中的button调用：

 Private Sub cmdClearAll_Click() Call Button_Functions.Clear_Invoice_Data i = 18 End Sub 

问题图片:(没有数值）

Answer 1

如果你愿意的话，还有另一个（更粗糙的）方法可以做到这一点。 另外请确保您定义了来自以下来源数据表的名称：

 Sub AddItemsToBox() Dim itemcell As Range For Each itemcell in Sheets("Source Sheet Name").Range("A1:A5") frmAddLineItem.ddlProduct.AddItem itemcell.Value Next itemcell End Sub 

Answer 2

使用ComboBox，你可以使用.List属性来填充工作表的值到combox框中。

检查下面的例子：

 ComboBox1.List = Worksheets("Sheet1").Range("A1:A5").Value 

如果你想使用数组，

 Dim Arr As Variant Arr = Worksheets("Sheet1").Range("A1:A5").Value ComboBox1.List = Arr