工作中碰到困难，VBA高手帮我解决解决，祥见附件

xiawangying

工作中碰到困难，VBA高手帮我解决解决，祥见附件 生产单汇总表.zip (20.12 KB, 下载次数: 20)

2013-11-9 09:09 上传

点击文件名下载附件

该贴已经同步到 xiawangying的微博

840205910

管理数据格式
生产单号        产品名称        规格型号        月份        计划        投产        入库        销售
SY13TW01-001        温控器        单控        1月        1200        500        100        80
SY13TW01-002        电热管        30CM        1月        300        400        250        80
SY13TW01-003        温控器        单控        2月        200        150        140        80
SY13TW02-004        温控器        双园        3月        200        150        140        80
SY13TW02-005        电热管        30CM        2月        200        150        140        80
SY13TW02-006        电热管        45CM        5月        200        150        140        80
SY13TW02-007        电热管        30CM        3月        200        150        140        80
SY13TW03-008        温控器        单控        5月        200        150        140        80
SY13TW04-009        电热管        30CM        5月        200        150        140        80
SY13TW04-010        电热管        45CM        5月        200        150        140        80

840205910

Book1.zip (6.14 KB, 下载次数: 17)

2013-11-9 10:15 上传

点击文件名下载附件

840205910

Sub 汇总()
Set d = CreateObject("scripting.dictionary")
Sheet1.Range("c4:bd" & Sheet1.[a65536].End(3).Row) = ""
arr = Sheet2.UsedRange
For i = 2 To UBound(arr)
For j = 4 To 7
s = arr(i, 2) & arr(i, 3) & Val(Mid(arr(i, 1), 7, 2)) & "月" & arr(1, j)
p = arr(i, 2) & arr(i, 3) & arr(1, j)
If arr(i, 1) <> "" Then d(s) = d(s) + arr(i, j): d(p) = d(p) + arr(i, j)
Next: Next
For i = 4 To Sheet1.[a65536].End(3).Row
For j = 9 To Sheet1.[iv3].End(1).Column Step 4
For k = 0 To 3

Cells(i, j + k) = d(Cells(i, 1) & Cells(i, 2) & Cells(2, j) & Cells(3, j + k))
Cells(i, 3) = d(Cells(i, 1) & Cells(i, 2) & "计划")
Cells(i, 4) = d(Cells(i, 1) & Cells(i, 2) & "投产")
Cells(i, 6) = d(Cells(i, 1) & Cells(i, 2) & "入库")
Cells(i, 7) = d(Cells(i, 1) & Cells(i, 2) & "销售")
Cells(i, 5) = d(Cells(i, 1) & Cells(i, 2) & "投产") - d(Cells(i, 1) & Cells(i, 2) & "入库")
Cells(i, 8) = d(Cells(i, 1) & Cells(i, 2) & "入库") - d(Cells(i, 1) & Cells(i, 2) & "销售")
Next: Next: Next
End Sub

840205910

生产单汇总表.zip (19.41 KB, 下载次数: 14)

2013-11-9 15:49 上传

点击文件名下载附件

xiawangying

840205910 发表于 2013-11-9 15:50

谢谢帮我，有时1月份的订单不一定发生在1月份投产、入库、销售。也有可能发生在2月份或3月份，但你把我原先的表2改过了，就不能体现了

840205910

xiawangying 发表于 2013-11-9 16:11
谢谢帮我，有时1月份的订单不一定发生在1月份投产、入库、销售。也有可能发生在2月份或3月份，但你把我原 ...

你附件里的意思是按订单号的第7、8两位数表示月份的，
如果那样，用2楼的格式行不行，加以列月份？

840205910

你表2究竟能不能改？