[已解决]VBA IF 与 SUMIF的结合，求大神解答

汉尼拔 · 发表于 2016-9-12 14:15

需求：
“基础数据”工作表存储的是店铺按SKU的销量明细，逐日累加
“产品情况”工作表存储的是对销量明细的分析，在D列“销售至90%时间”，用VBA实现，当某个时间点时间之前的累计销量，第一次超过销售总量和剩余库存量之和的90%时，返回那天的时间。猜测是用 if 和 sumif 的结合实现，但一直没有完成，请大神指教
附件参上

最佳答案

月排行榜 / 总排行榜

grf1973

2016-9-12 16:55

Sub 计算()
Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
arr = Sheets(2).[a1].CurrentRegion
For i = 2 To UBound(arr)
d(arr(i, 1)) = arr(i, 2) + arr(i, 3) '产品的总量（销量+库存）
d1(arr(i, 1)) = i '产品所在的行
Next
Set d2 = CreateObject("scripting.dictionary")
brr = Sheets(1).[a1].CurrentRegion
For i = 2 To UBound(brr)
x = brr(i, 2) '产品
If arr(d1(x), 4) = "" Then
d2(x) = d2(x) + brr(i, 3) '销量累加
If d2(x) > d(x) * 0.9 Then arr(d1(x), 4) = brr(i, 1) '销量达到总量的90%，提取此日期（提取过一次就不再提取）
End If
Next
[a1].Resize(UBound(arr), 4) = arr
End Sub

复制代码

跳转到最佳答案楼层

汉尼拔 · 发表于 2016-9-12 14:36

在线等大神

grf1973 · 发表于 2016-9-12 16:55

这个最佳答案由 grf1973 给出，感谢 grf1973 的回答。

单击隐藏图章

Sub 计算()
Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
arr = Sheets(2).[a1].CurrentRegion
For i = 2 To UBound(arr)
d(arr(i, 1)) = arr(i, 2) + arr(i, 3) '产品的总量（销量+库存）
d1(arr(i, 1)) = i '产品所在的行
Next
Set d2 = CreateObject("scripting.dictionary")
brr = Sheets(1).[a1].CurrentRegion
For i = 2 To UBound(brr)
x = brr(i, 2) '产品
If arr(d1(x), 4) = "" Then
d2(x) = d2(x) + brr(i, 3) '销量累加
If d2(x) > d(x) * 0.9 Then arr(d1(x), 4) = brr(i, 1) '销量达到总量的90%，提取此日期（提取过一次就不再提取）
End If
Next
[a1].Resize(UBound(arr), 4) = arr
End Sub

复制代码

amzxfgh9632 · 发表于 2016-9-15 21:45

grf1973 发表于 2016-9-12 16:55

两个附件都有问题？？？打不开呀

雄鹰2013 · 发表于 2016-9-22 20:59

为什么会打不开

雄鹰2013 · 发表于 2016-9-22 21:50

grf1973 发表于 2016-9-12 16:55

提示数据错误，文件损坏，为什么不能解压文件。真奇怪

grf1973 · 发表于 2016-9-23 11:31

雄鹰2013 发表于 2016-9-22 21:50
提示数据错误，文件损坏，为什么不能解压文件。真奇怪

我自己下载了一下确实如此。可能前阵论坛出问题受影响了吧。

laoau138 · 发表于 2016-9-23 12:31

论坛什么时候能够恢复正常，升级搞坏了

雄鹰2013 · 发表于 2016-9-23 14:01

laoau138 发表于 2016-9-23 12:31
论坛什么时候能够恢复正常，升级搞坏了

你提问grf1973老师的几个问题能打包发我邮箱吗，我想学习一下178484059@qq.com ,谢谢。

laoau138 · 发表于 2016-9-23 14:05

本帖最后由 laoau138 于 2016-9-23 14:08 编辑

雄鹰2013 发表于 2016-9-23 14:01
你提问grf1973老师的几个问题能打包发我邮箱吗，我想学习一下178484059@qq.com ,谢谢。

彩票问题你还需要吧？

这几条好难看到头都痛

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

[已解决]VBA IF 与 SUMIF的结合，求大神解答

评分