欢迎来到天天文库
浏览记录
ID:44811637
大小:565.00 KB
页数:5页
时间:2019-10-29
《EXCEL表启用宏做工资表(每条加标题行)》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、EXCEL表启用宏做工资表(每条加标题行)2、在视图打开宏。3、选择录制宏4、按确定,或修改宏名后按确定。5、再打开“查看宏”6、选择刚才的宏名再按“编辑”键。7、就会看到编程窗口。8、由于这个工资表的标题行为三行,所以,我们的代码如下:9、代码:Range("A4").Select '选中A4这一格h=5i=Selection.End(xlDown).Row'得到最后一行的行号Forj=4Toi-1'利用单前行到最后一行做循环Rows("1:3").SelectSelection.Copy'复制1-3行的数据Rows(h).
2、SelectSelection.InsertShift:=xlDown '选中行,插入行h=h+4'由于插入后行号会变,就是插行号Nextj如图:10、关闭窗口后,再点“停止录制”。11、这样就可以做工资表了。12、但做前,要复制一个来做打印的,因为生成的打印工资表是不是退回去的,也就是说,你生成的打印格式的工资表会和原来的不同,变了样。13、这个就是复制出来的!这个就是复制出来的!14、然后点“查看宏”。15、16、点了后工资表就变成这样,可以打印了!!
此文档下载收益归作者所有