社区 › VB › [求助]如何遍历combobox中的所有值

mycad 发表于 2009-9-18 09:28:00

[求助]如何遍历combobox中的所有值

[求助]如何遍历 vba 中的 combobox中的所有值？
如：
combobox1.additem"1"
combobox1.additem"2"
combobox1.additem"3"
.....................
然后把此值读取出来？

雪山飞狐_lzh 发表于 2009-9-18 19:00:00

Private Sub UserForm_Click()
ComboBox1.AddItem "123"
ComboBox1.AddItem "456"
Dim i As Integer
For i = 0 To ComboBox1.ListCount - 1
MsgBox ComboBox1.List(i)
Next
End Sub

查看完整版本: [求助]如何遍历combobox中的所有值