物料超发与缺料的统计

brianlong · 发表于 2018-8-18 16:52

如附件应发数量是系统导出的数据，实发总数是手工填入的，其他数据都是通过计算所得。不好处理的是J列，根据实发总数然后参考应发数量将数据填入。超发和缺料尽量放在靠下面的料号。
哪位大侠帮忙写下代码，谢谢

brianlong · 发表于 2018-8-20 11:18

可能是前面表格做的不够标准化，我将合并单元格取消
大侠们帮忙想一下代码怎么写

zhenghui13 · 发表于 2018-8-20 17:09

我觉得这个用公式应该也可以做出来，不一定需要VBA；不过公式我不熟，请测试是否能达到效果。

Sub TZ_20180820()
Dim t
Dim arr
Dim i, j
Dim yf_Qty As Double
Dim yfz_Qty As Double
Dim sf_Qty As Double
Dim sfz_Qty As Double
t = Timer
arr = Sheet1.UsedRange
i = 2
Do While i <= UBound(arr)
yfz_Qty = arr(i, 8) '应发总数量
sfz_Qty = arr(i, 9) '实发总数量
yf_Qty = arr(i, 7) '应发数量
sf_Qty = arr(i, 10) '实发数量
If sfz_Qty > yfz_Qty Then j = 11 Else j = 12
arr(i, j) = Abs(sf_Qty - yf_Qty)
i = i + 1
Loop
Sheet2.[A1].Resize(UBound(arr), UBound(arr, 2)) = arr
Debug.Print Timer - t
End Sub

复制代码

zhenghui13 · 发表于 2018-8-20 17:10

发出不来？

Sub TZ_20180820()
Dim t
Dim arr
Dim i, j
Dim yf_Qty As Double
Dim yfz_Qty As Double
Dim sf_Qty As Double
Dim sfz_Qty As Double
t = Timer
arr = Sheet1.UsedRange
i = 2
Do While i <= UBound(arr)
yfz_Qty = arr(i, 8) '应发总数量
sfz_Qty = arr(i, 9) '实发总数量
yf_Qty = arr(i, 7) '应发数量
sf_Qty = arr(i, 10) '实发数量
If sfz_Qty > yfz_Qty Then j = 11 Else j = 12
arr(i, j) = Abs(sf_Qty - yf_Qty)
i = i + 1
Loop
Sheet2.[A1].Resize(UBound(arr), UBound(arr, 2)) = arr
Debug.Print Timer - t
End Sub

复制代码

zhenghui13 · 发表于 2018-8-20 17:11

附件供参考。

brianlong · 发表于 2018-8-20 19:04

zhenghui13 发表于 2018-8-20 17:11
附件供参考。

感谢你的帮助，你的代码执行的前提是应发数量已经分配好了，我是想让代码根据实发数量来分配实发数量，因为他是按单号来分行的。如果同一个料的实发总数4600大于第一个单的3000所以第一行是3000把4600-3000=1600放在下面一个单元格。如果一个料不止两行就以此类推。如果同一个料的实发总数大于0且小于第一个单的3000，就把实发总数放在实发数量的第一行。意思就是同一个料先满足靠前的单号，差额再分配到其他的单

zhenghui13 · 发表于 2018-8-21 09:05

brianlong 发表于 2018-8-20 19:04
感谢你的帮助，你的代码执行的前提是应发数量已经分配好了，我是想让代码根据实发数量来分配实发数量，因 ...

不是很明白你的意思，可否测试一下多一点数据；然后看一下哪里出错了?

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

[求助] 物料超发与缺料的统计

评分