亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

Excel制作漂亮的工資條的方法

互聯(lián)網(wǎng)   發(fā)布時(shí)間：2008-10-06 15:21:45   作者：佚名   我要評(píng)論
　　此文介紹了如何使用Excel進(jìn)行工資條的制作，也許有些網(wǎng)友使用已經(jīng)很長(zhǎng)時(shí)間了，如何更快更好的做出漂亮的工資條，看看作者的方法吧。 　　“小問題難倒老財(cái)務(wù)”，也許你已經(jīng)在財(cái)務(wù)口上工作多年，也許你天天都要面對(duì)Excel那張老臉，也許你已經(jīng)習(xí)慣了用工資明
　　此文介紹了如何使用Excel進(jìn)行工資條的制作，也許有些網(wǎng)友使用已經(jīng)很長(zhǎng)時(shí)間了，如何更快更好的做出漂亮的工資條，看看作者的方法吧。
　　“小問題難倒老財(cái)務(wù)”，也許你已經(jīng)在財(cái)務(wù)口上工作多年，也許你天天都要面對(duì)Excel那張老臉，也許你已經(jīng)習(xí)慣了用工資明細(xì)表做員工工資統(tǒng)計(jì)并向上級(jí)匯報(bào)，把表中的條目一條條復(fù)制粘貼后打印發(fā)給每個(gè)員工?？赡闶欠裣脒^，找一個(gè)更簡(jiǎn)單更有效率的方法？看起來這似乎有些困難：在工資明細(xì)表中，工資的項(xiàng)目（即表頭）一般只出現(xiàn)在表格開頭的某一行，而在工資條中，為了便于閱讀則要求每個(gè)人的工資都有表頭，那么如何巧妙地把工資明細(xì)表制作成便于打印的工資條呢？如圖所示，這就是我們要完成的工作（原工資表見圖1，轉(zhuǎn)換成工資條后的效果見圖2）：

img200708010957430

圖1 原工資表

img200708010957570

圖2 轉(zhuǎn)換后效果
　　“條條大路通羅馬”，不過路有遠(yuǎn)近之分，方法也有難易之別，這里給大家提供三種最簡(jiǎn)單易用的方法。
　　方法一：宏命令控制法
　　對(duì)于Office家族的宏功能，大家或許早有耳聞，但由于需要使用VBA進(jìn)行編程，所以宏一直讓許多人望而卻步，不過要使用一個(gè)現(xiàn)成的宏就簡(jiǎn)單多了。首先打開要處理的Excel表，選擇“工具→宏→Visual Basic 編輯器”，在編輯器左邊的窗口中用鼠標(biāo)雙擊Sheet1，會(huì)出現(xiàn)代碼編輯窗口，在代碼編輯窗口輸入如下代碼（為了不破壞原有的工資表，所以這里采用了將 Sheet1的內(nèi)容復(fù)制到Sheet2的方法，所以最后的生成結(jié)果是在Sheet2中顯示）：
Sub MakeSalaryList()
Dim i As Integer
Dim endrow As Integer
'測(cè)出數(shù)據(jù)的最后一行
endrow = Sheet1.Range("a65536").End(xlUp).Row - 1
'把標(biāo)題貼過去
Worksheets(1).Range("1:1").Copy (Worksheets(2).Cells(1, 1))
For i = 3 To endrow
'把每條數(shù)據(jù)抬頭貼過去
Worksheets(1).Range("2:2").Copy (Worksheets(2).Cells(3 * i - 7, 1))
'把數(shù)據(jù)貼過去
Worksheets(1).Range(Cells(i, 1), Cells(i, 256)).Copy (Worksheets(2).Cells(3 * i - 6, 1))
Next i
End Sub

　　關(guān)閉編輯器，將自動(dòng)返回到剛才的Excel表，選擇“工具→宏→宏”，將彈出如下對(duì)話框：
　　（見圖３）

img200708010958170

圖3 添加宏
　　點(diǎn)擊“執(zhí)行”，將在Sheet2生成如Gz-2所示的轉(zhuǎn)換成工資條，怎樣，不復(fù)雜吧。當(dāng)然，如果你的表總Sheet2已經(jīng)輸入了別的內(nèi)容，就可以將他復(fù)制到Sheet3來生成，代碼修改也很簡(jiǎn)單，把其中的Sheet2修改成Sheet3就可以了，其它代碼不變。

相關(guān)文章

最新評(píng)論