Question

Excel VBA程序开发、对组合框进行赋值的程序应该写在什么事件中

我在控件组合框change事件下的vba 赋值语句为

Private Sub aa_ComboBox_Change()

aa_ComboBox.List = Worksheets("data").Range("aa").Value

End Sub

每次打开工作簿必须到编译器中手动运行该sub才能赋值，否则下来列表框中选项为空，请高手指点一下该怎么解决。

Answer 1

在控件组合框change事件下的vba 赋值语句为

Private Sub aa_ComboBox_Change()

aa_ComboBox.List = Worksheets("data").Range("aa").Value

End Sub

将代码加进Workbook_Open事件即可，打开时添加OK

Answer 2

Private Sub Workbook_Open()
aa_ComboBox.List = Worksheets("data").Range("aa").Value
End Sub
将代码加进Workbook_Open事件即可，打开时添加