ListView控件数据操作——给ListView中的列数据求和

最新推荐文章于 2022-10-16 08:04:12 发布

w_dexu

最新推荐文章于 2022-10-16 08:04:12 发布

阅读量1k

点赞数

分类专栏：函数 VBA EXCEL 文章标签： excel vba 经验分享

本文链接：https://blog.csdn.net/w_dexu/article/details/107939750

版权

这篇博客介绍了如何在ListView控件中对列数据进行求和操作，提供了相应的函数代码，并给出了调用示例。适合需要在ListView做数据汇总的VBA开发者参考。

摘要由CSDN通过智能技术生成

ListView控件数据操作

五、给ListView中的列数据求和

LIstView显示数据完成后，一般情况下还需要在最后一行对某些列做一个汇总，下面的函数就很好的完成了这个功能。

函数代码

给ListView添加数据，数据可以为数组或单行数据（逗号分隔）

Public Function SumLvCol(列表 As Object, 列表列, Optional WriLv As Boolean = False, Optional 分组 = Null)
Dim i As Integer
Dim j As Integer
Dim sp() As String
Dim dic As Object
Dim lc As Integer
Dim arr()

With 列表
    Set dic = CreateObject("Scripting.Dictionary")
    dic.CompareMode = vbTextCompare        '采用文本的比较方式，不分大小写
    For i = 1 To .ColumnHeaders.Count
        dic(.