工资表怎么生成工资条？

Question

如题所述

Answer 1

在Excel中新建一个文件，将其命名为“工资表与工资条”，在工作表“sheet1”中输入并编辑好本单位职工工资总表（如表1所示）后，点击“工具”菜单→“宏”→“宏…”→输入宏名“生成工资条”→创建，输入如下的宏的各行文本，输入完成后保存该宏。将工作表“sheet1”复制为另一个工作表“sheet2”中，使“sheet2”成为当前工作表，执行刚才创建的宏，即可很快将表1所示的工资表转换为表2所示的工资条。
宏的内容如下：
Sub
生成工资条()
Cells.Select
'选择整个表去掉表格线
Range("F1").Activate
Selection.Borders(xlDiagonalDown).Line
Style
=
xlNone
Selection.Borders(xlDiagonalUp).LineStyle
=
xlNone
Selection.Borders(xlEdgeLeft).LineStyle
=
xlNone
Selection.Borders(xlEdgeTop).LineStyle
=
xlNone
Selection.Borders(xlEdgeBottom).LineStyle
=
xlNone
Selection.Borders(xlEdgeRight).LineStyle
=
xlNone
Selection.Borders(xlInsideVertical).LineStyle
=
xlNone
Selection.Borders(xlInsideHorizontal).LineStyle
=
xlNone
Rows("2:2").Select
'选择第2行
Selection.Insert
Shift:=xlDown
'在第2行前插入一行，保持第2行
为选中状态
num=150
'总人数×3，如工资表中有100人则
为100×3即num=300
col=14
'工资表的栏数，如工资表有17栏则
'col=17
num1
=
4
Do
While
num1
<=
num
'循环插入空行
Range(Cells(num1,
1),
Cells(num1,
col)).Select
'选中第num1行的第1列到第col列
Selection.Insert
Shift:=xlDown
Selection.Insert
Shift:=xlDown
num1
=
num1
+
3
Loop
Range(Cells(1,
1),
Cells(1,
col)).Select
Application.CutCopyMode
=
False
'剪切复制模式无效
Selection.Copy
'复制选择区域
Range("A2").Select
'选择A2单元格
ActiveSheet.Paste
'从A2单元格起粘贴内容
num2
=
5
Do
While
num2
<=
num
'循环插入标题行
Range(Cells(1,
1),
Cells(1,
col)).Select
Application.CutCopyMode
=
False
Selection.Copy
Cells(num2,
1).Select
ActiveSheet.Paste
num2
=
num2
+
3
Loop
Range(Cells(2,
1),
Cells(3,
col)).Select
Application.CutCopyMode
=
False
Selection.Borders(xlDiagonalDown).LineStyle
=
xlNone
'定义表格边框线、内线样式
Selection.Borders(xlDiagonalUp).LineStyle
=
xlNone
With
Selection.Borders(xlEdgeLeft)
.LineStyle
=
xlDouble
.Weight
=
xlThick
.ColorIndex
=
xlAutomatic
End
With
With
Selection.Borders(xlEdgeTop)
.LineStyle
=
xlDouble
.Weight
=
xlThick
.ColorIndex
=
xlAutomatic
End
With
With
Selection.Borders(xlEdgeBottom)
.LineStyle
=
xlDouble
.Weight
=
xlThick
.ColorIndex
=
xlAutomatic
End
With
With
Selection.Borders(xlEdgeRight)
.LineStyle
=
xlDouble
.Weight
=
xlThick
.ColorIndex
=
xlAutomatic
End
With
With
Selection.Borders(xlInsideVertical)
.LineStyle
=
xlDash
.Weight
=
xlThin
.ColorIndex
=
xlAutomatic
End
With
With
Selection.Borders(xlInsideHorizontal)
.LineStyle
=
xlDash
.Weight
=
xlThin
.ColorIndex
=
xlAutomatic
End
With
Selection.Copy
Range(Cells(5,
1),
Cells(6,
col)).Select
Selection.PasteSpecial
Paste:=xlFormats,
Operation:=xlNone,
SkipBlanks:=
_
False,
Transpose:=False
'接上行删除上行尾的连字符
_，复制表格线样式
num3
=
8
Do
While
num3
＜=
num
'循环复制表格线样式
Range(Cells(num3,
1),
Cells(num3
+
1,
col))
.Select
Selection.PasteSpecial
Paste:=xlFormats,
Operation:=xlNone,
SkipBlanks:=
_
False,
Transpose:=False
num3
=
num3
+
3
Loop
Rows("1:1").Select
'删除多余的一行
Selection.Delete
End
Sub
以后每月要打印工资表与工资条时，只需将“工资表与工资条”文件打开，修改好工作表“sheet1”中的当月的工资总表数据后将其复制为工作表“sheet2”，并使“sheet2”成为当前工作表，执行宏“生成工资条”即可。

Answer 2

1、新建一excel文件，在sheet1中存放工资表的原始数据，假设有n列。第一行是工资项目，从第二行开始是每个人的工资。
2、在sheet2中来设置工资条。根据实际情况，工资条由三行构成，一行对应工资项目，一行对应一个人的工资数据，然后是一个空行用来方便切割。这样三行构成一个工资条。
3、在sheet2的a1单元格中输入公式“=if(mod(row(),3)=0,"",if(mod(row(),3)=1,sheet1!a$1,index(sheet1!$a:$n,int((row()+4)/3),column())))”。确认后选择a1单元格，把鼠标放在a1单元格的右下角，鼠标变成“+”时，向右拖动鼠标自动填充至n列，这样工资条中的第一行就出来了。选定a1：n1，把鼠标放在n1单元格的右下角，鼠标再次变成“+”时，向下拖动鼠标自动填充到数据的最后一行，工资条就全部制作完成了。

Answer 3

怎么制作工资条？

Answer 4

首先在辅助列输入序号，向下复制序号，在把表头复制到下面粘贴到下面的表格里面，点击序号，然后在数据里面点击升序，在删除辅助列即可。

Answer 5

工资条制作方法