属性“行源”无法在组合框中显示

Question

如果我设置＜code＞。将ListBox的RowSource属性转换为NamedRange，然后在UserForm的VBA显示和UserForm Excel显示中都可以选择行源。然而，对于组合框，我只能在VBA显示器上看到这一点。如果在设置<代码>之后。RowSource属性我尝试。向ComboBox对象添加项目我得到运行时错误70，权限被拒绝。

Private Sub UserForm_Initialize()
    With pres_unit
        .AddItem "kPa"
        .AddItem "bar"
    End With
End Sub

如何使用命名区域作为组合框下拉选项的来源？

Answer 1

如果对单个列使用< code>NamedRange,可以使用ComboBox的< code>List属性:

Private Sub UserForm_Initialize()      

' create the Named Range "myNameRange" 
' you can manually (or with variables) modify the Range("B2:B10") in "Sheet1"
ThisWorkbook.Names.Add "myNameRange", Sheets("Sheet1").Range("B2:B10")

With pres_unit
    .List = Range("myNameRange").value
    'disallows user input, only values from list
    .Style = fmStyleDropDownList
End With

End Sub