如何制作工资条(个人制作宏代码)简单易懂,每条命令都有注释:
如果你的表单名称为批量生成工资条,则复制到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) 对应一个地址.

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小时内删除。