物料成本核算先进先出分解显示

yjh_27 · 发表于 2012-5-8 13:26

shaokui123 发表于 2012-5-8 13:14
能不能再增加点小功能，就是还有一个盘点录入表，里面的格式差不多，能不能一键自动获取盘点表中每个不同 ...

所以要提出原始数据表。
VBA编程与函数有较大区别。

shaokui1234 · 发表于 2012-5-8 21:19

yjh_27 发表于 2012-5-8 13:12
25L 与8L 是同样的，只是添加了“分解”按钮

分解可多次执行，会自动加行或删行

不好意思，8楼的没注意到有代码
代码能全部注释一下吗
今下午不知道怎么原帐号登陆不上了，这是新注册的账号，还是我

shaokui1234 · 发表于 2012-5-8 21:20

yjh_27 发表于 2012-5-8 13:26
所以要提出原始数据表。
VBA编程与函数有较大区别。

好的，原始表我明天叫朋友给处理一下传上来
太感谢了

yjh_27 · 发表于 2012-5-8 21:43

本帖最后由 yjh_27 于 2012-5-8 21:44 编辑

Sub aa()
r = Range("a65536").End(3).Row '某物料末行
r0 = Range("A" & r).End(3).Row '某物料首行
Do
s0 = 0 '上月盘存合计
s1 = 0 '本月入库合计
s2 = 0 '本月盘存
'/计算s0 s1 s2
For i = r0 To r
If "盘" Like "[" & Cells(i, 4) & "]" Then
If Cells(i, 3) = "" Then
s2 = Cells(i, 5) '本月盘存
Exit For
Else
s0 = s0 + Cells(i, 5)
End If
Else
s1 = s1 + Cells(i, 5)
End If
Next
s3 = s0 + s1 - s2 '本月消耗
r1 = r - i '已有分解行数
'开始分解
For i1 = r0 To i - 1
If Cells(i1, 5) >= s3 Then '有剩余
s5 = Cells(i1, 5) - s3
s3 = 0
If r1 <= 0 Then '已有分解行用完，插入新行
Rows(r - r1 + 1).Insert Shift:=xlDown
End If
'写入数据
Cells(r - r1 + 1, 1) = Cells(i1, 1)
Cells(r - r1 + 1, 2) = Cells(i1, 2)
Cells(r - r1 + 1, 3) = Cells(i1, 3)
Cells(r - r1 + 1, 4) = Cells(i, 4)
Cells(r - r1 + 1, 5) = s5
Cells(r - r1 + 1, 6) = Cells(i1, 3) * s5
r1 = r1 - 1
Else
s3 = s3 - Cells(i1, 5) '用完，减消耗
End If
Next
If r1 > 0 Then '已有分解行未用完，删除
Rows(r - r1 + 1).Resize(r1).Delete Shift:=xlUp
End If
'/下一物料首末行
r = Range("A" & r0).End(3).Row
r0 = Range("A" & r).End(3).Row
Loop While r > 1 '循环至1行
End Sub

复制代码

shaokui1234 · 发表于 2012-5-9 16:55

For i = r0 To r
12. If "盘" Like "[" & Cells(i, 4) & "]" Then
13. If Cells(i, 3) = "" Then
这几句是什么意思啊
还有刚才又发现了一个，就是比如苹果那个物料，我把3月份苹果改一下去名字，再点击分解，竟然还能自动运算，没有报错

yjh_27 · 发表于 2012-5-9 18:48

shaokui1234 发表于 2012-5-9 16:55
For i = r0 To r
12. If "盘" Like "[" & Cells(i, 4) & "]" Then
13. If Cells(i, 3) ...

原始数据已假设按给出格式准备好，无误，所以没有检查环节。如需要则明确要求，另加代码。

shaokui123 · 发表于 2012-5-14 23:48

yjh_27 发表于 2012-5-9 18:48
原始数据已假设按给出格式准备好，无误，所以没有检查环节。如需要则明确要求，另加代码。

不好意思，这两天有事没在家
新作了附件，请您查看帮忙

新模拟.rar (21.33 KB, 下载次数: 19)

yjh_27 · 发表于 2012-5-15 09:18

你确认分解数据要插入原始核算表？下月还在本核算表继续分解，还是另准备新的原始核算表？

shaokui123 · 发表于 2012-5-15 18:13

yjh_27 发表于 2012-5-15 09:18
你确认分解数据要插入原始核算表？下月还在本核算表继续分解，还是另准备新的原始核算表？

对，核算表就是个累计，每个月都在一个表里操作
实际的表格都积攒了两年多的数据了

shaokui123 · 发表于 2012-5-16 22:16

期待着期待着，这两天白天有事不能上网，只能晚上来看看

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

[求助] 物料成本核算先进先出分解显示