本文于2023年4月20日首发于本人同名公众号：Excel活学活用，更多文章敬请关注！

前面我们分享了使用ListVeiw进行数据展示，做出“科目汇总表”来（Excel VBA 数据分析展示/ListView控件、Excel VBA 数据分析展示/ListView控件/Combox组合框控件/科目汇总表(2)），今天，我们继续完善按月查询、按一级科目查询功能：

添加了一个CheckBox复选框控件CkbLevelOne，Caption改为“一级科目"，如果勾选了，则查询一级科目汇总，否则查询明细科目汇总。

添加了一个命令按钮CmdQuery，Catpion改为“查询”。点击它，根据CmbMonth、CkbLevelOne的值，更新科目汇总表数据，代码如下：

Private Sub CmdQuery_Click()    With Me.LvSum        .ColumnHeaders.Clear        .ListItems.Clear    End With    currMonth = Me.CmbMonth    If Me.CkbLevelOne Then        Call UpdateDataTopLevel    Else        Call UpdateData    End If    Me.LvSum.RefreshEnd Sub

代码比较简单，解析一下：

首先，把LvSum的表头字段、行记录都给清除了，否则多次执行数据就会重复。

然后，把模块级变量currMonth 的值更新为月份列表框的当前值。

接着，根据CheckBox的勾选状态来确定运行不同过程。

最后，刷新一下LvSum，否则可能会有重影。

一、把UserForm_Initialize()里面数据处理的部分拎出来做一个单独的过程，Private Sub UpdateData()，用于汇总“明细科目"，供其他过程调用。

"科目_编码"改为“1级"，后面根据字典的Keys来取得科目编码、科目名称的代码都不需要修改，

 DicAccount(arrDetail(i, Pxy(TbTitle, "科目_编码", 2))) = 1

DicAccount(arrDetail(i, Pxy(TbTitle, "1级", 2))) = 1

这里我觉得值得注意的是，我们要善于发现数据的规律，而且我们在设计数据的时候，要保持相对一致性，比如科目编码和科目名称的连接，我们中间统一用“_"，诸如此类，我就不多啰嗦了，大家自己摸索、体会吧。

由于原来的过程中，有On Error Resume Next语句，在运行的时候就没有报错，后来在新的UpdateData过程中，没有加这条语句，它就报错了。这里用if语句主要是避免表头字段出现空值，实际上也可以不用if判断，如果能确定数组里没有空值的话。

五、当我们点选CmbMonth月份列表框的时候，可以使用它的Change事件来即时更新LvSum的数据，这里我们没有这样做。如果需要这样做的话，可以把CmdQuery下的代码复制到CmbMonth的Change事件里，或者输入代码Call CmdQuery_Click，就是去点击一下查询按钮。我把相关代码放到其Change事件里，但是注释掉了。

好，今天就分享到这，我们下期再会。

☆猜你喜欢☆

Excel VBA 这样酷炫的日期控件，你不想要吗？

Excel VBA 最简单的收发存登记系统

Excel 公式函数/数据验证/动态下拉列表

Excel VBA 文件批量改名

Excel 公式函数/数据透视表/固定资产折旧计提表！

Excel VBA 输入逐步提示/TextBox+ListBox

本文于2023年4月20日首发于本人同名公众号：Excel活学活用，更多文章敬请关注！