ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: zjdh

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

    [复制链接]

TA的精华主题

TA的得分主题

发表于 2012-4-4 18:43 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖已被收录到知识树中,索引项:模板和开源系统
建议版主:增加库存数与盘点数的差异核对环节,实际工作中要将盘点差异做账务处理

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-4-4 20:37 | 显示全部楼层
莫悠悠 发表于 2012-4-4 15:56
“出入库管理”文档,具有自动建明细账,自动连续打印,查询等功能。
请教:ListBox1和TextBox1是怎样增加 ...

看贴:
http://club.excelhome.net/forum. ... tid=747224#lastpost

TA的精华主题

TA的得分主题

发表于 2012-4-4 21:31 | 显示全部楼层
请教:希望再库存表里面添加一条"库存为零的所有行都不显示."因为产品较多,再加上入\出库后库存变为零的太多.
既然是看库存,那库存为0的行就不应该显示啊!
再发另一个附件,希望老师能帮我解决:
我学老师加的ListBox1和TextBox1怎么都只能显示"产品型号"后面的两个显示不了,调了半天,不是错误就…………
谢谢老师帮忙改改。

产品图片表.rar

231.79 KB, 下载次数: 9

TA的精华主题

TA的得分主题

发表于 2012-4-5 14:25 | 显示全部楼层
本帖最后由 莫悠悠 于 2012-4-5 14:38 编辑

不能不说这是个非常好的系统,辛苦斑竹了!好样的

但是,也不能不说这个系统的缺点还是有的,就比如输入单据的时候不能发生错误,万一发现输错了代码想删除,这时候非得删掉该凭证不可,否则无法删除。
错了一行必须删掉整张单据,你觉得这样是不是有点问题?
还有,建议加上盘点差异这个维度,将盘点差异能在盘点数输入或导入后,能自动生成盘点差异,然后用新的盘点数替换为结存数。
按Esc键后只能删编码,其他内容删不了。
还望斑竹多费心

TA的精华主题

TA的得分主题

发表于 2012-4-5 17:08 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
请教,‘单据录入’表的背景图案是怎么弄的?

TA的精华主题

TA的得分主题

发表于 2012-4-5 17:56 | 显示全部楼层
tianyk 发表于 2012-4-5 17:08
请教,‘单据录入’表的背景图案是怎么弄的?

2003版:(”格式“——”工作表“——”背景“)
2007版:(”页面布局“——”背景“)

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-4-5 18:43 | 显示全部楼层
本帖最后由 zjdh 于 2012-4-5 18:56 编辑
莫悠悠 发表于 2012-4-5 14:25
不能不说这是个非常好的系统,辛苦斑竹了!好样的

但是,也不能不说这个系统的缺点还是有的,就比如输入 ...


1.  不知你是否仔细阅读使用说明或看过1楼的“删除记录行”动画!
2.  “盘点差异”只是你个人的需求,不能怪罪于我的系统!(处理方法有多种)
3.  Esc键不能删编码!要清除所有输入只需按“新建”命令!

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-4-5 19:14 | 显示全部楼层
王仁杰 发表于 2012-4-4 21:31
请教:希望再库存表里面添加一条"库存为零的所有行都不显示."因为产品较多,再加上入\出库后库存变为零的太多 ...

1. 库存为“0“不显示并不难,需求是因人而异的。
2. 附件已修改,建议模糊输入只采用代码+名称,否则物资多的话输入时会感到反应迟钝。
具体修改,删除红色语句
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    ...................
    For I = 1 To UBound(Arrsj)
        S = Arrsj(I, 1) & " " & Arrsj(I, 2) & " " & Arrsj(I, 3)
        N = ""
        If LG Then
            N = S
        Else
     ......................
End Sub
产品图片表.rar (190.47 KB, 下载次数: 29)

TA的精华主题

TA的得分主题

发表于 2012-4-5 19:58 | 显示全部楼层
本帖最后由 王仁杰 于 2012-4-5 20:04 编辑
zjdh 发表于 2012-4-5 19:14
1. 库存为“0“不显示并不难,需求是因人而异的。
2. 附件已修改,建议模糊输入只采用代码+名称,否则物 ...


请老师指教下"1."的问题.{:soso_e130:}
就是老师的<出入库系统6-3>大作的"库存表"工作薄里"库存数量"为"零"或"空"值时,则该行不显示的命令.  (个人需求,请求老师帮助)感激不尽{:soso_e100:}
因为我在"基本信息表"里面加入了很多产品,(方便入库时直接输入). 当然"库存数量"里面很多没有,所以是"0"或"空"值.     (因此才有这,个人需求)
再则:有时产品出库后,"库存数量"变为"0"后.(少点无所谓,但是多了,不方便直接看库存有的产品)
"2."的问题已解决,再谢谢老师的建议.非常好,简洁实用.{:soso_e179:}

TA的精华主题

TA的得分主题

发表于 2012-4-6 08:45 | 显示全部楼层
本帖最后由 莫悠悠 于 2012-4-6 08:46 编辑

斑竹,不好意思,确实没看一楼的动画,因为我是直接下了操作,请见谅还谢谢您的提醒!

能请教个问题么?

我想只是选择编码和物品名称填入表格,例如在做会计处理的时候,只需要科目代码和科目名称,需要怎么对代码进行修改?
其实是想运用在做会计凭证上。不胜感激!

科目代码.rar

8.19 KB, 下载次数: 9

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-25 02:08 , Processed in 0.038765 second(s), 7 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表