Question

在我的UserForm_Initialize（）方法中，我有许多组合框和文本框，它们都使用几乎相同的代码进行唯一命名和初始化。

出于某种原因，一个组合框始终为空，并且不会列出我在单击时添加的任何选项。下面是成功向组合框添加选项的代码示例，以及无效的代码。注意：此代码与同一UserForm_Initialize（）方法中的许多其他代码一起使用。

有效的代码：

'Empty NtwrkSrvrHD
 NtwrkSrvrHD.Clear

'Fill NtwrkSrvrHD
With NtwrkSrvrHD
     .AddItem ""
     .AddItem "Hard Drive – 300GB 10K 2.5"" SAS"
     .AddItem "Hard Drive – 600GB 10K 2.5"" SAS"
End With

不起作用的代码：

'Empty DBHS_Ram
 DBHS_Ram.Clear

'Fill DBHS_Ram
With DBHS_Ram
     .AddItem ""
     .AddItem "RAM - 32GB for - 13ba Server Class Workstation"
     .AddItem "RAM - 128GB for - 13ba Server Class Workstation"
End With

'Set DBHS_Ram default
DBHS_Ram.Value = "RAM - 32GB for - 13ba Server Class Workstation"

两个组合框都具有相同的属性，“name”和“Top”属性除外。

Answer 1

请尝试以下方法：

Private Sub Userform_Initialize()
'Code code code
    With Me
        With .DBHS_Ram
            'More code code code
        End With
    End With
End Sub

如果此操作失败，请尝试使用.List代替.Item。如果这有帮助，请告诉我们。

Excel Userform中的空ComboBox

1 个答案: