小小出入库管理系统(2012年12月又作了更新)

米粒之光重庆 · 发表于 2016-12-20 12:52

你好，请教个问题，我做了个表和你做的那个出入库类似，当然我的很初级，我设了个按钮，保存并打印，用了这个语句x = .Range("a65536").End(xlUp).Row + 1 '取得“出库单”表中最后一个空行的行号（即写入位置）但数据返回到了表外的最下面。我的出库单表有工式，(ˇˍˇ）想请教下你看看怎么改，可以的话我把我做的发附件给你帮看看

米粒之光重庆 · 发表于 2016-12-20 13:15

传不了附件是怎么回事哟，可以回邮箱吗1656504319@qq.com，十分感谢

米粒之光重庆 · 发表于 2016-12-20 13:18

生产部低值易耗品管理表完整版2.7z (105.03 KB, 下载次数: 14)

zjdh · 发表于 2016-12-20 14:34

米粒之光重庆发表于 2016-12-20 13:18

A列有公式，当然把它当数据处理啦，有2种方法处理;
1. 将 x = .Range("a65536").End(xlUp).Row + 1
改为 x = .Range("B65536").End(xlUp).Row + 1

2. 取消公式
插入一句 .Cells(x + i, 1) =x-3+i

zjdh · 发表于 2016-12-20 14:40

另外
Range("e2") = Left(s, 7) & Right("000000000" & Right(s, 9) + 1, 9)
可写成
Range("e2") = Left(s, 7) & Format(Right(s, 9)+1 ,"000000000")

zjdh · 发表于 2016-12-20 14:42

qjy321 发表于 2016-12-19 21:46
俺对VBA不了解，看了您的帖子非常钦佩！请求版主帮忙修改一下，具体要求在附件。万分感谢！！！

抱歉工作较忙，暂时没时间处理。

米粒之光重庆 · 发表于 2016-12-20 18:42

zjdh 发表于 2016-12-20 14:34
A列有公式，当然把它当数据处理啦，有2种方法处理;
1. 将 x = .Range("a65536").End(xlUp).Row + 1
...

好的，谢谢，非常感谢，家里没装打印机，明天到单位试下，后续还要求教老师，逐步完善这个表格，自己也多能学点

snowhit · 发表于 2016-12-20 22:37

谢谢分享，明天电脑下载学习

米粒之光重庆 · 发表于 2016-12-21 12:40

本帖最后由米粒之光重庆于 2016-12-21 12:43 编辑

For i = 0 To 15 '商品信息分九行，为了简化代码，使用循环语句
老师，麻烦问下我条代码为什么领件人，日期，及单据编号会多几行呢，还有我想保留出库单打印页的公式该怎么改呢，因为在公司上传不了附件，麻烦看下昨天传的附件3720楼，非常感谢

淄博杰达 · 发表于 2016-12-21 16:24

楼主，非常感谢一直以来对我的帮助

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

[分享] 小小出入库管理系统(2012年12月又作了更新)

最新热点 /1