Question

这应该很简单，但我很挣扎。现在，这段代码有效：

cboCategoryEdit1.List = Sheets(2).Range("A2:A40").Value

我正在努力清理＆＃34;我的项目通过改变组合框的填充方式。我希望它是一个只需要填充细胞的组合框。意思是我需要使用最后一行功能。我将代码更改为此，我只是得到错误的＃34;方法或数据成员未找到＆＃34;。这是我的问题代码：

Dim i As Range
With Sheets("xRef-Categories")
    Set i = .Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).Row)
End With
Me.cboCategoryEdit1.ListFillRange = i.Address

感谢您对此提供任何帮助。

btw：Sheet2是＆＃34; xref-Categories＆＃34;

Answer 1

你只需要这个......

With Sheets("xRef-Categories")
    Me.cboCategoryEdit1.List = .Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Value
End With

Answer 2

您可以像这样简化：

items_tmp.json

Excel VBA将组合框列表从静态范围更改为动态范围

2 个答案: