用Excel宏實現(xiàn)工資表巧轉工資條

1、用Excel宏實現(xiàn)工資表巧轉工資條賽迪網-中國電腦教育報文/鄧亞思Excel具有強大的數(shù)據(jù)處理和打印輸出功能，并且易學易用，是廣大用戶喜歡使用的電子表格處理軟件?，F(xiàn)在一些單位的財會人員喜歡用Excel打印本單位的職工工資總表與工資條，但在Excel中要將工資總表（如表1）手工地轉換為工資條（如表2）則是一件比較煩瑣的事，下面是我編寫的一個Excel宏，運行這個宏就可將編輯好了的工資總表很方便地轉換為工資條打印輸出。表1工資表編號日期姓名職務工資各種補貼應領數(shù)扣水電其他扣款實發(fā)數(shù)001200109鄧衛(wèi)文勇151表2工資條編號日期姓名職務工資各種補貼應領數(shù)扣水電其他扣款實

2、發(fā)數(shù)001200109鄧衛(wèi)平15日期姓職務各種應際扣水電其他實發(fā)號名工資補貼次數(shù)扣款數(shù)成002200109文15勇在Excel中新建一個文件，將其命名為“工資表與工資條”，在工作表“sheetl”中輸入并編輯好本單位職工工資總表（如表1所示）后，點擊“工具”菜單一“宏”一“宏”一輸入宏名“生成工資條”一創(chuàng)建，輸入如下的宏的各行文本，輸入完成后保存該宏。將工作表“sheetl”復制為另一個工作表“sheet2”中，使“sheet2”成為當前工作表，執(zhí)行剛才創(chuàng)建的宏，即可很快將表1所示的工資表轉換為表2所示的工資條。宏的內容如下：Sub生成工資條（）選擇整個表去掉表格線Range("F1

3、").Activate(xlDiagonalDown).LineStyle=xlNone(xlDiagonalUp).LineStyle=xlNone(xlEdgeTop).LineStyle=xlNone(xlEdgeBottom).LineStyle=xlNone(xlEdgeRight).LineStyle=xlNone(xlInsideVertical).LineStyle=xlNone(xlInsideHorizontal).LineStyle=xlNoneRows("2:2").Select'選擇第2行Shift:=xlDown'在第2

4、行前插入一行，保持第2行為選中狀態(tài)num=150'總人數(shù)X3,如工資表中有100人則為100X3即num=300col=14'工資表的欄數(shù)，如工資表有17欄則'col=17num1=4DoWhilenum1<=num'循環(huán)插入空行Range(Cells(num1,1),Cells(num1,col).Select'選中第numl行的第1列到第col歹1Shift:=xlDownShift:=xlDownnum1=num1+3LoopRange(Cells(1,1),Cells(1,col).Select=False'剪切復制模式無效'

5、;復制選擇區(qū)域Range("A2").Select'選擇A2單元格從A2單元格起粘貼內容num2=5DoWhilenum2<=num'循環(huán)插入標題行Range(Cells(1,1),Cells(1,col).Select=FalseCells(num2,1).Selectnum2=num2+3LoopRange(Cells(2,1),Cells(3,col).Select=False(xlDiagonalDown).LineStyle=xlNone'定義表格邊框線、內線樣式(xlDiagonalUp).LineStyle=xlNoneWith(

6、xlEdgeLeft).LineStyle=xlDouble.Weight=xlThick.ColorIndex=xlAutomaticEndWithWith(xlEdgeTop).LineStyle=xlDouble.Weight=xlThick.ColorIndex=xlAutomaticEndWithWith(xlEdgeBottom).LineStyle=xlDouble.Weight=xlThick.ColorIndex=xlAutomaticEndWithWith(xlEdgeRight).LineStyle=xlDouble.Weight=xlThick.ColorIndex=x

7、lAutomaticEndWithWith(xlInsideVertical).LineStyle=xlDash.Weight=xlThin.ColorIndex=xlAutomaticEndWithWith(xlInsideHorizontal).LineStyle=xlDash.Weight=xlThin.ColorIndex=xlAutomaticEndWithRange(Cells(5,1),Cells(6,col).SelectPaste:=xlFormats,Operation:=xlNone,SkipBlanks:=_False,Transpose:=False'接上行刪除上行尾的連字符,復制表格線樣式num3=8DoWhilenum3<=num'循環(huán)復制表格線樣式Range(Cells(num3,1),Cells(num3+1,col).SelectPaste:=xlFormats,Operation:=xlNone,SkipBlanks:=_False,Transpose:=Falsenum3=num3+3LoopRows("1:1").Select'