在一个窗体中用字典对多个复合框添加下拉框的值

1qazwsx

补充说明：下拉框的值是复合框的text,并且是唯一的，如何添加，谢谢高手指点

hwc2ycy

1. Private Sub UserForm_Initialize()
   
2.     Dim dic As Object
   
3.     Dim i As Byte
   
4.        Set dic = CreateObject("scripting.dictionary")
   
5.        For i = 1 To 50
   
6.         dic("Listbox" & i) = "Listbox" & i
   
7.     Next
   
8.     Me.ComboBox1.List = dic.items
   
9. End Sub
   

复制代码

1qazwsx

谢谢楼主的解答，但是却不是我想要的

zjdh

你不发附件，别人只能猜！！

imonior

用数组，定义多个集合。