怎样做一个简单的进销存录入器

zhju1978 · 发表于 2020-1-13 14:19

本帖最后由 zhju1978 于 2020-1-13 15:02 编辑

如图所示,在录入器里(表一)输入清到货明细,按"保存",自动保存到"清单"表格里面,不知能否实现

orr89 · 发表于 2020-1-13 21:18

Sub 保存()
日期 = [d3]
供应商 = [d4]
单据类型 = [c2]
单号 = [g3] & [h3]
Range("C6:F" & [c60000].End(xlUp).Row).Copy
Sheets("清单流水").Select
Range("C" & [c60000].End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("a" & [a60000].End(xlUp).Row + 1 & ":a" & [c60000].End(xlUp).Row) = 日期
Range("b" & [b60000].End(xlUp).Row + 1 & ":b" & [c60000].End(xlUp).Row) = 供应商
Range("g" & [g60000].End(xlUp).Row + 1 & ":g" & [c60000].End(xlUp).Row) = 单据类型
Range("h" & [h60000].End(xlUp).Row + 1 & ":h" & [c60000].End(xlUp).Row) = 单号
End Sub
Sub 再来一单()
Range("c6:h" & [h60000].End(xlUp).Row).ClearContents
End Sub

约定的童话 · 发表于 2020-1-13 14:45

资源目录那个表格式跟前面这里有点不对应啊

zhju1978 · 发表于 2020-1-13 14:59

约定的童话发表于 2020-1-13 14:45
资源目录那个表格式跟前面这里有点不对应啊

是的,资源表里我改过,但按图上的就好,附件我重新处理一下,谢谢

excel海 · 发表于 2020-1-13 15:45

这东西能做，但不是一两句代码搞定的，你给的数据也不全

zhju1978 · 发表于 2020-1-14 09:43

orr89 发表于 2020-1-13 21:18
Sub 保存()
日期 = [d3]
供应商 = [d4]

这个我运行的时候它还是有点问题
Sub 再来一单()
Range("c6:h" & [h60000].End(xlUp).Row).ClearContents
End Sub

zhju1978 · 发表于 2020-1-14 10:32

orr89 发表于 2020-1-13 21:18
Sub 保存()
日期 = [d3]
供应商 = [d4]

已经完美运行，非常感谢！！！

orr89 · 发表于 2020-1-14 20:53

zhju1978 发表于 2020-1-14 09:43
这个我运行的时候它还是有点问题
Sub 再来一单()
Range("c6:h" & [h60000].End(xlUp).Row).ClearCo ...

有啥问题你要说额，忘记和你说你的要求1，联动并不需要VBA，用函数if嵌套就可以解决，可以上百度搜一下，if嵌套

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

[求助] 怎样做一个简单的进销存录入器

评分

最新热点 /1