请帮我设定为当天的流水号的送货单

inkrock · 发表于 2010-1-3 23:42:58

我想实现打印时自动保存并产生当天的流水号,有没有老师能帮帮我.

pureshadow · 发表于 2010-1-4 10:40:25

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("送货单").Range("h1") = Sheets("送货单").Range("h1") + 1
activeworkbook.Save
End Sub

inkrock · 发表于 2010-1-5 00:05:45

我安你这个放上去了.还是实现不了,你能不能下载下为添加一下试试.麻烦你了.

方漠 · 发表于 2010-1-5 09:30:35

本来想帮你看一下的,下附件还扣了2金币.

不是我在乎这些这些虚拟的东西,但真的没心情看了.

请尊重他人.

pureshadow · 发表于 2010-1-5 22:10:16

我安你这个放上去了.还是实现不了,你能不能下载下为添加一下试试.麻烦你了.
inkrock 发表于 2010-1-5 00:05

代码写在thisworkbook的VBE里，你那里原来有的东西删除。

pureshadow · 发表于 2010-1-5 22:20:11

Sheets("送货单").Range("h1") = Sheets("送货单").Range("h1") + 1
结果的格式是常规，需要改格式的话，外面套FORMAT函数。

pureshadow · 发表于 2010-1-5 22:22:21

本来想帮你看一下的,下附件还扣了2金币.

方漠发表于 2010-1-5 09:30

我在下载的时候没被扣BB啊……
看来有必要问下王站这是怎么回事。

inkrock · 发表于 2010-1-6 01:05:09

:还是搞不清楚喔..晕晕的..

inkrock · 发表于 2010-1-6 01:06:29

还是搞不好.
版主,不好意思.我太笨了,还是试不了.

帐号		自动登录	找回密码
密码			注册

[其它] 请帮我设定为当天的流水号的送货单

群介绍
主题无相 (随机显示版	同地区群块其他地区)