Excel Home论坛标题: VBA入库单改进版(窗体录入的完美例子) [打印本页]作者: xtanuihazfh 时间: 2011-5-16 19:39 标题: VBA入库单改进版(窗体录入的完美例子)前一闲来无事做了一个VBA入库单的模板,在论坛有不少的朋友关注,但是发现颇多可以改进之处,所以有了这个改进的版本 原贴地址:
http://club.excelhome.net/thread-717894-1-1.html这个新的表格有以下特点:
1.使用窗体录入,中间的添加与删除记录使用了动态添加文本框来放置输入数据的容器
2.具体相对比较完善的查询功能(可查询本期的库存数量,也可以查询数据库中的往期已经结案的库存与出入库明细记录)
3.具体月末结案功能,在月底交接的时候可以使用本功能来将本月的记录存放到数据库中,为下月的记录让出空间,这样不致使文件太大,也更加安全)
4.代码完全开源,关键处有注释不设置保护,为各位学VBA的朋友提供一个例子吧:victory: :victory: :victory: ,以下是相关的图片看过一定要顶啊!!![em07] [em07]
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
打开报错缺少控件的解决方法在11楼 ---------------------------------------------------------
上传了几个在excel中获取数据库中数据的相关动画,在32楼(第四页)
---------------------------------------------------------
http://club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTA0fDcwMGFmNjdlfDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)
this.width=screen.width*0.8\">图片附件: 录入窗口.jpg (2011-5-16 19:39, 49.57 KB) / 下载次数 83
http://club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTA1fDYwZTZmZTcwfDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)
this.width=screen.width*0.8\">图片附件: 查询窗口1.jpg (2011-5-16 19:39, 110.7 KB) / 下载次数 71
http://club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTA2fDI4ODYyODQ2fDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)
this.width=screen.width*0.8\">图片附件: 查询窗口2.jpg
(2011-5-16 19:39, 100.14 KB) / 下载次数 58
http://club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTA3fDRkNjczN2NjfDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)
this.width=screen.width*0.8\">附件: 入库单.zip (2011-6-18 22:11, 115.72 KB) / 下载次数 3374
http://club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTA4fDlmMjk3ZTRmfDEzMzM3ODgwODV8MTcyNDI5MXww图片附件: 半透明.jpg (2011-5-22 13:48, 148.72 KB) / 下载次数 57
http://club.excelhome.net/forum.php?mod=attachment&aid=OTI3MjE5fGQzMWZmY2NmfDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8) this.width=screen.width*0.8\">
作者: dg831451 时间: 2011-5-16 19:41[em07] 第一个来支持你。。。
作者: samhe520 时间: 2011-5-16 19:42 标题: 好谢谢楼主分享,不错.很漂亮
作者: 紫菜蛋汤 时间: 2011-5-16 19:43顶一下,希望飞
机多弄一些作品:victory:
作者: xtanuihazfh 时间: 2011-5-16 19:46发几个相关的动画,论坛附件有限制,不能发太多的,只能分开录了图片附件: 录入窗口.gif (2011-5-16 19:46, 144.81 KB) / 下载次数 82 http://club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTEwfDRlZWVkMTBlfDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)
this.width=screen.width*0.8\">图片附件: 录入单据.gif (2011-5-16 19:46, 248.16 KB) / 下载次数 52
http://club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTExfDliNGE0OTNhfDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)
this.width=screen.width*0.8\">图片附件: 查询1.gif (2011-5-16 19:46, 192.63 KB) / 下载次数 54
http://club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTEyfGY4ZjBkNDNmfDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)
this.width=screen.width*0.8\">图片附件: 查询2.gif (2011-5-16 19:46, 134.43 KB) / 下载次数 59
http://club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTEzfDdkNzE5MTAzfDEzMzM3ODgwODV8
MTcyNDI5MXwwscreen.width*0.8)
this.width=screen.width*0.8\">图片附件: 结案.gif (2011-5-16 19:46, 257.27 KB) / 下载次数 59
http://club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTE0fGEwZDMyMTk4fDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8) this.width=screen.width*0.8\">
作者: wcymiss 时间: 2011-5-16 19:48收藏了，向小飞学习
作者: cowisen 时间: 2011-5-16 19:52飞哥，支持下！
作者: jhzwc 时间: 2011-5-16 19:57飞~~我也来支持下你~~~
作者: 蓝天云朵 时间: 2011-5-16 20:022003版本无法下载，请另存为2003版本后再上传，谢谢！
作者: liuguansky 时间: 2011-5-16 20:03::D ，纯支持下，看不懂代码。
作者: xtanuihazfh 时间: 2011-5-16 20:05原帖由 蓝天云朵 于 2011-5-16 20:02 发表
2003版本无法下载，请另存为2003版本后再上传，谢谢！ ------------------------------------------------------------------------------------
存的就是xls的文件,只是动画用的07版录的罢了 打开报错可能是电脑中缺少控件的问题,我上传个控件,注册下就可以了
http://club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTM0fDljZTY3ZDc4fDEzMzM3ODgwODV8MTcyNDI5MXww附件: 控件注册.part2.rar (2011-5-16 20:42, 280 KB) / 下载次数 930
http://club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTM1fDVhMmM0ZDU4fDEzMzM3ODgwODV8MTcyNDI5MXww附件: 控件注册.part3.rar (2011-5-16 20:42, 160 KB) / 下载次数 844
http://club.excelhome.net/forum.php?mod=attachment&aid=OTIzOTM2fDVhMjNlZjM3fDEzMzM3ODgwODV8MTcyNDI5MXww
作者: xingjianli1985 时间: 2011-5-16 21:13支持飞，，不错的东东，，向你学习
作者: JLF2003 时间: 2011-5-16 21:15感谢楼主的分享！
作者: 刘志文 时间: 2011-5-16 21:43谢谢楼主的分享！
作者: yjlexcelhome 时间: 2011-5-16 21:44多谢分享.:handshake
作者: 啸傲东轩 时间: 2011-5-16 22:22有用没用，先谢谢这无私的精神！
作者: huangxiaofei520 时间: 2011-5-16 22:41录入界面提示 变量未定义！！！！！
作者: laosanjie 时间: 2011-5-16 22:50谢谢楼主分享:handshake
作者: benben1119 时间: 2011-5-16 23:27谢谢分享[em07]
作者: xmyjk 时间: 2011-5-17 00:53确实做得不错，谢谢分享。
作者: 紫凝倪 时间: 2011-5-17 02:55感谢楼主的分享！
作者: n520 时间: 2011-5-17 07:39我也来支持下你
作者: cww101122 时间: 2011-5-17 08:05 标题: 回复 1楼 xtanuihazfh 的帖子不错，支持一下
作者: qous1 时间: 2011-5-17 08:33谢谢楼主的分享，用了一下发现几个问题。
出入库单上没有 经手人和入库/出库人；
还有在窗口录入的时候，如果按照顺序先输单价再输数量会正常显示金额，但是如果先输了数量再输单价金额就不会自动显示了。
作者: zzx603 时间: 2011-5-17 11:46 标题: 回复 1楼 xtanuihazfh 的帖子谢谢你！对我很有帮助！
作者: xtanuihazfh 时间: 2011-5-17 12:20原帖由 qous1 于 2011-5-17 08:33 发表
谢谢楼主的分享，用了一下发现几个问题。 出入库单上没有 经手人和入库/出库人；
还有在窗口录入的时候，如果按照顺序先输单价再输数量会正常显示金额，但是如果先输了数量再输单价金额就不会自动显示了。 ------------------------------------------------------- 类模块里需要再改进一下,不过你暂时可以先修改一下数量就会自己改正的
作者: teewfg1015 时间: 2011-5-17 14:27[em07] 凹凸曼飞谢谢了
作者: xel_fan 时间: 2011-5-17 16:23好东西,下载来学习...
飞飞,我来顶你个肺...
作者: kulu74 时间: 2011-5-17 17:02谢谢楼主分享,不错.很漂亮[em01]
作者: liu12wenwen 时间: 2011-5-17 17:21谢谢楼主分享，好贴一定支持
作者: liimtj 时间: 2011-5-17 17:31必须支持 正想做一个类似的 学习一下
作者: xtanuihazfh 时间: 2011-5-17 18:39发几个excel中获取与透视数据库数据的方法,这样数据库对我们来说便不是完全看不见摸不着的东西了图片附件: 获取数据库内容.gif (2011-5-17 18:39, 239.77 KB) / 下载次数 149 http://club.excelhome.net/forum.php?mod=attachment&aid=OTI0NTU0fDAzMTQ3YTdifDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)
this.width=screen.width*0.8\">图片附件: 透视数据库.gif (2011-5-17 18:39, 240.86 KB) / 下载次数 88
http://club.excelhome.net/forum.php?mod=attachment&aid=OTI0NTU1fDJiMTdmZDJlfDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)
this.width=screen.width*0.8\">图片附件: Query查询1.gif (2011-5-17 18:39, 244.36 KB) / 下载次数 78
http://club.excelhome.net/forum.php?mod=attachment&aid=OTI0NTU2fGI0NjRmNzYwfDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)
this.width=screen.width*0.8\">图片附件: Query查询2.gif (2011-5-17 18:39, 220.06 KB) / 下载次数 66
http://club.excelhome.net/forum.php?mod=attachment&aid=OTI0NTU3fDc5NGU0YmMzfDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)
this.width=screen.width*0.8\">
作者: hnbaiyun 时间: 2011-5-17 19:25谢谢楼主分享
作者: kjianwu 时间: 2011-5-17 19:35不错，功能很全面，我要是有这个水平就不错了。
作者: 飞云楼主 时间: 2011-5-17 20:41我也来支持下
作者: yanqiguang 时间: 2011-5-17 20:53下下来研究研究！~~
作者: 356468826 时间: 2011-5-17 23:04闻讯赶来收藏 技术分贴 哈哈 学习~
作者: caicaikan 时间: 2011-5-17 23:10谢谢楼主分享,不错!!!:handshake
作者: caicaikan 时间: 2011-5-17 23:16为什么我无法使用啊？::'(图片附件: 未命名.JPG (2011-5-17 23:16, 10.95 KB) / 下载次数 1
http://club.excelhome.net/forum.php?mod=attachment&a
mp;aid=OTI0Njg5fDc4MWFjYTNhfDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8) this.width=screen.width*0.8\">
作者: 99253415 时间: 2011-5-18 07:49帖子很强悍，收藏学习中……
作者: qczvba 时间: 2011-5-18 09:13强顶此贴，很好的参考资料，谢楼主分享。:handshake
作者: yihesmxx 时间: 2011-5-18 09:27学习学习，谢谢分享。
作者: ron1214 时间: 2011-5-18 09:34太牛了，向你学习
作者: fly_dancer 时间: 2011-5-18 09:58这个牛逼啊，以后就用excel就可以解决问题了::P
作者: 一指禅62 时间: 2011-5-18 10:45学习了。:handshake
作者: wisdom100 时间: 2011-5-18 11:07恩 ~~ADO不
错
作者: wollle 时间: 2011-5-18 11:07很好 很强大
作者: zhy400137 时间: 2011-5-18 11:34楼主，我注册控后会出现：
系统错误&H80040111（-2147221231）。ClassFactory无法供应请求的类的情况点确定后，提示内存溢出，然后就一直重复这两项提示。 打开其他EXCEL表，又很正常 请楼主看看是什么原因，谢谢！ 我用的系统是WIN7，EXCEL是2010
作者: xtanuihazfh 时间: 2011-5-18 12:32原帖由 zhy400137 于 2011-5-18 11:34 发表 楼主，我注册控后会出现：
系统错误&H80040111（-2147221231）。ClassFactory无法供应请求的类的情况点确定后，提示内存溢出，然后就一直重复这两项提示。 打开其他EXCEL表，又很正常 请楼主看看是什么原因， ...
---------------------------------------------------
WIN7以右键管理员权限运行批处理注册就可以了 不行的话就把那两个控件复制到c:\\windows\\system32\\下,再用regsvr32注册下
作者: xtanuihazfh 时间: 2011-5-18 12:33原帖由 caicaikan 于 2011-5-17 23:16 发表 为什么我无法使用
啊？::'( ------------------------------------------------------------- 参考11楼的内容
作者: ah2005 时间: 2011-5-18 12:42楼主不把基础数据放进ACCESS进行数据的关联,浪费了ACCESS如此强大功能,
作者: theday63 时间: 2011-5-18 12:44:handshake
作者: 依依恋 时间: 2011-5-18 12:54支持飞哥。下载先~~~~
作者: morihui 时间: 2011-5-18 13:01这个要顶，真好
作者: singna 时间: 2011-5-18 13:53 标题: 新录入
的怎么找？我想查询刚刚录入系统的入库单，但是为什么我已经入库了，但是物流库存表里没有更新我录入的新信息呢，在查询里也找不到新录入的信息。求助，非常感谢。
作者: KISSOU 时间: 2011-5-18 13:55学习学习，
作者: guoybb 时间: 2011-5-18 14:12呵呵……支持楼主
作者: symbol_zh 时间: 2011-5-18 15:04很好很强大，什么时候我能有这水平就好了。一定要认真学习。
作者: yangbin5670 时间: 2011-5-18 15:50 标题: 回复 5楼 xtanuihazfh 的帖子真的很厉害啊，2010年8月份注册的就有这要的水平，超厉害！
作者: 花涧泪 时间: 2011-5-18 16:07我的电脑上提示：无法装载这个对象，因为它不适用于这台计算机。 这是什么情况？
作者: silence198761 时间: 2011-5-18 16:16功能很强，但为什么点击物料询会出现错误。：运行时错误-2147467259(80004005)。。。。
作者: tzby 时间: 2011-5-18 16:21寻求帮助。我EXCEL2010打不开。
作者: tzby 时间: 2011-5-18 16:35原帖由 xtanuihazfh 于 2011-5-18 12:32 发表
---------------------------------------------------
WIN7以右键管理员权限运行批处理注册就可以了 不行的话就把那两个控件复制到c:\\windows\\system32\\下,再用regsvr32注册下 还是不行哦。
作者: suosuody 时间: 2011-5-18 17:19做成这样 挺厉害的 佩服
作者: yaojil 时间: 2011-5-18 21:32谢谢楼主分享，学习啦
作者: 中国人. 时间: 2011-5-22 13:06顶一下， 继续加油。
作者: ColinCC 时间: 2011-5-26 23:07真是不错的帖子啊:victory:
作者: qczvba 时间: 2011-5-27 10:37楼主真是太有才了。继续。支持无私分享。
作者: gxyboy 时间: 2011-5-27 21:01佩服佩服，对我很有帮助，谢谢了
作者: fyycc 时间: 2011-5-27 22:14好强大啊.谢谢.
作者: ylcxcgk 时间: 2011-5-28 10:29真漂亮，正在学习中
作者: xtanuihazfh 时间: 2011-5-28 12:16原帖由 fyycc 于 2011-5-27 22:14 发表 好强大啊.谢谢. 不知在哪地方下载?
------------------------------------------------ 在最后一张图片上边那
作者: ylcxcgk 时间: 2011-5-28 13:36试了试，若期初是 0 的话，增加录入数据提示：库存不足，不能出库！怎么处理啊？
作者: vfoxer 时间: 2011-5-28 13:59来学习了，哈。:handshake
作者: zxsha 时间: 2011-5-29 12:21重在参与，知识在共享中增值，谢谢！
作者: ylcxcgk 时间: 2011-6-1 21:27原帖由 ylcxcgk 于 2011-5-28 13:36 发表
试了试，若期初是 0 的话，增加录入数据提示：库存不足，不能出库！怎么处理啊？ 我解决了 原
If ListStyle = \"入库\" And LvwItem.ListSubItems(7) <= 0 Then MsgBox \"库存不足,不能出库!\提示\": Exit Sub 修改为
If ListStyle = \"出库\" And LvwItem.ListSubItems(7) <= 0 Then MsgBox \"库存不足,不能出库!\提示\": Exit Sub
作者: xtanuihazfh 时间: 2011-6-18 22:08 标题: 2011年6月18日更新更新可以同时在入库单里面添加多条记录,详细见动画图片附件: 2.gif (2011-6-18 22:08, 192.23
KB) / 下载次数 81
http://club.excelhome.net/forum.php?mod=attachment&aid=OTQyNDIwfDdkNWIxNjU5fDEzMzM3ODgwODV8MTcyNDI5MXwwscreen.width*0.8)
this.width=screen.width*0.8\">附件: 入库单.zip (2011-6-18 22:08, 115.72 KB) / 下载次数 422
http://club.excelhome.net/forum.php?mod=attachment&aid=OTQyNDIxfDc3ZWE0ZjM4fDEzMzM3ODgwODV8MTcyNDI5MXww
作者: zhao99315 时间: 2011-6-20 20:58好东西，下面学习
作者: poor.456 时间: 2011-6-20 21:45我也来支持下你:handshake
作者: 1968昆明 时间: 2011-6-20 22:12vba很好:victory:
作者: ming668 时间: 2011-6-21 16:36好贴，学习一下。
作者: EIR 时间: 2011-6-21 19:03打开文件,系统提示：无法装载这个对象，因为它不适用于这台计算机。 请问是
什么原因？
作者: EIR 时间: 2011-6-21 19:09原帖由 caicaikan 于 2011-5-17 23:16 发表 为什么我无法使用啊？::'( 遇到相同问题，求解？
作者: xtanuihazfh 时间: 2011-6-21 20:24原帖由 EIR 于 2011-6-21 19:03 发表
打开文件,系统提示：无法装载这个对象，因为它不适用于这台计算机。 请问是什么原因？ 11楼有解决方法
作者: 120HYH 时间: 2011-6-21 21:34好，有用。谢
作者: fgwei 时间: 2011-6-21 22:37这个真的太棒了，谢谢分享
作者: EIR 时间: 2011-6-23 01:51录入数据窗口没有\"增加记录\"按钮
作者: xtanuihazfh 时间: 2011-6-23 12:25原帖由 EIR 于 2011-6-23 01:51 发表
录入数据窗口没有\"增加记录\"按钮 -------------------------------------------
最新修改的,可以打开查询窗口选择记录后双击即可批量录入,顺便添加记录
作者: shewoyu 时间: 2011-6-23 12:54赞叹中顶贴！！
作者: qczvba 时间: 2011-6-23 15:10楼主又更新了，强人，谢谢分享。
作者: maich 时间: 2011-6-23 23:12谢谢LZ的慷慨
作者: weimei(^_^) 时间: 2011-6-23 23:19::$ 想送花滴，木看见有花。。。。。[em07]
作者: xytd 时间: 2011-6-24 09:15顶一帖，慢慢再学习！！！
作者: yangjia1980 时间: 2011-6-24 09:30好东西，顶了再学
作者: sprayxyd 时间: 2011-6-24 12:27谢谢楼主的分享
作者: zslyyy 时间: 2011-6-25 18:12谢谢楼主的分享！
作者: Kelidai 时间: 2011-6-25 19:01做的漂亮，参考。
作者: Yi_Idea 时间: 2011-6-25 19:11学习了~ 支持一下~
作者: 刘志文 时间: 2011-7-5 23:35谢谢楼主分享!
作者: aas12312 时间: 2011-7-6 00:05支持你:handshake 欢迎光临 Excel Home论坛 (http://club.excelhome.net/) Powered by Discuz! X2
因篇幅问题不能全部显示，请点此查看更多更全内容