Excel工资表自动生成工资条_详细图文教程 _EXCEL2007

今天小编和大师分享一下EXCEL工资表主动生当作工资条的方式，这样此后设置了工资条之后就不消再一个个去设置打印了。

文章插图

需要这些哦
EXCEL2007
方式/
1起首在电子表格那边留空第一行，然后按照下图输入相关内容，在G1单位格设置题目占行，选择G1单位格——数据——数据有用性——数据有用——设置——许可中选择序列——来历那边输入：1,2,3——点击确定。按同样方式在I1单位格设置数据有用性

文章插图

2第二步，插入两个长方形，点击插入——外形——选择矩形，然后在第一行合适位置画一个矩形并输入：生当作工资——点击格局，设置有立体感的矩形，选择本身喜好的颜色。同样方式插入另一个矩形并输入：删除数据。

文章插图

3第三步，同时按ALT+F11,打开VBA编纂器——点击插入——模块——在模块那边输入生当作工资条的VBA代码：
Sub 建造工资条()
Dim ks As Long
Dim js As Long
Dim bs As Long
Dim bz As Long
bs = Range("G1").Value + 1
js = Range("A65536").(xlUp).Row

Application.ScreenUpdating = False

If Range("I1") = "是" Then
Rows("2:2").Insert Shift:=xlDown
Rows("2:2").ClearFormats
Rows("2:2").RowHeight = 18
bz = bs + 1
For i = (js + 1) To (bs + 3) Step -1
Rows("2" & ":" & bz).Copy
Rows(i).Insert Shift:=xlDown
【Excel工资表自动生成工资条_详细图文教程】 Next
Rows("2:2").Delete Shift:=xlUp
If
If Range("I1") = "否" Then
For i = js To (bs + 2) Step -1
Rows("2" & ":" & bs).Copy
Rows(i).Insert Shift:=xlDown
Next
If
Application.ScreenUpdating = True
Application.CutCopyMode = False
Sub