按两种方式分类汇总，怎么写

wuaijie · 发表于 2023-4-13 07:50

这是我写的代码，总不成功，有没有解决办法？
个人认为是加一个if语句就行，可是总不行，有没有老师指导下

liulang0808 · 发表于 2023-4-13 07:59

楼主先做什么，具体怎么做结合附件内容描述下吧
代码不出结果，也不知道具体是什么逻辑

wuaijie · 发表于 2023-4-13 08:01

liulang0808 发表于 2023-4-13 07:59
楼主先做什么，具体怎么做结合附件内容描述下吧
代码不出结果，也不知道具体是什么逻辑

代码写不下去，

具体要求就是按照周汇总每个物品的数据。

liulang0808 · 发表于 2023-4-13 08:09

Sub sum()
Dim brr()
Set d = CreateObject("scripting.dictionary")
arr = Range("A1:G32")
For i = 2 To UBound(arr)
      If Len(arr(i, 1)) > 0 Then
         s = Application.WeekNum((arr(i, 1)), 2)
         For p = 2 To 7 Step 2
            d(s & "-" & arr(i, p)) = d(s & "-" & arr(i, p)) + arr(i, p + 1)
         Next p
      End If
Next i
ReDim brr(1 To d.Count, 1 To 3)
r = 0
For Each k In d.keys
      crr = Split(k, "-")
      r = r + 1
      brr(r, 1) = crr(0)
      brr(r, 2) = crr(1)
      brr(r, 3) = d(k)
Next k
[n1].Resize(r, 3) = brr
End Sub

liulang0808 · 发表于 2023-4-13 08:10

按两种方式汇总（周汇总物品分类汇总）.zip (17.89 KB, 下载次数: 12)
猜了一下，供参考

lushang2018 · 发表于 2023-4-13 08:36

grf1973 · 发表于 2023-4-13 10:47

Sql里面好象没有周数的函数，试了几个都不行，只能用辅助列。

洋务德雷 · 发表于 2023-4-13 15:18

我的建议也是增加辅助表。其实用SQL就不用VBA了，直接用SQL也是可以的。

wuaijie · 发表于 2023-4-15 10:54

liulang0808 发表于 2023-4-13 08:09
Sub sum()
Dim brr()
Set d = CreateObject("scripting.dictionary")

谢谢版主，出差好几天，没空登陆，m
马上学习，谢谢了

wuaijie · 发表于 2023-4-15 10:55

洋务德雷发表于 2023-4-13 15:18
我的建议也是增加辅助表。其实用SQL就不用VBA了，直接用SQL也是可以的。

看来我得赶快学习sql了，感觉VBA都没学入门，就有得学新的知识，压力好大

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

[求助] 按两种方式分类汇总，怎么写