ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[分享] 送货单打印保存模板

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2019-5-22 11:02 | 显示全部楼层
本帖最后由 vivany 于 2019-5-22 11:09 编辑
aman1516 发表于 2019-5-22 09:54
请参考11楼‘69楼的附件,及13楼的打印设置说明’
如无指定打印区域,或打印区域设置,包括代码设置或手 ...

楼主!我不懂代码,那个打印设置的代码我不会操作。还有您的这个模板我觉得很好用,真的很方便,能不能稍微帮我修改一下啊?(我昨天下载之后,修改表格的项目之后,公式就不对应了,伤不起.......)怎么才能联系到您呢?付点酬劳也可以的,我的QQ445969378
1.png

TA的精华主题

TA的得分主题

发表于 2019-5-22 11:17 | 显示全部楼层
aman1516 发表于 2019-5-22 09:54
请参考11楼‘69楼的附件,及13楼的打印设置说明’
如无指定打印区域,或打印区域设置,包括代码设置或手 ...

就是您的这个模板非常好,我昨天下载试用了一下,感觉很方便,送货单模板的界面,数量和金额都自动汇总,确实很人性化.....就是不知道能否按照我自己的填写项目修改一下,昨天试着修改和删除自己暂时用不到的项目,但是后面公式就不对应了,好好的一个送货单被我整的面目全非(主要还是自己不懂这个代码无从下手)!!!

TA的精华主题

TA的得分主题

发表于 2019-5-22 11:30 | 显示全部楼层
vivany 发表于 2019-5-22 11:17
就是您的这个模板非常好,我昨天下载试用了一下,感觉很方便,送货单模板的界面,数量和金额都自动汇总, ...

表之间都是联动的应该,不能乱删,你可以隐藏

TA的精华主题

TA的得分主题

发表于 2019-5-22 12:03 | 显示全部楼层
aman1516 发表于 2019-5-22 09:54
请参考11楼‘69楼的附件,及13楼的打印设置说明’
如无指定打印区域,或打印区域设置,包括代码设置或手 ...

楼主啊!您出来吧。。。我上面一个帖子我还以为是你回复我的呢?

TA的精华主题

TA的得分主题

发表于 2019-5-22 12:04 | 显示全部楼层
aman1516 发表于 2019-5-22 09:54
请参考11楼‘69楼的附件,及13楼的打印设置说明’
如无指定打印区域,或打印区域设置,包括代码设置或手 ...

我没注意,还误加了别人的QQ,晕

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-5-22 12:35 | 显示全部楼层
vivany 发表于 2019-5-22 12:04
我没注意,还误加了别人的QQ,晕

如无一定的VBA基础,建议还是直接“套用”吧

TA的精华主题

TA的得分主题

发表于 2019-5-22 15:03 | 显示全部楼层
aman1516 发表于 2019-5-22 12:35
如无一定的VBA基础,建议还是直接“套用”吧

您好,楼主!不能帮我修改一下设置一下吗?我付费可以吗?

TA的精华主题

TA的得分主题

发表于 2019-5-30 20:19 | 显示全部楼层
你好,楼主,您这个模版非常好,今天我在试用的时候发现一个缺陷,今天是5月30日,送货单号点“新单”流水号为2019053002的时就不增加了,2019053003死活出不来,不知道是哪句代码出问题了,请解答一下。

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-5-30 21:18 | 显示全部楼层
xieyun1130 发表于 2019-5-30 20:19
你好,楼主,您这个模版非常好,今天我在试用的时候发现一个缺陷,今天是5月30日,送货单号点“新单”流水 ...

测试了一下,的确有个BUG,将下面这句代码里的“3”改成“2”即可:
Private Function 生成编号() As String
......
            Do
                If Right(theCell, 2) > theStrMaxNumNow Then theStrMaxNumNow = Right(theCell, 2)
                Set theCell = .FindNext(theCell)
            Loop Until theCell.Address = theFirstAddress
......
End Function

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2019-6-1 13:24 | 显示全部楼层
@aman1516  你好  谢谢您上次的帮助  这次我又遇到问题了  能否请您再帮一下

20CX.zip

588.3 KB, 下载次数: 44

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

本版积分规则

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

GMT+8, 2024-4-30 20:59 , Processed in 0.041169 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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