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

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

工具/原料

• EXCEL2007

方式/步骤

1. 1

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

   
2. 2

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

   
3. 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. 4

   第四步，按照同样的方式，在统一个模块那边也输入删除数据的代码：

    Sub 删除数据()

    Rows("2:65536").Delete Shift:=xlUp

    End Sub

   然后保留退出VBA编纂器。

   
5. 5

   第五步，右击生当作工资条矩形——指定宏——然后找到并选择建造工资条的宏名称——点击确定，这样就指定生当作工资条的宏，同样方式删除数据矩形也指定到删除数据宏那边。

   
6. 6

   最后，在表格的第2行起头输入每个人的工资环境——题目占行选择：1（这个由本身决议）——是否隔行选择：是——然后点击生当作工资条，这时就会主动隔一行生当作工资条。

   

注重事项

• 但愿能帮忙到你