请问如何在Excel里面做工资条?
发布网友
发布时间:2022-04-22 09:20
我来回答
共5个回答
热心网友
时间:2023-07-14 22:38
Excel小技巧
热心网友
时间:2023-07-14 22:39
工资表汇总常用excel功能
(1)插入辅助列 (2)排序
工资表转工资条的制作方法
第一步: 打开我们要处理的excel工资表
第二步:在工资表的后面一列填写序号(小技巧:在 G2填上1之后,把鼠标放在G1的左下角,出现一个+,点2次+,即可自动填充),在复制两次。
第三步:复制6次表头
第四步:排序,主要关键字以G列(就是我们加序号的那列),升序;次要关键字以F列(就是应发工资那列),点击确定。
壹人事HR提供最新最全的Excel工资表模板、工资表格式,欢迎下载和使用! 制作完Excel工资表后,发工资条的形式也是很多HR所苦恼的,如果每个月采用传统的发纸质工资条形式的话,那么对于人员众多的大型企业来说,这将是一个非常大的工作量,推荐壹人事工资条群发平台。
HR只需要上传Excel工资表,一键群发工资条,员工通过短信、邮件、微信都可以查看。
热心网友
时间:2023-07-14 22:39
在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”成为当前工作表,执行宏“生成工资条”即可。
或者有一种,请参考http://61.132.120.217/xxxkw/Article_Show.asp?ArticleID=136
热心网友
时间:2023-07-14 22:40
两种办法
1、可以用excel制作
把工资表中插入多行带顺序编号的表头,然后进行排序,拆分为一行表头+一行数据,从而打印出来。进行裁剪发放,或者直接截图发给员工
但是这种做法的工作量是比较大的
2、如果想要公司发放工资条更加高效、合规、安全
可以给公司提供建议,使用专业的工资条工具,几秒钟就可以发完所有人的工资条。
(上传工资表——机器自动拆解成工资条——进行发放配置——一键群发)
并且专业的工资条工具在功能方面更加强大
悦享工资条
1、上传薪资表,自动解析工资条,几秒钟发放千人工资条。多终端发放(短信+微信+邮箱)
2、可签名签收,可导出签收记录。可撤回可重发,可定时发送。可自定义工资条模板
3、员工在线反馈工资条的异议,提醒通知员工阅读与签收,设置发放公告,添加附件
4、有阿里云的安全支持,和客户签订保密协议,薪资数据多重加密。
官网注册即可试用~
热心网友
时间:2023-07-14 22:40
其实用不着楼上说的那么复杂,看都看不懂,你只需要选做好一个员工的工资条,也就是一个标题栏和一个工资详单,再选择两行空的,同时选择这四行进行拖动就出来了,这时你再一一的输入就可以了.而且这样有一个好处就是他可以自行生成序号,当然前题是你在做第一个人的时候就要输入序号1(或者你愿意的任何整数)