ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

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

    [复制链接]

TA的精华主题

TA的得分主题

发表于 2020-12-18 15:03 | 显示全部楼层
本帖已被收录到知识树中,索引项:模板和开源系统
zjdh 发表于 2020-12-17 11:58
在ThisWorkbook中添加宏
Private Sub Workbook_Open()
   Dim objNetwork As Object

老师 我复制改了,但是不对,我不知怎么做。
能否帮忙在excel中改好,谢谢!!
默认打印机为“Send To OneNote 2017”

TA的精华主题

TA的得分主题

发表于 2020-12-21 09:05 | 显示全部楼层
zjdh 发表于 2020-12-17 11:58
在ThisWorkbook中添加宏
Private Sub Workbook_Open()
   Dim objNetwork As Object

求帮助

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-12-21 11:31 | 显示全部楼层
本帖最后由 zjdh 于 2020-12-21 11:32 编辑

我那是改变默认打印机的语句,若在你的系统中行不通,可在改为在打印宏中指定打印机:
ActiveSheet.PrintOut Copies:=1, ActivePrinter:="Send To OneNote 2016"

TA的精华主题

TA的得分主题

发表于 2020-12-22 17:45 | 显示全部楼层
zjdh 发表于 2020-11-17 10:46
另若以重量为计量单位可直接将金额改为重量。

楼主,您好!我想把打印的字调稍微大一点点,在录入页面调了,电脑显示的是变大了,但打印的还是一样。请问在哪里调整?

TA的精华主题

TA的得分主题

发表于 2020-12-23 09:11 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-12-24 12:59 | 显示全部楼层
爱吃橙子 发表于 2020-12-22 17:45
楼主,您好!我想把打印的字调稍微大一点点,在录入页面调了,电脑显示的是变大了,但打印的还是一样。请 ...

就在打印页面直接调整,打印页面保护密码:123

TA的精华主题

TA的得分主题

发表于 2020-12-25 08:49 | 显示全部楼层
本帖最后由 jyyyj 于 2020-12-25 08:50 编辑

楼主:
如果已在电脑桌面打开一个excel文件,然后再打开本管理系统,登陆,就会显示下标越界,关闭越界提示,所有excel文件都消失不见。再打开原excel文件,该文件和本系统又出现,但系统无法使用。必须保证桌面无打开的excel文件时,本系统才能正常使用。先打开本系统,再打开其他文件是可以正常使用的。(windows10系统,excel2013)
不知是否遇到过此问题,能否解决?
下标越界.jpg

TA的精华主题

TA的得分主题

发表于 2020-12-25 09:44 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
新人学习中,感谢平台,感谢大佬无私提供的资料

TA的精华主题

TA的得分主题

发表于 2020-12-25 09:56 | 显示全部楼层
大神  能增加仓库名称吗?比如说多个分公司,各分公司仓库单独命名,总部操控入库单,需要入在各分公司的账上

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-12-26 10:15 | 显示全部楼层
jyyyj 发表于 2020-12-25 08:49
楼主:
如果已在电脑桌面打开一个excel文件,然后再打开本管理系统,登陆,就会显示下标越界,关闭越界提 ...

1. 所有excel文件都消失不见,是因为本系统有意隐藏应用程序界面。
2. 你说的“下标越界”情况我这没出现过,可能是你的系统所致。
    你可以修改宏,出现越界提示时,点击调试,看哪一句出了问题,
将该句中所有Sheets(***)语句改为:Thisworkbook.Sheets(***)
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

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

GMT+8, 2024-6-17 20:58 , Processed in 0.036982 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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