[已解决]listbox行显示问题

走进EXCEL

附件中的代码能按每行显示10个单元格，请改动一下代码，在LISTBOX中显示为16个单元格，谢谢！ 求助2.rar (12.82 KB, 下载次数: 6)

2012-2-11 14:29 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2012-2-11 15:11

1. Private Sub UserForm_Initialize()
   
2.     Dim Arr(), i&, j%, n%, x%, r%, c%
   
3.    
   
4.     n = 16    '多少列
   
5.     Arr = Range([g3], [g3].End(4)).Value
   
6.     With ListBox1
   
7.         .ColumnCount = n
   
8.         .ColumnWidths = "25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25"
   
9.         .ColumnHeads = False
   
10.         .BoundColumn = 0
    
11.         ReDim arr2(1 To Int(UBound(Arr) / n) + 1, 1 To n)
    
12.         
    
13.         '将1维数组转为2维数组
    
14.         For i = 1 To UBound(Arr)
    
15.             If i Mod n Then
    
16.                 r = i \ n + 1
    
17.                 c = i Mod n
    
18.             Else
    
19.                 r = i / n
    
20.                 c = n
    
21.             End If
    
22.             arr2(r, c) = Arr(i, 1)
    
23.         Next i
    
24.                
    
25.         .List = arr2 '赋值给listbox
    
26.     End With
    
27. End Sub

复制代码

求助2b.rar (13.44 KB, 下载次数: 20)

2012-2-11 15:11 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

1. Private Sub UserForm_Initialize()
   
2.     Dim Arr(), i&, j%, n%, x%, r%, c%
   
3.    
   
4.     n = 16    '多少列
   
5.     Arr = Range([g3], [g3].End(4)).Value
   
6.     With ListBox1
   
7.         .ColumnCount = n
   
8.         .ColumnWidths = "25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25"
   
9.         .ColumnHeads = False
   
10.         .BoundColumn = 0
    
11.         ReDim arr2(1 To Int(UBound(Arr) / n) + 1, 1 To n)
    
12.         
    
13.         '将1维数组转为2维数组
    
14.         For i = 1 To UBound(Arr)
    
15.             If i Mod n Then
    
16.                 r = i \ n + 1
    
17.                 c = i Mod n
    
18.             Else
    
19.                 r = i / n
    
20.                 c = n
    
21.             End If
    
22.             arr2(r, c) = Arr(i, 1)
    
23.         Next i
    
24.                
    
25.         .List = arr2 '赋值给listbox
    
26.     End With
    
27. End Sub

复制代码

求助2b.rar (13.44 KB, 下载次数: 20)

2012-2-11 15:11 上传

点击文件名下载附件