不用手写啦！带编号的表格这样打印！

昨天有朋友问：一个表格需要打印100份，每份上得有编号，从00001-00100~~~模拟样图如下：

现在是改一份打印一份，有点儿崩溃，问有没有什么好办法？

找小梁我就对啦~~咱们一起来把工作变简单、变有趣吧~~

短短几行VBA代码，咱们就可以喝着茶看打印机忙活啦~~哈哈：）

先来看看效果（下面是打印8份的栗子）：

怎么样，悠哉么~~：）

1

除了打印按钮，为了更灵活，同时设置了【起始编号】、【步长】、【份数】三项可调：）

图中虚线是提前设置好了打印区域~

2

添加如下代码：

'定义变量：起始编号、步长、份数

Dim n_start, n_step, n_count As Integer

n_start = Cells(2, "H")

n_step = Cells(3, "H")

n_count = Cells(4, "H")

Dim i As Integer

For i = 1 To n_count

'指定编号格式

Cells(1, "E") = "No.000" & (n_start + (i - 1) * n_step)

'每个编号打印1套

PrintOut Copies:=1

Next

没看错，就是这么少的代码量哦~~：）

今天就到这里啦，大家一起来喝喝茶、聊聊天，生活好happy，哈哈~

【互动时刻】

前几天看到个帖子，说微软正在考虑让Python取代VB入主Office，你怎么看？是喜是悲？

快来留言吐吐槽~~：）

从Excel到卓越积跬步至千里