Question

excel vba中combobox.additem下列代码哪里出问题了？

Private Sub Workbook_Open()
For i = 1 To [A65536].End(xlUp).Row '1 到A列最后有数据的一行
UserForm1.ComboBox1.AddItem Sheets("Sheet3").Range("A" & i).Value
Next
End Sub

Answer 1

这段代码应该放到UserForm的Initialize事件中,而不是在打开工作薄时,另外,[A65536].End(xlUp).Row要具体到哪个工作表

追问

我的UserForm1的Initialize事件如何添加，我双击UserForm1后没有在右面找到Initialize选项，[A65536].End(xlUp).Row具体到工作表是不是在前面加上sheetX.啊？

追答

Answer 2

UserForm的Initialize
事件中才是ComboBox1.AddItem
的地方

具体，双击UserForm1：
Private Sub UserForm_Initialize()
For i = 1 To Worksheets("Sheet3").cells(rows.count,1).End(xlUp).Row

ComboBox1.AddItemSheets(Worksheets("Sheet3").Range("A" & i).Value())
Nexi i

End Sub