将单元格值传递到组合框列表中

Question

我正在寻求将单元格值传递到Excel中组合框的列表中。

我创建了一个数组来将单元格值传递到其中，但是在调用它们时并没有到达组合框列表。我需要单元格值显示为下拉项，所有显示的都是空白：

Sub Clear_Invoice_Data()

    Dim Arr As Variant
    Arr = Range("A1:A5").Value

    frmAddLineItem.ddlProduct.List = Arr    

End Sub

由用户表单中的按钮调用：

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

请检查以下示例：

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

如果要使用数组，则>

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

Answer 3