根据月份和规格进行发货数求和

LMW · 发表于 2024-11-20 15:51

我需要按照月份（比如说5月份）或者日期（比如5月1日-5月30日），再根据规格型号，进行发货数和金额的汇总，
我弄了好几天都没有弄好，不知道是哪里出问题了，

我自己弄了2个VBA程式，一个只能根据规格型号汇总，不知道怎么加上月份的条件，
一个有日期条件，但是运行不了，
请各位大佬帮帮忙看看。

xlj310 · 发表于 2024-11-20 16:00

取汇总表里要拉取的月份。
月初 = Sheets("汇总").Range("A2").Value
月末 = Application.WorksheetFunction.EoMonth(月初, 0)
然后你的判断条件加上月份判断就可以了。
If Trim(arr(i, 8)) <> "" And arr(i, 3) >= 月初 And arr(i, 3) <= 月末 Then

Qs18 · 发表于 2024-11-20 16:35

Sub qs()
Dim arr, i, dic
Set dic = CreateObject("scripting.dictionary")
arr = Sheet4.Range("a1").CurrentRegion.Value
y2 = Val(Sheet2.[A1].Value)
ReDim brr(1 To UBound(arr), 1 To 3)
For i = 2 To UBound(arr)
y = VBA.Month(CDate(arr(i, 3)))
s = arr(i, 8)
If y = y2 Then
If Not dic.exists(s) Then
m = m + 1
dic(s) = m
brr(m, 1) = s: brr(m, 2) = arr(i, 10): brr(m, 3) = arr(i, 12)
Else
rw = dic(s)
brr(rw, 2) = brr(rw, 2) + arr(i, 10)
brr(rw, 3) = brr(rw, 3) + arr(i, 12)
End If
End If
Next
Sheet2.Range("b2").Resize(10000, 3) = Empty
Sheet2.Range("b2").Resize(m, 3) = brr
End Sub

复制代码

Qs18 · 发表于 2024-11-20 16:36

试试..........

Qs18 · 发表于 2024-11-20 16:38

试试...........

sxbjzjf110 · 发表于 2024-11-20 17:09

在你的基础上加了一个条件判断

LMW · 发表于 2024-11-20 20:10

Qs18 发表于 2024-11-20 16:36
试试..........

谢谢，这样就可以了，非常好用

LMW · 发表于 2024-11-20 20:16

sxbjzjf110 发表于 2024-11-20 17:09
在你的基础上加了一个条件判断

谢谢，增加这个条件可以用了，

gwjkkkkk · 发表于 2024-11-20 20:20

请参考。。。

gwjkkkkk · 发表于 2024-11-20 20:23

参与一下。。。

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

[求助] 根据月份和规格进行发货数求和

评分

评分