[已解决]代码解释（14年可以用到了15年就不行了）我该怎么改？？

文轩馨婷 · 发表于 2015-1-8 16:36

本帖最后由文轩馨婷于 2015-1-8 18:43 编辑

代码解释（14年可以用到了15年就不行了）我该怎么改？？

求助求助！！！（顺便帮忙解释一下红色字体的中文意思！！）

Sub 汇总数据()
Dim arr, er(), x, k, d, rq
On Error GoTo m
Set d = CreateObject("scripting.dictionary")
   arr = Sheets("北海出货明细").Range("A1").CurrentRegion.Offset(1)
   ReDim er(1 To UBound(arr), 1 To 5)
   For x = 1 To UBound(arr)
  rq = Year(Date) & "-" & Sheet1.[F2]
      If Format(arr(x, 1), "yyyy-m") = rq Then
        If d.exists(arr(x, 2)) Then
            er(d(arr(x, 2)), 4) = er(d(arr(x, 2)), 4) + arr(x, 6)
         Else
            k = k + 1
            d(arr(x, 2)) = k
            er(k, 1) = arr(x, 2)
            er(k, 2) = arr(x, 3)
            er(k, 3) = arr(x, 7)
            er(k, 4) = arr(x, 6)
            er(k, 5) = arr(x, 8)
         End If
      End If
   Next
   With Range("a3")
     .Resize(k + 50, 5).Value = ""
   .Resize(k, 5).Value = er
   End With
   Exit Sub
m:       MsgBox "您选的月份尚未出货", 1 + 64, "温馨提示"
End Sub

{:251:}

最佳答案

月排行榜 / 总排行榜

爱疯

2015-1-8 18:02

北海走货数2.rar (77.99 KB, 下载次数: 9)

文轩馨婷 · 发表于 2015-1-8 16:41

附件已上传！！

拜托各位大侠！！！

JLxiangwei · 发表于 2015-1-8 16:47

文轩馨婷发表于 2015-1-8 16:41
附件已上传！！

拜托各位大侠！！！

测试没有问题啊

文轩馨婷 · 发表于 2015-1-8 16:57

JLxiangwei 发表于 2015-1-8 16:47
测试没有问题啊

大侠：
附件我已上传了，真无法汇总——12月31日还能今天用就不行了！

芐雨 · 发表于 2015-1-8 17:32

rq = Year(Date) & "-" & Sheet1.[F2]

Year(Date)得出的是当前的年份，所以是2015，你的明细都是2014的，当然得不到数据
把它修改为下面的语句就好

rq = "2014-" & Sheet1.[F2]

文轩馨婷 · 发表于 2015-1-8 17:39

芐雨发表于 2015-1-8 17:32
rq = Year(Date) & "-" & Sheet1.[F2]

Year(Date)得出的是当前的年份，所以是2015，你的明细都是2014的 ...

其实我也大概看出是这里错了，我改成rq = （Year(Date)-1） & "-" & Sheet1.[F2] 不行，我还以为别的地方还有错！

也就是说不能跨年汇总！

文轩馨婷 · 发表于 2015-1-8 18:00

芐雨发表于 2015-1-8 17:32
rq = Year(Date) & "-" & Sheet1.[F2]

Year(Date)得出的是当前的年份，所以是2015，你的明细都是2014的 ...

麻烦帮忙解释一下红色字体代码的中文咯！！

拜托拜托！

爱疯 · 发表于 2015-1-8 18:02

北海走货数2.rar (77.99 KB, 下载次数: 9)

文轩馨婷 · 发表于 2015-1-8 18:43

爱疯发表于 2015-1-8 18:02
看看有问题吗

经测试没有问题，也可跨年使用！
If d.exists(arr(x, 2)) Then
er(d(arr(x, 2)), 4) = er(d(arr(x, 2)), 4) + arr(x, 6) 这句意思是不是物料编码相同的走货数相加？

可否在加个“MsgBox”——没有当前年月的数据有提示！

谢谢！！

爱疯 · 发表于 2015-1-8 21:53

文轩馨婷发表于 2015-1-8 18:43
经测试没有问题，也可跨年使用！
If d.exists(arr(x, 2)) Then
er(d(arr(x, 2)), 4) ...

是的

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