Excel工资表自动生成工资条_详细图文教程
今天小编和大师分享一下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").End(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
Next
Rows("2:2").Delete Shift:=xlUp
End If
If Range("I1") = "否" Then
For i = js To (bs + 2) Step -1
Rows("2" & ":" & bs).Copy
Rows(i).Insert Shift:=xlDown
Next
End If
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub
- 4
第四步，按照同样的方式，在统一个模块那边也输入删除数据的代码：
Sub 删除数据()
Rows("2:65536").Delete Shift:=xlUp
End Sub
然后保留退出VBA编纂器。
- 5
第五步，右击生当作工资条矩形——指心猿意马宏——然后找到并选择建造工资条的宏名称——点击确定，这样就指心猿意马生当作工资条的宏，同样方式删除数据矩形也指心猿意马到删除数据宏那边。
- 6
最后，在表格的第2行起头输入每小我的工资环境——题目占行选择：1（这个由本身决议）——是否隔行选择：是——然后点击生当作工资条，这时就会主动隔一行生当作工资条。
注重事项
- 但愿能帮忙到你
- 发表于 2019-06-22 21:34
- 阅读 ( 651 )
- 分类：其他类型
0 篇文章
作家榜 »
-
xiaonan123
189 文章
-
汤依妹儿
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
华志健
23 文章