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

zjdh · 发表于 2011-11-24 13:41

雷红英发表于 2011-11-24 10:52
老师，您好！我在用的时候，输进仓单时，有时单价不能自动跳出来，这是为什么？

我的说明书中说了，要先按新建----选择类型，再输入，但如果连续输入一种票据则不必每次按新建。
另外出库单的单价有公式，只要输入数量和总价，就跳出单价了。

xuyx · 发表于 2011-11-24 21:12

非常不错，感谢楼主分享，mark作为参考

liumufeng · 发表于 2011-11-25 16:37

顶，下载收藏了。谢谢啊！

jodyzyx · 发表于 2011-11-25 17:14

太好了正是我需要的帅

conquerqgw · 发表于 2011-11-26 09:54

初来乍到，没想到EXCEL还可以这样用！多多学习，多多学习！

ss119 · 发表于 2011-11-26 17:55

ss119 发表于 2011-11-24 03:44
按哥的指示，做个小图，看看我写的明白不。

哥～～
我的东西整咋样了。

zjdh · 发表于 2011-11-27 08:19

ss119 发表于 2011-11-26 17:55
哥～～
我的东西整咋样了。

这2天有事很忙

筱睛 · 发表于 2011-11-27 12:55

你好，非常感谢你的无私奉献，我在使用时遇到了问题跟您请教一下，我按照说明删除了基础信息、数据库只保留表头部分后点击了出入库单复位，但我添加物品名称超过11个后，库存表完全变成空白，表头的字也不见了，只剩下空表头框，这是什么原因呢，谢谢，有木有同样情况的筒子呀，快疯啦已经

zjdh · 发表于 2011-11-27 13:06

本帖最后由 zjdh 于 2011-11-27 13:14 编辑

一个小BUG，若原表清空各数据后不打开库存表，则不出现问题。
需修改库存表的：
Private Sub Worksheet_Activate()
Dim ARR, BRR, W%, I%, J%
On Error GoTo 10
Sheets("库存表").Range("A4:M" & Sheets("库存表").Range("A65536").End(3).Row + 2).ClearContents
ARR = Sheets("基础信息表").Range("A2:F" & Sheets("基础信息表").Range("A65536").End(3).Row)
.........................

1楼各附件已更新

筱睛 · 发表于 2011-11-27 15:20

zjdh 发表于 2011-11-27 13:06
一个小BUG，若原表清空各数据后不打开库存表，则不出现问题。
需修改库存表的：
Private Sub Worksheet_A ...

收到，试了一下，表头还在，库存表不取数了，高手在给帮忙看一下哈嘿嘿

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

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