Excel880–将数组快速写入Listview,listview数据更新通用函数

百度不到去谷歌

      在vba中使用窗体的时候，有时候需要用到listview显示数据，但是传统的listview添加数据操作并不方便，

不像listbox可以直接list=arr这样直接把数组添加到控件中显示，特别是需要频繁的更新listview场景下，

就会显得极其繁琐，于是我自己写了一个包装函数，数组添加到listview的过程包装成一个通用函数，

另外再有一个添加listview表头的函数，这样2个函数结合起来，就算不懂listview的additem方法，

也可以很方便对其添加数据，核心代码如下

1. Public Sub AddHeaders(arr, ListView1 As Object)
   
2. '读入二维数组第一行写入到表头
   
3. '示例 AddHeaders arr,UserForm1.listview1
   
4.     Dim i&
   
5.     ListView1.ColumnHeaders.Clear
   
6.     For i = 1 To UBound(arr, 2) - 2
   
7.         ListView1.ColumnHeaders.Add , , arr(1, i)
   
8.     Next
   
9.      ListView1.ColumnHeaders.Add , , arr(1, i), 0
   
10.      ListView1.ColumnHeaders.Add , , arr(1, i + 1), 0
    
11. End Sub
    
12. Public Sub AddList(arr, ListView1 As Object)
    
13. '读入二维数组,将每行依次写入到listview控件中
    
14. '示例 AddHeaders arr,UserForm1.listview1
    
15.     Dim i&, j&, k&, brr
    
16.      
    
17.     With ListView1
    
18.         .ListItems.Clear               '清空列表
    
19.         For i = 1 To UBound(arr, 1)
    
20.             
    
21.             ListView1.ListItems.Add , , arr(i, 1), , 1
    
22.             For j = 1 To UBound(arr, 2) - 1
    
23.                 ListView1.ListItems(i).SubItems(j) = arr(i, j + 1)
    
24.             Next
    
25.             Call lsvFormat(i, i)
    
26.         Next
    
27.     End With
    
28. End Sub

复制代码

这里有一个我做listview折叠汇总显示的例子，使用时可以参考一下

附件下载
本人博客http://excel880.com交流分享各种office编程技术，欢迎来访

百度不到去谷歌

补充一下附件和图片 1-伸缩分组表-listview实现.rar (39.58 KB, 下载次数: 404)

2017-4-14 22:01 上传

点击文件名下载附件

microyip

有事没事，点赞就没错了

塔奇克马

其实主要是我这vba小白在乱写代码时发现越写越长，这过程中越来越多重复/类似的功能，就在网上乱翻，找到这个帖子，发现附件失效了。
联系楼主，回过头来，发现这里有更新了。
感谢！

思而学CPA梁

牛，专家水平就是高。学习了

wbjjzhu

谢谢分享！！！