經常在網上看到VBA已經過時的說法是真的嗎？事實上，對于OFFICE的三套，特別是那些嚴重依賴Excel使用的人來說，如果能學會VBA，那對工作的提升真的不是一分錢。而且，VBA也沒有人們想象的那么難學。只要努力學習，就一定能收獲。(蕭伯納，學習) (學習)(學習，學習，學習，學習，學習，學習，學習，學習，學習，學習，學習，學習，學習，學習。

現在小編來給大家分享一個案例：有個朋友是做人力的，有一天公司老板跟他說，公司里的人所有工牌都要換新的，要重新設計，于是老板就給他一個標準模版，現在他要將公司所有員工的個人信息都按照模版的模式填上去，然后打印。

PS:他完全是沒有一點VBA基礎的，就一新手，當然這種情況他也不知道怎么處理好。

如果你碰到這種情況呢？你會如何去處理？其實非常簡單 ，我們一起來看看。

PS:我們上圖給大家演示的數據比較少，但如果大數據的時候那節(jié)省的時間是相當多的。

代碼如下：

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來插入文本框和參數基本循環(huán)語句FOR……NEXT

大家能看懂上面的代碼嗎？如果遇到同樣的問題大家會處理了嗎？當我們要一次性打印幾千甚至幾萬個客戶信息時，我們只需要按照實際情況將模版設計好，改一下里面的代碼就OK了。