Excel百科

专业的excel知识必备博客

当前位置:首页 / Excel表格 / 【在Excel中怎么让工资表自动生成工资条?】用电子表格制作工资条并空行

【在Excel中怎么让工资表自动生成工资条?】用电子表格制作工资条并空行

栏目:Excel表格   日期:2020-12-01   浏览量:1

我想做一个excel的工资表和工资条的那个表是联系起来的.
Excel工资条的做
1.新建表(sheet2),将sheet1第1行单位信息复制到sheet2的第1行
2.sheet2的A2单元格输入公式:
=IF(MOD(ROW(),2)=0,sheet1!A$2,INDEX(sheet1!$A:$U,INT((ROW() 3)/2),COLUMN()))
动复制到所有单元格
3.设置打印区域的边框线、字号、行距,工具-选项-视图中去掉“零值”前的勾
用EXCEL制作工资表,分总表和分表,分表数据出来后总表自动出来一个统计数据,怎么做?
你要入公式哦,我简单地做了个表格,附张图片。希明白。下面也用文字把Excel的描述出来(假设一个月工作天数是21.7天)。
A B C D E F G H
1 姓名 工号 月工资 日工资 事假 扩工 扣除工资 应发工资
2 张三 123456 10000 =C2/21.7 0 0 =D2*E2 D2*F2*2 =C2-G2
3 李四 123457 5000 =C3/21.7 0 0 =D3*E3 D3*F3*2 =C3-G3
在Excel中怎么让工资表自动生成工资条?

方法一序法

1开工资表→在工资表最空白列输入1,2,3……(注:输入的与工资表的行数相同)。

2、在刚输入的数字下面向下输入1.1,2.1……,比上面的数据少一行,本列在K9中输入1.1。

3、在K列任何一个单元格中单击左键→单击工具栏上的升序排列按钮→选择工资表→编辑→定位→定位条件选择“空值”→确定。

4、在编辑栏中输入=A$1→按住Ctrl键不放敲回车键。

5、在单元格K15下方输入1.01,2.01……一直输入到6.01→单击工具栏上的升序排列按钮→删除K列的数据。加一下边框便大功告成了。

方法二:函数法

1、:打开工资表→单击Sheet2标签→在Sheet2工作表的A1单元格中输入=IF(MOD(ROW(),3)=0,"",IF(MOD(ROW(),3)=1,Sheet1!A$1,INDEX(Sheet1!$A:$N,INT((ROW() 4)/3),COLUMN())))→向后拖到J1单元格(注:拖的长度应与原表长度)。

2、选择A1:J1区域向下拖→拖到第20行即可(注:拖的时候可能拖多或拖少,这时要看一下原表)→加一下边框便成功了。

在Excel中,怎样将工资表转换为工资条?
在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.Cut

微信扫一扫,分享到朋友圈

【在Excel中怎么让工资表自动生成工资条?】用电子表格制作工资条并空行
微信扫码关注纵横SEO
微信扫码关注纵横SEO
Excel百科微信:pbi365
Copright © 2020 Excel百科 All Rights Reserved. 粤ICP备13050212号 站点地图