年度1月到任意月的累加统计

wzd8671

程序有以下问题，请各位老师给予帮助
1.下标越界错误
2.日期格式转换错误
3.季度统计不会做
4.优化代码，学习更好的思路

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim d As Object
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     With Worksheets("统计表")
   
7.         rq = .Range("d1").Value
   
8.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
9.         .Range("c3:i" & r).ClearContents
   
10.         brr = .Range("a3:i" & r)
    
11.         For i = 1 To UBound(brr)
    
12.             d(brr(i, 2)) = i
    
13.         Next
    
14.     End With
    
15.     With Worksheets("基础表")
    
16.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
17.         c = .Cells(1, .Columns.Count).End(xlToLeft).Column
    
18.         arr = .Range("a1").Resize(r, c)
    
19.     End With
    
20.     For j = 2 To UBound(arr, 2)
    
21.         If d.exists(arr(1, j)) Then
    
22.             m = d(arr(1, j))
    
23.             For i = 2 To UBound(arr)
    
24.                 If DateDiff("m", arr(i, 1), rq) = 0 Then
    
25.                     brr(m, 3) = brr(m, 3) + arr(i, j)
    
26.                 ElseIf DateDiff("m", arr(i, 1), rq) = 1 Then
    
27.                     brr(m, 4) = brr(m, 4) + arr(i, j)
    
28.                 End If
    
29.                 If DateDiff("q", arr(i, 1), rq) = 0 Then
    
30.                     brr(m, 6) = brr(m, 6) + arr(i, j)
    
31.                 ElseIf DateDiff("q", arr(i, 1), rq) = 1 Then
    
32.                     brr(m, 7) = brr(m, 7) + arr(i, j)
    
33.                 End If
    
34.                 If Year(arr(i, 1)) = Year(rq) And month(arr(i, 1)) <= month(rq) Then
    
35.                     brr(m, 8) = brr(m, 8) + arr(i, j)
    
36.                 End If
    
37.             Next
    
38.         End If
    
39.     Next
    
40.     With Worksheets("统计表")
    
41.         .Range("a3").Resize(UBound(brr), UBound(brr, 2)) = brr
    
42.     End With
    
43. End Sub
    

复制代码

chxw68

同期不明白是什么意思，代码供楼主参考。

ykcbf1100

难是不难，就是写起来麻烦

wzd8671

chxw68 发表于 2024-12-10 18:59
同期不明白是什么意思，代码供楼主参考。

同期是去年当月值及去年1月到去年当月的累加值

quqiyuan

quqiyuan

dambcer

这不是POVIT的活吗

chxw68

补充完整了。

quqiyuan

在楼主基础上写了季度的函数，季度是当季不够月份就算有几个的，上一季度就是3个月的，仅供参考
没有测试跨年季度。