




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、用Excel宏實(shí)現(xiàn)工資表巧轉(zhuǎn)工資條賽迪網(wǎng)-中國(guó)電腦教育報(bào)文/鄧亞思Excel具有強(qiáng)大的數(shù)據(jù)處理和打印輸出功能,并且易學(xué)易用,是廣大用戶喜歡使用的電子表格處理軟件?,F(xiàn)在一些單位的財(cái)會(huì)人員喜歡用Excel打印本單位的職工工資總表與工資條,但在Excel中要將工資總表(如表1)手工地轉(zhuǎn)換為工資條(如表2)則是一件比較煩瑣的事,下面是我編寫的一個(gè)Excel宏,運(yùn)行這個(gè)宏就可將編輯好了的工資總表很方便地轉(zhuǎn)換為工資條打印輸出。表1工資表編號(hào)日期姓名職務(wù)工資各種補(bǔ)貼應(yīng)領(lǐng)數(shù)扣水電其他扣款實(shí)發(fā)數(shù)001200109鄧衛(wèi)文勇151表2工資條編號(hào)日期姓名職務(wù)工資各種補(bǔ)貼應(yīng)領(lǐng)數(shù)扣水電其他扣款實(shí)
2、發(fā)數(shù)001200109鄧衛(wèi)平15日期姓職務(wù)各種應(yīng)際扣水電其他實(shí)發(fā)號(hào)名工資補(bǔ)貼次數(shù)扣款數(shù)成002200109文15勇在Excel中新建一個(gè)文件,將其命名為“工資表與工資條”,在工作表“sheetl”中輸入并編輯好本單位職工工資總表(如表1所示)后,點(diǎn)擊“工具”菜單一“宏”一“宏”一輸入宏名“生成工資條”一創(chuàng)建,輸入如下的宏的各行文本,輸入完成后保存該宏。將工作表“sheetl”復(fù)制為另一個(gè)工作表“sheet2”中,使“sheet2”成為當(dāng)前工作表,執(zhí)行剛才創(chuàng)建的宏,即可很快將表1所示的工資表轉(zhuǎn)換為表2所示的工資條。宏的內(nèi)容如下:Sub生成工資條()選擇整個(gè)表去掉表格線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)插入標(biāo)題行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'
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 二手車置換培訓(xùn)
- 電力安全生產(chǎn)法律法規(guī)培訓(xùn)
- 2025消防設(shè)施培訓(xùn)
- 復(fù)星醫(yī)藥產(chǎn)品經(jīng)理培訓(xùn)
- 我的喜怒哀樂心理健康活動(dòng)
- 大學(xué)生自我意識(shí)培養(yǎng)與心理健康
- 語言文字規(guī)范化培訓(xùn)資料
- 護(hù)理科研培訓(xùn)心得體會(huì)
- 2025高校教育信息化
- 中層經(jīng)理管理能力提升特訓(xùn)營(yíng)
- 呼吸機(jī)相關(guān)性肺炎(VAP)-的預(yù)防措施
- 欽州市第二人民醫(yī)院白石湖院區(qū)項(xiàng)目環(huán)境影響報(bào)告書
- 如何做好研究生導(dǎo)師
- 阿含經(jīng)白話文
- 撤銷冒名登記(備案)申請(qǐng)表
- 減肥總結(jié):如何制定有效的減肥計(jì)劃PPT
- 外科疾病專題知識(shí)講座培訓(xùn)課件
- 2022-2023學(xué)年四川省成都市雙流縣五年級(jí)數(shù)學(xué)第二學(xué)期期末聯(lián)考試題含解析
- 內(nèi)燃機(jī)車制動(dòng)機(jī)簡(jiǎn)介
- 通用包裝作業(yè)指導(dǎo)書SOP
- 水電開發(fā)對(duì)生態(tài)環(huán)境的不利影響
評(píng)論
0/150
提交評(píng)論