[已解决]如何用VBA设置输入多少行信息就保存多少行

hymjtc · 发表于 2021-9-15 09:40

明明输入了一行物料信息，为啥保存的是六行，怎样让他输入多少行物料信息，就保存多少行啊，求指点

出入库.zip (24.21 KB, 下载次数: 6)

lisongmei · 发表于 2021-9-15 10:08

s = Application.CountA(Range(Cells(8, 3), Cells(13, 3)))
C列有公式，所以你这个 s 永远等于6。所以保存的是6行，你把CountA改成Count应该就可以了

OK哈了哨 · 发表于 2021-9-15 10:09

s = Application.CountA(Range(Cells(8, 3), Cells(13, 3)))
换成s = Application.Count(Range(Cells(8, 3), Cells(13, 3)))

hymjtc · 发表于 2021-9-15 10:23

lisongmei 发表于 2021-9-15 10:08
s = Application.CountA(Range(Cells(8, 3), Cells(13, 3)))
C列有公式，所以你这个 s 永远等于6。所以保 ...

可以了，非常感谢，如果我在单据中输入两款以上物料，怎样让物料数据自动保存到对应的工作表中，有办法吗

hymjtc · 发表于 2021-9-15 10:23

OK哈了哨发表于 2021-9-15 10:09
s = Application.CountA(Range(Cells(8, 3), Cells(13, 3)))
换成s = Application.Count(Range(Cells(8, 3 ...

可以了，非常感谢，如果我在单据中输入两款以上物料，怎样让物料数据自动保存到对应的工作表中，有办法吗

OK哈了哨 · 发表于 2021-9-15 10:32

代码放change 事件里

lisongmei · 发表于 2021-9-15 10:34

hymjtc 发表于 2021-9-15 10:23
可以了，非常感谢，如果我在单据中输入两款以上物料，怎样让物料数据自动保存到对应的工作表中，有办法吗 ...

因你提供的表格里没有存放物料信息的表格，所以提供思路：
在你现在有代码中添加个if判断。

将物料信息在物料表格中查询是否存在， if 不存在 then 添加到最后一行即可

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