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

zjdh · 发表于 2011-12-5 17:44

431688848 发表于 2011-12-4 11:36
zjdh老师，在录入出库单时有时输入“物品名称”后忘了输入“数量”。能不能输入了“物品名称”后“数量”没 ...

修改宏：
Sub baocun()
.........................
If Range("D3") = "" Then MsgBox "请输入部门": Exit Sub
For I = 6 To Application.CountA(Range("C6:C11")) + 5
   If Range("G" & I) = "" Then MsgBox "请检查，有数量未填！": Exit Sub
Next
I = Sheet6.[e65536].End(xlUp).Row
  .......................
  End Sub

zjdh · 发表于 2011-12-5 18:22

本帖最后由 zjdh 于 2011-12-5 18:35 编辑

枫丹白露发表于 2011-12-4 15:09
楼主：帮我也编个代码吧，类似你的入库单那样的。谢谢了。

你已解决了

枫丹白露 · 发表于 2011-12-5 20:02

zjdh 发表于 2011-12-5 18:22
你已解决了

请你也帮我一个忙吧。帮我编个代码吧。谢谢了。
有一个热心网友帮助我写了个代码，可是我复制代码到别的工作表不能用？
提示“下标出界”，也同时更改了代码里的工作表名称。

是代码编写问题，还是我复制后，更改语句不完善？

zjdh · 发表于 2011-12-5 21:22

你没把控件复制过去，宏找不到控件，当然“下标出界”！

zjdh · 发表于 2011-12-5 21:24

我已经看了那位网友的帖子，思路与我的基本一样，只是少了拼音输入（你不需要的）。

sanjiangren · 发表于 2011-12-6 15:06

楼主的热情热心是无容置疑的，再一次多谢楼主！现在还是有一点问题，当打印时，序号那一列提取不到，并且打印后，原来在序号列的公式被删除了，我的水平不够，再一次请楼主出手了

sanjiangren · 发表于 2011-12-6 15:40

我这个与之前的有少少改动，将批号与序号的位置转换了

zjdh · 发表于 2011-12-6 16:40

本帖最后由 zjdh 于 2011-12-6 20:10 编辑

sanjiangren 发表于 2011-12-6 15:40
我这个与之前的有少少改动，将批号与序号的位置转换了

你真会折腾！

面辅料出入库FOR_sanjiangren.rar (229.12 KB, 下载次数: 39)

suqji · 发表于 2011-12-6 21:25

果然不错,值得称赞

sanjiangren · 发表于 2011-12-7 08:07

这也是对条件的严谨，知识的渴求，可惜水平进度不大，唯有打扰老兄了。难得是老兄不厌其烦，不吝赐请，赞！

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

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