EXCEL库存管理、领料单调用BOM、流水账，求解决办法！

wuliyymk · 发表于 2018-9-29 19:20

本帖最后由 wuliyymk 于 2018-10-1 19:03 编辑

每天要领的物料，开领料单，自己只会简单的函数公式。

想要的效果都用红字注明了，是不是要用到宏了。

请各位大大帮下忙，公司又没ERP，只能靠EXCEL了来解决了。。。

成品多选关联几个成品的名称、订单数多选，全部调用到一张领料单、有很多通用件。

alstar · 发表于 2018-9-29 20:41

本帖最后由 alstar 于 2018-9-29 20:44 编辑

Sub test()
For Each Rng In Sheets("物料清单").Range("f1:f" & Sheets("物料清单").Cells(Rows.Count, "f").End(xlUp).Row)
If Rng = "成品" Then
a = Rng.Offset(0, -4) & "、" & a
End If
Next
a = Mid(a, 1, Len(a) - 1)
Sheets("领料单").[B4] = a
End Sub

复制代码

你这个挺简单的。就拿B4你所说的BOM叠加。最简单的方法循环判断。代码如上。
你下面的自动生成流水号什么的，就跟入库单差不多。。最近我写的最多的就是入库单，感觉都是大同小异。论坛上有很多。比如我前几天写的一个入库单

90122117辅料订单.rar (46.93 KB, 下载次数: 259)
参考一下吧。来料批号也一样。最简单的办法就是用split拆分再用join组合，从后到前的组合。

wuliyymk · 发表于 2018-9-29 20:45

本帖最后由 wuliyymk 于 2018-9-29 20:49 编辑

alstar 发表于 2018-9-29 20:41
你这个挺简单的。就拿B4你所说的BOM叠加。最简单的方法循环判断。代码如上。
你下面的自动生成流水号什 ...

你好，我是新手，这些看不懂啊

能按我的格式来一份吗？

我保存带宏的文件时，提示不能保存...

alstar · 发表于 2018-9-29 20:52

wuliyymk 发表于 2018-9-29 20:45
你好，我是新手，这些看不懂啊

能按我的格式来一份吗？

今天太晚了。明天看看吧。加我Q说吧24162962

wuliyymk · 发表于 2018-9-29 20:54

alstar 发表于 2018-9-29 20:52
今天太晚了。明天看看吧。加我Q说吧24162962

好的，已添加，谢谢你~！

wuliyymk · 发表于 2018-9-30 21:55

顶一顶，有大侠知道吗

wuliyymk · 发表于 2018-10-1 18:17

本帖最后由 wuliyymk 于 2018-10-3 11:05 编辑

更新了下附件，谢谢大家了

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

[求助] EXCEL库存管理、领料单调用BOM、流水账，求解决办法！

评分