通过EXCEL公式自动汇总显示月度数据变化

Movingatm

想要实现的功能描述：
1. 看板表中的3种订单类型（ET,OR,MS）的销售额能够根据C3以及日期的选择变化，销售总计这个没有实现;
2. 如何把这种日的形式变成月的形式，去体现21-24年每个月度数据变化；

附件中有按自己想法编制的公式，但结果返回是0。

请大神帮忙解惑！！！再三感谢！！！

预祝各位 新年快乐！龙年大吉！万事如意！顺遂安康！阖家幸福！

3190496160

这种问题还是代码来实现会好些吧

众妙之门1

不错不错，学习了。。。。。。

3190496160

Sub 多条件汇总()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object, dc As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("23-24 系统数据")
    r = .Cells(Rows.Count, 12).End(xlUp).Row
    ar = .Range("a1:l" & r)
End With
With Sheets("2021-2024系统数据看板")
    .UsedRange.Offset(7) = Empty
    ksy = .[c2]
    jsy = .[e2]
    zb = .[c3]
    If ksy = "" Or jsy = "" Then MsgBox "请输入年份范围！": End
    br = .Range("b7:m" & r + 10)
    For j = 2 To UBound(br, 2)
        d(br(1, j)) = j
    Next j
    k = 1
    For i = 2 To UBound(ar, 1)
        If ar(i, 1) <> "" Then
            If IsDate(ar(i, 1)) Then
                nf = Year(ar(i, 1))
                If nf >= ksy And nf <= jsy Then
                    If Trim(ar(i, 12)) = zb Then
                        yf = Month(ar(i, 1))
                        zd = nf & yf
                        t = d(zd)
                        If t = "" Then
                            k = k + 1
                            d(zd) = k
                            t = k
                            br(k, 1) = nf
                            br(k, 2) = yf
                        End If
                        br(t, 3) = br(t, 3) + ar(i, 8)
                        lh = d(ar(i, 9))
                        br(t, lh) = br(t, lh) + ar(i, 8)
                    End If
                End If
            End If
        End If
    Next i
    If k = 1 Then MsgBox "没有符合条件的数据！": End
    .[b7].Resize(k, UBound(br, 2)) = br
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

售后数据看板=试验版(1).rar (23.89 KB, 下载次数: 14)

2024-2-9 10:27 上传

点击文件名下载附件

3190496160

代码完成的，不是完全明白你的意思，仅供参考，实在不行，可以加v

Movingatm

3190496160 发表于 2024-2-9 10:26
Sub 多条件汇总()
Application.ScreenUpdating = False
Dim ar As Variant

谢谢大佬！我去试试，感谢！感谢！