按月汇总

hyhsql · 发表于 2024-10-29 15:13

恳请各位老师看一下

sdytsxd991122 · 发表于 2024-10-29 15:44

yanglinzi · 发表于 2024-10-29 16:19

yanglinzi · 发表于 2024-10-29 16:20

参与一下。。

hyhsql · 发表于 2024-10-29 18:52

本帖最后由 hyhsql 于 2024-10-30 08:34 编辑

Sub sdyt()
Set d=Createobject("scripting.dictionary")
brr=Sheet1.Range("a2"）.CurrentRegion
For i=2 To UBound(brr,2)
      d(brr(2,i))=i
Next
For i=2 To UBound(brr)
      d(brr(i,1))=i
Next
For Each sh In Worksheets
      If InStr(sh.Name,"项目")Then
         c=d(sh.Name)
         arr=sh.Usedrange
         For i=3 To UBound(arr)
            If arr(i,2)<>""And arr(i,7)<>""And d. exists(arr(i,9)) Then
                  r=d(arr(i,9))
                  brr(r,c)=brr(r,c)+arr(i,7)
                  brr(UBound(brr),c)=brr(UBound(brr),c）+arr(i,7)
                  brr(r,UBound(brr,2))=brr(r,UBound(brr,2))+arr(i,7)
               End If
         Next
      End If
   Next
   Sheet1.Range("a2").Currentregion=brr
   Set d=Nothing
End Sub

hyhsql · 发表于 2024-10-29 19:36

首先感谢yanglinzi老师的代码，但通过测试C项目的256、257行的金额没有合计进去。不知什么原因。

hyhsql · 发表于 2024-10-30 08:57

sdytsxd991122老师的代码通过测试能运行，但有一个小问题就是匹配到了天，而不是月，看能不能解决一下。
也就是1月1日和1月2日你的代码是有区别的。还有点按钮一次后再点按钮汇总表的金额就会累加。总之还是非常感谢老师的帮助。

张小生 · 发表于 2024-10-31 15:58

Sub mytest1()
Dim d%, ar, x%, m%, y%, n%, j%
d = Sheets("汇总").Range("a3:z3").Find("小计").Column
Sheets("汇总").Range(Cells(4, 2), Cells(15, d - 1)).ClearContents
ar = Sheets("汇总").Range(Cells(4, 1), Cells(15, d - 1))
For x = 2 To d - 1
For m = 1 To UBound(ar)
For y = 2 To Worksheets.Count
If Sheets("汇总").Cells(3, x) = Sheets(y).Name Then
For n = 4 To Sheets(y).Range("g60000").End(3).Row
If Month(Sheets(y).Cells(n, 9)) = Month(ar(m, 1)) And _
Sheets(y).Cells(n, 9) <> "" Then
ar(m, x) = ar(m, x) + Sheets(y).Cells(n, 7)
End If
Next n
End If
Next y
Next m
Next x
Sheets("汇总").Range("a4").Resize(UBound(ar, 1), UBound(ar, 2)) = ar
End Sub

复制代码

ykcbf1100 · 发表于 2024-10-31 16:39

参与一下，全表自动生成

ykcbf1100 · 发表于 2024-10-31 16:41

全表自动生成

		自动登录	找回密码
密码			免费注册

[求助] 按月汇总

评分

评分