用_Excel_制作漂亮的工資條的方法

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

2、換成工資條后的效果見圖2)：圖1 原工資表圖2 轉(zhuǎn)換后效果“條條大路通羅馬”，不過路有遠(yuǎn)近之分，方法也有難易之別，這里給大家提供三種最簡單易用的方法。方法一：宏命令控制法對于Office家族的宏功能，大家或許早有耳聞，但由于需要使用VBA進(jìn)行編程，所以宏一直讓許多人望而卻步，不過要使用一個現(xiàn)成的宏就簡單多了。首先打開要處理的Excel表，選擇“工具宏Visual Basic 編輯器”，在編輯器左邊的窗口中用鼠標(biāo)雙擊Sheet1，會出現(xiàn)代碼編輯窗口，在代碼編輯窗口輸入如下代碼(為了不破壞原有的工資表，所以這里采用了將 Sheet1的內(nèi)容復(fù)制到Sheet2的方法，所以最后的生成結(jié)果是在Sheet2

3、中顯示)：Sub MakeSalaryList()Dim i As IntegerDim endrow As Integer測出數(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(C

4、ells(i, 1), Cells(i, 256).Copy (Worksheets(2).Cells(3 * i - 6, 1)Next iEnd Sub關(guān)閉編輯器，將自動返回到剛才的Excel表，選擇“工具宏宏”，將彈出如下對話框：(見圖3)圖3 添加宏點(diǎn)擊“執(zhí)行”，將在Sheet2生成如Gz-2所示的轉(zhuǎn)換成工資條，怎樣，不復(fù)雜吧。當(dāng)然，如果你的表總Sheet2已經(jīng)輸入了別的內(nèi)容，就可以將他復(fù)制到Sheet3來生成，代碼修改也很簡單，把其中的Sheet2修改成Sheet3就可以了，其它代碼不變。1.個人認(rèn)為，工資條打印一般是都橫向的A4紙，所以我把頁面方向改成橫向2.在word里作工資條格

5、式（和工資表的格式是一模一樣的。我直接在EXCEL里復(fù)制過來。）3.打開工具-信函和郵件-郵件合并（這時跳出的是向?qū)?。?.下一步啟動文檔-下一步選取收件人-點(diǎn)瀏覽-打開數(shù)據(jù)源(目錄)-下一步攢寫信函-其他先項(xiàng)-插入哉(插入到相應(yīng)的位置-下一步預(yù)覽信函-完成合并-編輯個人信函 5.大家看到的工資條的生成是一頁一條,我們把它設(shè)置一下:先中所有頁, 頁面設(shè)置-版式-節(jié)的起始位置 接續(xù)本頁-應(yīng)用于 整篇文章完成了新插入一個工作表 在A1輸入以下公式(可復(fù)制以下內(nèi)容) =IF(MOD(ROW(),3)=0,IF(MOD(ROW(),3)=1,清單!A$1,INDEX(清單!$A:$GH,INT(ROW

6、()+4)/3),COLUMN() 如果有兩行項(xiàng)目可以使用下面公式: =IF(MOD(ROW(),4)=0,IF(MOD(ROW(),4)=1,清單!A$1,IF(MOD(ROW(),4)=2,清單!A$2,INDEX(清單!$A:$GF,INT(ROW()+9)/4),COLUMN() 然后向右向下拖拉復(fù)制公式。 其中清單為工資表的表名,可在公式里修改。 工資條間距離需要自己設(shè)置 本工資簿包含兩張工資表。 第1張工資表就是工資清單，稱為清單。它第一行為標(biāo)題行包括職工姓名、各工資細(xì)目。 第2張工作表就是供打印的表，稱為工資條。它應(yīng)設(shè)置為每三行一組，每組第一行為標(biāo)題，第二為姓名和各項(xiàng)工資數(shù)據(jù)，第

7、三行為空白行。就是說整張表被3除余1的行為標(biāo)題行，被3除余2的行為包括職工姓名、各項(xiàng)工資數(shù)據(jù)的行，能被3整除的行為為空行。 在某一單元格輸入套用函數(shù)=MOD(ROW(),3)，它的值就是該單元格所在行被3除的余數(shù)。因此用此函數(shù)能判別該行是標(biāo)題行、數(shù)據(jù)行還是空行。 在A1單元格輸入公式=IF(MOD(ROW(),3)=0,IF(MOD(ROW(),3)=1,清單!A$1,value-if-false)并往下填充，從A1單元格開始在A列各單元格的值分別為清單A1單元格的值即姓名、value-if-false、空白，姓名、value-if-false、空白，。其中value-if-false表示MO

8、D(ROW(),3)既不等于0又不等于1時，即它等于2時應(yīng)取的值。它可用如下函數(shù)來賦值：INDEX(清單!$A:$G,INT(ROW()+4)/3),COLUMN()。INDEX()為一查找函數(shù)它的格式為：INDEX(reference,row-num,col-num),其中reference為查找的區(qū)域，本例中為清單表中的A到G列，即函數(shù)中的清單!$A:$G，row-num為被查找區(qū)域中的行序數(shù)即函數(shù)中的INT(ROW()+4)/3)，col-num為被查找區(qū)域中的列序數(shù)即函數(shù)中的COLUMN()。第2、5、8.行的行號代入INT(ROW()+4)/3)正好是2、3、4，COLUMN()在A

9、列為1。因此公式=INDEX(清單!$A:$G,INT(ROW()+4)/3),COLUMN()輸入A列后，A2、A5、A8單元格的值正好是清單A2、A3、A4,單元格的值。這樣，表的完整的公式應(yīng)為=IF(MOD(ROW(),3)=0,IF(MOD(ROW(),3)=1,清單!A$1,INDEX(清單!$A:$G,INT(ROW()+4)/3),COLUMN()。把此公式輸入A1單元格，然后向下向右填充得到了完整的工資條表。 為了表格的美觀還應(yīng)對格式進(jìn)行設(shè)置，一般習(xí)慣包括標(biāo)題、姓名等文字在單元格中要取中，數(shù)字要右置，數(shù)字小數(shù)點(diǎn)位數(shù)也應(yīng)一致，還有根據(jù)個人的愛好設(shè)置邊框。本表格只需對一至三行的單元

10、格進(jìn)行設(shè)置，然后通過選擇性格式設(shè)置完成全表的設(shè)置。 用Excel巧轉(zhuǎn)工資條size=2color=RedExcel具有強(qiáng)大的數(shù)據(jù)處理和打印輸出功能，并且易學(xué)易用，是廣大用戶喜歡使用的電子表格處理軟件?，F(xiàn)在一些單位的財會人員喜歡用Excel打印本單位的職工工資總表與工資條，但在Excel中要將工資總表(手工地轉(zhuǎn)換為工資條則是一件比較煩瑣的事，下面是我編寫的一個Excel宏，運(yùn)行這個宏就可將編輯好了的工資總表很方便地轉(zhuǎn)換為工資條打印輸出。 在Excel中新建一個文件，將其命名為“工資表與工資條”，在工作表“sheet1”中輸入并編輯好本單位職工工資總表(后，點(diǎn)擊“工具”菜單“宏”“宏”輸入宏名“生

11、成工資條”創(chuàng)建，輸入如下的宏的各行文本，輸入完成后保存該宏。將工作表“sheet1”復(fù)制為另一個工作表“sheet2”中，使“sheet2”成為當(dāng)前工作表，執(zhí)行剛才創(chuàng)建的宏，即可很快將表1所示的工資表轉(zhuǎn)換為表2所示的工資條。 /color/sizecolor=Bluesize=2宏的內(nèi)容如下： Sub生成工資條() Cells.Select 選擇整個表去掉表格線 Range(F1).Activate Selection.Borders(xlDiagonalDown).Line Style=xlNone Selection.Borders(xlDiagonalUp).LineStyle=xlNo

12、ne Selection.Borders(xlEdgeLeft).LineStyle=xlNone Selection.Borders(xlEdgeTop).LineStyle=xlNone Selection.Borders(xlEdgeBottom).LineStyle=xlNone Selection.Borders(xlEdgeRight).LineStyle=xlNone Selection.Borders(xlInsideVertical).LineStyle=xlNone Selection.Borders(xlInsideHorizontal).LineStyle=xlNone

13、 Rows(2:2).Select 選擇第2行 Selection.InsertShift:=xlDown 在第2行前插入一行，保持第2行 為選中狀態(tài) num=150 總?cè)藬?shù)3，如工資表中有100人則 為1003即num=300 col=14 工資表的欄數(shù)，如工資表有17欄則 col=17 num1=4 DoWhilenum1=num 循環(huán)插入空行 Range(Cells(num1,1),Cells(num1,col).Select 選中第num1行的第1列到第col列 Selection.InsertShift:=xlDown Selection.InsertShift:=xlDown nu

14、m1=num1+3 Loop Range(Cells(1,1),Cells(1,col).Select Application.CutCopyMode=False 剪切復(fù)制模式無效 Selection.Copy 復(fù)制選擇區(qū)域 Range(A2).Select 選擇A2單元格 ActiveSheet.Paste 從A2單元格起粘貼內(nèi)容 num2=5 DoWhilenum2=num 循環(huán)插入標(biāo)題行 Range(Cells(1,1),Cells(1,col).Select Application.CutCopyMode=False Selection.Copy Cells(num2,1).Selec

15、t ActiveSheet.Paste num2=num2+3 Loop Range(Cells(2,1),Cells(3,col).Select Application.CutCopyMode=False Selection.Borders(xlDiagonalDown).LineStyle =xlNone 定義表格邊框線、內(nèi)線樣式 Selection.Borders(xlDiagonalUp).LineStyle=xlNone WithSelection.Borders(xlEdgeLeft) .LineStyle=xlDouble .Weight=xlThick .ColorIndex=

16、xlAutomatic EndWith WithSelection.Borders(xlEdgeTop) .LineStyle=xlDouble .Weight=xlThick .ColorIndex=xlAutomatic EndWith WithSelection.Borders(xlEdgeBottom) .LineStyle=xlDouble .Weight=xlThick .ColorIndex=xlAutomatic EndWith WithSelection.Borders(xlEdgeRight) .LineStyle=xlDouble .Weight=xlThick .Col

17、orIndex=xlAutomatic EndWith WithSelection.Borders(xlInsideVertical) .LineStyle=xlDash .Weight=xlThin .ColorIndex=xlAutomatic EndWith WithSelection.Borders(xlInsideHorizontal) .LineStyle=xlDash .Weight=xlThin .ColorIndex=xlAutomatic EndWith Selection.Copy Range(Cells(5,1),Cells(6,col).Select Selection.PasteSpecialPaste:=xlFormats,Operation:=xlNone,SkipBlanks:=_ False,Transpose:=False 接上行刪除上行尾的連字符 _，復(fù)制表格線樣式 num3=8 DoWhilenum3=num 循環(huán)復(fù)制表格線樣式 Range(Cells(num3,1),Cells(num3+1,col) .Select