[已解决]求助：Listbox显示的问题

走进EXCEL

求助：Listbox显示的问题，谢谢！！详见附件.

最佳答案

月排行榜 / 总排行榜

liuguansky

2011-9-22 16:56

1. Private Sub UserForm_Initialize()
   
2.     Dim Arr, i&, k&, j As Byte
   
3.     Arr = Range([g4], [g4].End(4)).Value
   
4.     With ListBox1
   
5.         .ColumnCount = 6
   
6.         .ColumnWidths = "30,30,30,30,30,30"
   
7.         .ColumnHeads = False
   
8.         .BoundColumn = 0
   
9.         For i = 1 To UBound(Arr, 1) Step 6
   
10.             k = k + 1
    
11.             .AddItem
    
12.             For j = 1 To 6
    
13.                 If i + j - 2 < UBound(Arr, 1) Then .Column(j - 1, k - 1) = Arr(i + j - 1, 1)
    
14.             Next
    
15.         Next
    
16.     End With
    
17. End Sub

复制代码

求助2.rar (12.98 KB, 下载次数: 25)

2011-9-22 16:56 上传

点击文件名下载附件
试试效果吧。

跳转到最佳答案楼层

mxg825

显示要像单元格一样
用ListView1 控件！

走进EXCEL

回复 mxg825 的帖子

用ListView1 控件也不能按每行显示5个单元格，多余的自动换行呀。

liuguansky

1. Private Sub UserForm_Initialize()
   
2.     Dim Arr, i&, k&, j As Byte
   
3.     Arr = Range([g4], [g4].End(4)).Value
   
4.     With ListBox1
   
5.         .ColumnCount = 6
   
6.         .ColumnWidths = "30,30,30,30,30,30"
   
7.         .ColumnHeads = False
   
8.         .BoundColumn = 0
   
9.         For i = 1 To UBound(Arr, 1) Step 6
   
10.             k = k + 1
    
11.             .AddItem
    
12.             For j = 1 To 6
    
13.                 If i + j - 2 < UBound(Arr, 1) Then .Column(j - 1, k - 1) = Arr(i + j - 1, 1)
    
14.             Next
    
15.         Next
    
16.     End With
    
17. End Sub

复制代码

求助2.rar (12.98 KB, 下载次数: 25)

2011-9-22 16:56 上传

点击文件名下载附件
试试效果吧。

走进EXCEL

liuguansky 发表于 2011-9-22 16:56
试试效果吧。

要显示18列，将“6”改为“18”，改动后就运行错误，是怎么回事？