[已解决]设置 ComboBox下拉窗口高度尺寸的VBA

网络人

根据ComboBox1内容设置下拉窗口高度尺寸的VBA

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-9-8 17:03

1. Private Sub ComboBox1_GotFocus()
   
2. Dim arr(1 To 10), i&
   
3. For i = 1 To 10
   
4.   arr(i) = i
   
5. Next
   
6. ComboBox1.ListRows = UBound(arr)
   
7. ComboBox1.List = arr
   
8. End Sub

复制代码

跳转到最佳答案楼层

网络人

这个怎么弄了

大灰狼1976

1. Private Sub ComboBox1_GotFocus()
   
2. Dim arr(1 To 10), i&
   
3. For i = 1 To 10
   
4.   arr(i) = i
   
5. Next
   
6. ComboBox1.ListRows = UBound(arr)
   
7. ComboBox1.List = arr
   
8. End Sub

复制代码

大灰狼1976

设置数组多大，下拉行数相应调整，超出显示范围不管啊

网络人

大灰狼1976 发表于 2017-9-8 17:05
设置数组多大，下拉行数相应调整，超出显示范围不管啊

还有单行的数据能自动换行么