这样的日期怎么填写

xing_chen

条件在右，数据再左，字典汇总怎么写呀

准提部林

這都是基本套路了//反反復復的寫//
Sub TEST_A1()
Dim Arr, Brr, xD, i&, x%, y%, D$, R&, N&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([a1], [m65536].End(3))
ReDim Brr(1 To UBound(Arr), 1 To 5)
For i = 2 To UBound(Arr)
    If Not IsDate(Arr(i, 13)) Then GoTo i01
    D = Format(Arr(i, 13) - 15, "yyyy/mm")
    R = xD(D)
    If R = 0 Then N = N + 1: R = N + 1: xD(D) = R: Brr(R, 1) = "'" & D
    For j = 1 To 3
        x = Mid(245, j, 1): y = Array(0, 7, 9, 10)(j)
        Brr(1, x) = Brr(1, x) + Arr(i, y)
        Brr(R, x) = Brr(R, x) + Arr(i, y)
    Next j
i01: Next i
[o2:s900].ClearContents
With [o2].Resize(N + 1, 5)
     .Value = Brr
     .Item(1) = "TOTAL"
     .Sort .Item(1), 1, , , , , , xlNo
End With
End Sub

准提部林

代碼審核中...上圖

xing_chen

准提部林 发表于 2023-3-26 11:14
代碼審核中...上圖

谢谢老师！运行如愿！

洋务德雷

xing_chen 发表于 2023-3-25 18:43
谢谢老师！我将你的代码修改了结果存放指定表，在上传的附件中运行，完全可以。但在我实际工作簿理复制你 ...

你实际工作簿里面的某系字段可能没有或者说有一点点区别，你自己核对一下。

xing_chen

洋务德雷 发表于 2023-3-26 15:45
你实际工作簿里面的某系字段可能没有或者说有一点点区别，你自己核对一下。

谢谢老师！现在如愿了！想到此问题，也检查了，可能眼睛老花了，硬是没有发现有空格。谢谢你了

xing_chen

洋务德雷 发表于 2023-3-25 17:41
看一下吧。

在吗？老师，帮忙看看

洋务德雷

SELECT 所属期,Sum(金额) as 金额,Sum(税额) as 税额,Sum(总额) as 总额 FROM(SELECT 金额,税额,总额,iif(datepart('d',所属期)>16,format(所属期,'yyyy/mm'),format(dateadd('m',-1,所属期),'yyyy/mm')) as 所属期 FROM [汇总表$a:m] WHERE 所属期 is not NULL) GROUP BY 所属期

你表格内原来的支付日期没有了，改成了所属期。所以sql代码里面没有修改

xing_chen

洋务德雷 发表于 2023-3-30 22:50
SELECT 所属期,Sum(金额) as 金额,Sum(税额) as 税额,Sum(总额) as 总额 FROM(SELECT 金额,税额,总额,iif(d ...

老师，抱歉!刚才发想你上来了，急了就将我未完成的代码发上来了。支付日期是不要改为所属期了

xing_chen

洋务德雷 发表于 2023-3-30 22:50
SELECT 所属期,Sum(金额) as 金额,Sum(税额) as 税额,Sum(总额) as 总额 FROM(SELECT 金额,税额,总额,iif(d ...

改了几小时了，都未成功。帮忙修改一下，以所属期分类汇总