Excel巧用VBA，批量设计打印工牌，省时又高效

经常在网上看到VBA已经过时的说法是真的吗？事实上，对于OFFICE的三套，特别是那些严重依赖Excel使用的人来说，如果能学会VBA，那对工作的提升真的不是一分钱。而且，VBA也没有人们想象的那么难学。只要努力学习，就一定能收获。(萧伯纳，学习) (学习)(学习，学习，学习，学习，学习，学习，学习，学习，学习，学习，学习，学习，学习，学习。

现在小编来给大家分享一个案例：有个朋友是做人力的，有一天公司老板跟他说，公司里的人所有工牌都要换新的，要重新设计，于是老板就给他一个标准模版，现在他要将公司所有员工的个人信息都按照模版的模式填上去，然后打印。

PS:他完全是没有一点VBA基础的，就一新手，当然这种情况他也不知道怎么处理好。

如果你碰到这种情况呢？你会如何去处理？其实非常简单 ，我们一起来看看。

PS:我们上图给大家演示的数据比较少，但如果大数据的时候那节省的时间是相当多的。

代码如下：

Sub 胸卡()

With Sheets("员工资料")

h = .[a1].End(xlDown).Row

pah = T & "\员工照片\"

For i = 1 To h - 1

x = (i - 1) Mod 2

y = ((i + 1) \ 2) - 1

Set txt = Sheets("员工胸卡").S(1, x * 170, y * 130, 160, 120)

sr = Chr(10) & "梁山水浒集团" & Chr(10) _

& "序号：" & .Cells(i + 1, 1) & Chr(10) _

& "姓名：" & .Cells(i + 1, 2) & Chr(10) _

& "星相：" & .Cells(i + 1, 3) & Chr(10) _

& "绰号：" & .Cells(i + 1, 4)

= sr

Sheets("员工胸卡").S pah & .Cells(i + 1, 1) & ".jpg", 1, 1, + 85, + 5, 70, 110

Next

End With

End Sub

知识点：

用VBA来插入文本框和参数基本循环语句FOR……NEXT

大家能看懂上面的代码吗？如果遇到同样的问题大家会处理了吗？当我们要一次性打印几千甚至几万个客户信息时，我们只需要按照实际情况将模版设计好，改一下里面的代码就OK了。