请求用VBA实现按年月筛选日期后汇总数据至文本框

可以用VBA实现需求，下面提供两种可靠的方案（AutoFilter筛选法和循环遍历法），你可以根据自己的场景选择，同时会指出你之前可能踩的坑：

前提说明 #

假设你的工作表和控件名称如下（如果实际名称不同，自行替换）：

• 表单工作表：表单页
• 数据工作表：数据页
• 年份选择组合框：ComboBox1
• 月份选择组合框：ComboBox2
• 显示汇总结果的文本框：TextBox1

方案1：AutoFilter筛选汇总（效率更高，适合大数据量） #

这个方法利用Excel的筛选功能快速定位目标数据，再求和，避免全表遍历：

Sub 按年月汇总_AutoFilter()
    Dim 数据页 As Worksheet, 表单页 As Worksheet
    Dim 目标年份 As Integer, 目标月份 As Integer
    Dim 汇总结果 As Double
    Dim 数据区域 As Range, 可见数据区 As Range
    
    ' 绑定工作表对象
    Set 表单页 = ThisWorkbook.Worksheets("表单页")
    Set 数据页 = ThisWorkbook.Worksheets("数据页")
    
    ' 获取组合框选择的年月（转成数值避免文本格式问题）
    目标年份 = Val(表单页.ComboBox1.Value)
    目标月份 = Val(表单页.ComboBox2.Value)
    
    ' 清空之前的筛选状态
    数据页.AutoFilterMode = False
    
    ' 筛选B列中对应年月的日期（用DateSerial生成准确的日期区间，规避格式问题）
    With 数据页.Range("B1").CurrentRegion ' 自动识别完整数据区域，表头在第1行
        .AutoFilter Field:=2, _
                    Criteria1:=">=" & DateSerial(目标年份, 目标月份, 1), _
                    Operator:=xlAnd, _
                    Criteria2:="<=" & DateSerial(目标年份, 目标月份 + 1, 0)
        
        ' 获取筛选后D列的可见数据（跳过表头）
        On Error Resume Next ' 处理无匹配数据的情况，防止报错
        Set 可见数据区 = .Columns(4).Offset(1).SpecialCells(xlCellTypeVisible)
        On Error GoTo 0
        
        ' 计算汇总值
        汇总结果 = IIf(Not 可见数据区 Is Nothing, Application.Sum(可见数据区), 0)
    End With
    
    ' 关闭筛选
    数据页.AutoFilterMode = False
    
    ' 把结果显示到文本框，按需调整格式
    表单页.TextBox1.Value = Format(汇总结果, "#,##0.00")
End Sub

关键注意点 #

• 用DateSerial生成当月第一天和最后一天，避免直接用文本匹配日期格式（比如dd.mm.yyyy）导致的筛选失效，这很可能是你之前AutoFilter失败的原因
• CurrentRegion自动识别数据范围，不用手动写死行号，适配数据增减
• 加入错误处理，防止无匹配数据时程序崩溃

方案2：循环遍历汇总（无需筛选，逻辑更直观） #

如果不想用筛选功能，直接遍历全表判断日期：

Sub 按年月汇总_循环遍历()
    Dim 数据页 As Worksheet, 表单页 As Worksheet
    Dim 目标年份 As Integer, 目标月份 As Integer
    Dim 汇总结果 As Double
    Dim 最后一行 As Long, i As Long
    Dim 当前日期 As Date
    
    Set 表单页 = ThisWorkbook.Worksheets("表单页")
    Set 数据页 = ThisWorkbook.Worksheets("数据页")
    
    目标年份 = Val(表单页.ComboBox1.Value)
    目标月份 = Val(表单页.ComboBox2.Value)
    
    汇总结果 = 0
    ' 获取B列最后一行数据的行号
    最后一行 = 数据页.Cells(数据页.Rows.Count, "B").End(xlUp).Row
    
    ' 从第2行开始遍历（假设第1行是表头）
    For i = 2 To 最后一行
        ' 先判断单元格是否为有效日期，避免非日期值报错
        If IsDate(数据页.Cells(i, "B").Value) Then
            当前日期 = 数据页.Cells(i, "B").Value
            ' 对比年份和月份
            If Year(当前日期) = 目标年份 And Month(当前日期) = 目标月份 Then
                ' 判断D列是否为数字，防止空值或文本干扰汇总
                If IsNumeric(数据页.Cells(i, "D").Value) Then
                    汇总结果 = 汇总结果 + 数据页.Cells(i, "D").Value
                End If
            End If
        End If
    Next i
    
    ' 显示结果
    表单页.TextBox1.Value = Format(汇总结果, "#,##0.00")
End Sub

关键注意点 #

• 必须先判断单元格是否为日期（IsDate），否则遇到文本格式的假日期会报错
• 用Year()和Month()提取日期的年月，和组合框的数值对比，不受单元格显示格式影响

触发汇总的方法 #

可以让组合框选择变化时自动触发汇总，或者加个按钮点击执行：

方法1：组合框选择变化自动触发 #

在表单页的代码模块中添加以下代码（右键表单工作表标签→查看代码）：

Private Sub ComboBox1_Change()
    ' 年份选择变化时汇总
    Call 按年月汇总_AutoFilter ' 或者替换成 按年月汇总_循环遍历
End Sub

Private Sub ComboBox2_Change()
    ' 月份选择变化时汇总
    Call 按年月汇总_AutoFilter
End Sub

方法2：添加命令按钮触发 #

在表单页插入一个命令按钮（开发工具→插入→按钮），然后把汇总过程绑定到按钮的点击事件上。

可选优化：初始化组合框选项 #

为了避免用户手动输入错误的年月，可以在表单页激活时自动填充组合框选项：

Private Sub Worksheet_Activate()
    Dim i As Integer
    
    ' 初始化年份组合框（添加近5年，可自行调整范围）
    If 表单页.ComboBox1.ListCount = 0 Then
        For i = Year(Date) - 4 To Year(Date)
            表单页.ComboBox1.AddItem i
        Next i
    End If
    
    ' 初始化月份组合框（1-12月）
    If 表单页.ComboBox2.ListCount = 0 Then
        For i = 1 To 12
            表单页.ComboBox2.AddItem i
        Next i
    End If
End Sub

内容的提问来源于stack exchange，提问作者Qcer