如何让单元格里的数字随着打印张数的增加自动递增?

rightjane · 发表于 2011-5-6 15:59

批量打印时, 单元格里的数字能不能随着打印张数的上升而自动递增? 比如原数字为"1", 那么打印第二张的时候自动变成"2", 依次累加. 再如, 原数字为"13", 那么打印第二份的时候, 这个单元格自动变成"14",,,,,
求大侠们帮忙啦,,,谢谢啦,,,,

Admin · 发表于 2011-5-7 18:05

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。

为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

changxuegu · 发表于 2011-5-7 19:33

你看这样行吗？

rightjane · 发表于 2011-5-9 10:16

谢谢你, "changxuegu"同学. 要求的功能实现了, 非常好用.
这个是怎么实现的, 能否解答一下? 本人比较菜, 通过附件也没看出来是怎么做到的.
3Q SO MUCH!!!

rightjane · 发表于 2011-5-9 10:32

我看出这个打印功能是怎样实现的了. 再弱弱地问下, 我要把这个功能应用到更多的地方, 应该怎么操作啊? 按"ALT" + "F11", 直接把代码拷过去就行了吗?

changxuegu · 发表于 2011-5-9 18:39

Sub 打印1()
For i = [d2] To [f2] 'd2是起始值所在单元格，f2是终止值所在单元格，可以根据具体情况。
[b4] = "#" & i & " of 29"
ActiveSheet.Range("a1:b9").PrintOut
Next
End Sub
调出窗体，建立一个命令按钮。

ltzzxbbs · 发表于 2011-5-9 18:57

原来是用VBA实现的呀，厉害，学习一下。

隔热涂料 · 发表于 2013-1-30 21:32

工作需要，正好也在找，学习中

chtn168 · 发表于 2013-10-11 10:45

单元格的数字随着打印张数自动递增。在那设置啊？请高手帮忙

小李954147686 · 发表于 2014-3-21 14:04

对命令按钮不怎么会，不过花了一个中午的时间终于弄会了，谢谢高手啦！

		自动登录	找回密码
密码			免费注册

[已解决] 如何让单元格里的数字随着打印张数的增加自动递增?

〖Excel Home友情提示〗

最新热点 /1