2016-10-05 77 views
0

我有我的數據定義一個名字,所以當我把我的手機一個新的數據,它也將包括在我的自動填充代碼Excel的VBA自動填充和源細胞

細胞的名字是IDENT的範圍

=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 

即時得到一個錯誤,變量沒有定義,並強調「嗒嗒」

+1

你有你的模塊中'選項Explicit'(這將是第一行,如果在那)。如果是這樣,那麼這很好,但是你需要在你的子版本中添加「Dim blah as Variant」 –

回答

1

Chris Neilsen可能是對的。您最有可能在用戶表單模塊的頂部有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)")