从vba模块创build和填充combobox

在Excel 2010中，我试图在我的vba代码中dynamic创build一个用户窗体。 但是，在运行代码之后，打开下拉列表时不会显示列表。 如果我在“.show”之前放置一个断点，我可以在devise窗口中检查窗体，并看到列表已经填充。 .show方法清除列表或发生了什么？ 我发现的解决scheme专注于从单元格范围填充或将“.additem”放置在用户窗体的初始化代码中。 我不想做任何需要我创build第二个文件的事情。 如果可能的话，一切应该在这个vba代码。 任何帮助赞赏。 我的代码如下。

Sub make_combobox_form() ' Makes a form with only a simple combobox Dim myForm As Object Dim cb As MSForms.ComboBox 'Create the User Form Set myForm = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm) With myForm .Properties("Width") = 400 .Properties("Height") = 300 End With Set cb = myForm.Designer.Controls.Add("Forms.ComboBox.1") With cb .Top = 100 .Left = 100 .Height = 20 .Width = 200 .AddItem "Item_1" .AddItem "Item_2" .AddItem "Item_3" .value = "Item_1" End With VBA.UserForms.Add(myForm.name).Show ThisWorkbook.VBProject.VBComponents.Remove myForm End Sub 

Answer 1

 Sub make_combobox_form() 'Create the User Form as component first Dim myFormComponent As VBComponent Set myFormComponent = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm) ' Get reference to user form from the UserForms collection then Dim cb As MSForms.ComboBox Dim myForm As Variant Set myForm = VBA.UserForms.Add(myFormComponent.Name) With myForm .Width = 400 .Height = 300 End With Set cb = myForm.Controls.Add("Forms.ComboBox.1") With cb .Top = 100 .Left = 100 .Height = 20 .Width = 200 .AddItem "Item_1" .AddItem "Item_2" .AddItem "Item_3" .Value = "Item_1" End With myForm.Show ThisWorkbook.VBProject.VBComponents.Remove myFormComponent End Sub