用Excel制作漂亮的工資條的3種方法

　　如何使用Excel進行工資條的制作，也許有些網友使用已經很長時間了，但如何更快更好的做出漂亮的工資條，看看作者的方法吧。

　　“小問題難倒老財務”，也許你已經在財務口上工作多年，也許你天天都要面對Excel那張老臉，也許你已經習慣了用工資明細表做員工工資統計並 向上級匯報，把表中的條目一條條復制粘貼後打印發給每個員工。可你是否想過，找一個更簡單更有效率的方法?看起來這似乎有些困難：在工資明細表中，工資的 項目(即表頭)一般只出現在表格開頭的某一行，而在工資條中，為了便於閱讀則要求每個人的工資都有表頭，那麼如何巧妙地把工資明細表制作成便於打印的工資 條呢?如圖所示，這就是我們要完成的工作(原工資表見圖1，轉換成工資條後的效果見圖2)：

　　圖1 原工資表

　　圖2 轉換後效果

　　“條條大路通羅馬”，不過路有遠近之分，方法也有難易之別，這裡給大家提供三種最簡單易用的方法。

　　方法一：宏命令控制法

　　對於Office家族的宏功能，大家或許早有耳聞，但由於需要使用VBA進行編程，所以宏一直讓許多人望而卻步，不過要使用一個現成的宏就簡單 多了。首先打開要處理的Excel表，選擇“工具→宏→Visual Basic 編輯器”，在編輯器左邊的窗口中用鼠標雙擊Sheet1，會出現代碼編輯窗口，在代碼編輯窗口輸入如下代碼(為了不破壞原有的工資表，所以這裡采用了將 Sheet1的內容復制到Sheet2的方法，所以最後的生成結果是在Sheet2中顯示)：

    Sub MakeSalaryList()
Dim i As Integer
Dim endrow As Integer

測出數據的最後一行

endrow = Sheet1.Range("a65536").End(xlUp).Row - 1

把標題貼過去

    Worksheets(1).Range("1:1").Copy (Worksheets(2).Cells(1, 1))
For i = 3 To endrow

把每條數據抬頭貼過去

    Worksheets(1).Range(Cells(i, 1), Cells(i, 256)).Copy (Worksheets(2).Cells(3 * i - 6, 1))
Next i
End Sub

　　關閉編輯器，將自動返回到剛才的Excel表，選擇“工具→宏→宏”，將彈出如下對話框：(見圖3)

　　圖3 添加宏

　　點擊“執行”，將在Sheet2生成如Gz-2所示的轉換成工資條，怎樣，不復雜吧。當然，如果你的表總Sheet2已經輸入了別的內容，就可以將他復制到Sheet3來生成，代碼修改也很簡單，把其中的Sheet2修改成Sheet3就可以了，其它代碼不變。下一頁更精彩