[已解决]（ComboBox1）显示两组数据的问题~！！！请求帮助！

N7120

（ComboBox1）显示两组数据的问题~！！！请求帮助！


Book1.rar (14.49 KB, 下载次数: 9)

2016-11-30 15:30 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

苏子龙

2016-11-30 15:44

1. Private Sub UserForm_Initialize()
   
2.     Dim arr, i%
   
3.     arr = Sheets("sheet1").[E7].Resize(Sheets("sheet1").[E65536].End(xlUp).Row - 7, 3)
   
4.     ComboBox1.Clear
   
5.     For i = 1 To UBound(arr)
   
6.         ComboBox1.AddItem arr(i, 1) & "     " & arr(i, 3)
   
7.     Next
   
8. End Sub

复制代码

可以添加进去

跳转到最佳答案楼层

苏子龙

1. Private Sub UserForm_Initialize()
   
2.     Dim arr, i%
   
3.     arr = Sheets("sheet1").[E7].Resize(Sheets("sheet1").[E65536].End(xlUp).Row - 7, 3)
   
4.     ComboBox1.Clear
   
5.     For i = 1 To UBound(arr)
   
6.         ComboBox1.AddItem arr(i, 1) & "     " & arr(i, 3)
   
7.     Next
   
8. End Sub

复制代码

可以添加进去

望帝春心

1. Private Sub UserForm_Initialize()
   
2.     Dim arr(), i&
   
3.     i = Sheets("sheet1").[E65536].End(xlUp).Row - 7
   
4.     ReDim arr(1 To i, 1 To 1)
   
5.     brr = Sheets("sheet1").[E7].Resize(Sheets("sheet1").[E65536].End(xlUp).Row - 7, 3)
   
6.     For j = 1 To i
   
7.         arr(j, 1) = brr(j, 1) & "         " & brr(j, 3)
   
8.     Next
   
9.     ComboBox1.List = arr
   
10. End Sub

复制代码

简单改了下你的代码