Question

我已经为我的数据定义了一个名称，所以当我在我的单元格中添加新数据时，它也将包含在我的自动填充代码中

单元格名称是

=OFFSET(DataSource!$A:$A,1,0,COUNTA(DataSource!$A:$A)-1,1)

这是我在组合框上自动填充的代码

Private Sub UserForm_Initialize()
UserForm1.Label1 = Date
For Each blah In [ident]
    UserForm1.ComboBox4.AddItem blah
Next blah

End Sub

我得到一个错误，变量没有定义并突出显示“blah”

Answer 1

克里斯尼尔森可能是对的。您很可能在userform模块的顶部有Option Explicit，需要blah才能被贴上标签。

Private Sub UserForm_Initialize()
    Dim blah As Variant
    UserForm1.Label1 = Date
    For Each blah In [ident]
        UserForm1.ComboBox4.AddItem blah
    Next blah

End Sub

您可以通过以下两种方式定义范围：

For Each blah In [OFFSET(DataSource!$A:$A,1,0,COUNTA(DataSource!$A:$A)-1,1)]

For Each blah In Range("OFFSET(DataSource!$A:$A,1,0,COUNTA(DataSource!$A:$A)-1,1)")

Excel VBA自动填充和源是单元格范围

1 个答案: