如何制作工资条(个人制作宏代码)简单易懂,每条命令都有注释:
如果你的表单名称为“批量生成工资条”,则复制到EXCEL中的宏代码如下:
个人网站的制作代码Sub Print_table()
Sheets("批量生成工资条").Select
'"批量生成工资条"是表单名称,应与表格名称一致.
For i = 1 To 5
'5 是打印工资条总的行数,随实际情况更改.
Range(Cells(3 * i + 1, 1), Cells(3 * i + 2, 20)).Select
'选择单个的工资条区域.
'range("A:A") 对应一个单元格,range(A,A) 对应一个区域.
'Cells(1,1) 对应一个地址.
'Cells(1,1) 对应一个地址.
Selection.Insert Shift:=xlDown
'插入选择的工资条区域.
Range(Cells(1, 1), Cells(2, 20)).Select
'表头位置区域定位.
Selection.Copy
'表头位置区域复制.
Cells(3 * i + 1, 1).Select
'插入地址定位.
ActiveSheet.Paste
'粘贴区域复制内容.
ActiveCell.Rows("1:1").EntireRow.RowHeight = 42
'设定行列间距大小.
Next
'循坏
'循坏
Application.CutCopyMode = False
'取消复制
Range("a2").Select
'定位到单元格A2
End Sub
将上面内容粘贴到:
然后,根据你的实际需求,做一些改变,具体的改变看代码注释。
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。
发表评论