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

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

2、發(fā)數(shù)001200109鄧衛(wèi)平15日期姓職務(wù)各種應(yīng)際扣水電其他實發(fā)號名工資補貼次數(shù)扣款數(shù)成002200109文15勇在Excel中新建一個文件，將其命名為“工資表與工資條”，在工作表“sheetl”中輸入并編輯好本單位職工工資總表（如表1所示）后，點擊“工具”菜單一“宏”一“宏”一輸入宏名“生成工資條”一創(chuàng)建，輸入如下的宏的各行文本，輸入完成后保存該宏。將工作表“sheetl”復(fù)制為另一個工作表“sheet2”中，使“sheet2”成為當前工作表，執(zhí)行剛才創(chuàng)建的宏，即可很快將表1所示的工資表轉(zhuǎn)換為表2所示的工資條。宏的內(nèi)容如下：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'總?cè)藬?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'剪切復(fù)制模式無效'

5、;復(fù)制選擇區(qū)域Range("A2").Select'選擇A2單元格從A2單元格起粘貼內(nèi)容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'定義表格邊框線、內(nèi)線樣式(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'接上行刪除上行尾的連字符,復(fù)制表格線樣式num3=8DoWhilenum3<=num'循環(huán)復(fù)制表格線樣式Range(Cells(num3,1),Cells(num3+1,col).SelectPaste:=xlFormats,Operation:=xlNone,SkipBlanks:=_False,Transpose:=Falsenum3=num3+3LoopRows("1:1").Select'