Excel用户窗体中的空组合框

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"

除“名称”和“顶部”属性外，两个组合框均具有相同的属性。

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 。 让我们知道是否有帮助。