从命名范围填充组合框

时间:2016-04-05 14:51:49

标签: excel vba combobox

我使用excel的验证公式创建了三个依赖的下拉列表。 enter image description here 这样做的好处是可以轻松添加更多选项,并自动更新下拉列表。其结构如下所示(其中每个范围的名称与列标题相同)。

enter image description here

是否可以使用组合框创建相同的效果。我可以找到从手工填充组合框的示例,但不能自动从命名范围填充

1 个答案:

答案 0 :(得分:0)

这是你可以练习的东西。

创建Combobox1

使用worksheet_selection更改事件填充,标题范围名为“标题”

enter image description here

标题下面的范围是根据标题名称命名的。

填充combobox2

enter image description here

更改combobox1以填充combobox2

守则

进入工作表模块。

Private Sub ComboBox1_Change()
    Dim s As String
    s = ComboBox1
    Me.ComboBox2.List = Range(s).Value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ComboBox1.List = Application.WorksheetFunction.Transpose(Range("Headers"))
End Sub
相关问题