Excel VBA for Mac： ComboBox 解决方法

Question

我无法在 Mac 上的用户窗体上填充我的组合框。

我创建了一个名为“nameList”的html" target="_blank">动态命名范围，其公式如下所示：

"=OFFSET('MEMBERS LIST'!$D$4,0,0,COUNTA('MEMBERS LIST'!$D:$D)-1)"

在Sheet1（命名：HOME）上，我创建了一个调用UserForm（命名：PostForm）的宏，在那里我创建了一个ComboBox（命名：username_Insert）。在Windows上，我只需要转到“属性”框

我在代码中尝试了多种解决方案：

Private Sub PostForm_Initialize()
    'Populate Username combo box.
    'Me.username_Insert.List = [nameList]
    'Me.username_Insert.List = Range("nameList")
    'Me.username_Insert.List = Range([nameList])

    'Me.username_Insert.AddItem = [nameList]
End Sub

我不确定我是否在正确的子中输入代码，或者我是否应该在以下子中输入我的代码：私有子 username_Insert_Change（）

/******已解决*******/

修改了代码以接收我拥有的其他动态列表，产生了以下代码。实现到用户表单代码中，工作起来很有魅力：

Private Sub UserForm_Activate()
    Dim nme As Range
    Dim ws As Worksheet

    Set ws = Sheets("Members List")
    For Each nme In ws.Range("nameList")
        Me.username_Insert.AddItem nme.Value
    Next nme

    Set ws = Sheets("SONY DATA")
    For Each nme In ws.Range("phoneList")
        Me.phone_Insert.AddItem nme.Value
    Next nme

    For Each nme In ws.Range("ampm")
        Me.daynight_Insert.AddItem nme.Value
    Next nme

    For Each nme In ws.Range("typeList")
        Me.type_Insert.AddItem nme.Value
    Next nme

End Sub

Answer 1

逐行添加项目是有效的，但可以通过简单地在一行代码中使用所有值填充 Combobox 的 LIST 属性来更直接（和优雅地）完成，如下所示：

Private Sub Userform_Activate()
    username_Insert.List = Sheets("Members List").Range("nameList").value
End sub

你在最初的尝试中已经非常接近了，你只需要增加。对的价值

=Range("名称列表")

行：-）

Answer 2

看起来您必须逐项填充组合框。鉴于它是一个动态列表，我建议您将代码放在用户窗体的激活事件中。请注意，此事件是在用户窗体的代码模块中找到的（并且应放置代码），而不是在常规代码模块中找到的。

Private Sub UserForm_Activate()
Dim nme As Range
Dim ws As Worksheet

Set ws = Sheets("Members List")
    For Each nme In ws.Range("nameList")
        Me.username_Insert.AddItem nme.Value
    Next nme

End Sub