多个组合框的VBA默认值

Question

我想请你帮我设置多个组合框的默认值。我使用下面的代码，但它只会更改第一个组合框的默认值。当我关闭并打开第二次时，第二个值将更改为默认值，第三个值，3个值等等。 我需要在初始化中更改userform中所有组合框的所有默认值。

Private Sub UserForm_Initialize()
    CBForm.ListIndex = 0
    CBERP.ListIndex = 0
    CBCountry.ListIndex = 0
End Sub

Answer 1

不确定为什么它不起作用......但是尝试下一个。 在UserForm代码中创建一个过程来设置初始值：

Private Sub InitializeCombos()
    CBForm.ListIndex = 0
    CBERP.ListIndex = 0
    CBCountry.ListIndex = 0
End Sub

然后，在UserForm_Initialize

调用您的程序

Private Sub UserForm_Initialize()
    Call InitializeCombos
End Sub