如果某电脑上一键完成,那是编写了相应的宏代码,点这个键就执行了代码,代码完成的工资条的生成。但是开发这个宏代码是非常艰辛的,而且开发的人想象的工资条是个什么样子和你的期望的差异,需要修改代码才能解决。因此宏编程解决问题一般只推荐给有编程基础,或者对宏有巨大兴趣的人。
如果偶尔需要做一个工作条,也可以不用宏编程,使用一些办法点点鼠标实现,一个思路:增加编号辅助列,对数据区每一条记录有一个不同的序号,然后插入一大批(可以插入一组后填充实现)表头和空行组,然后再次按照序号列排序,使得每一条数据前面有一个空行和标题行,这时候就成为工资条的样子。
以WPS 2019版本为例:
关于如何实现将每个人的工资条发到每个人的邮箱里,您可考虑使用WPS2019来完成,具体步骤如下:
1、打开「工资表表格」,点击「开始-文档助手-工资条群发助手」;
2、「工资条群发助手」会自动识别表格的内容生成预览;
3、如不知道怎么写「工资条」还新建表格后进入「工资条群发助手」一键插入工资表模板。
4、在预览无误后,直接点击发送即可调用「系统默认邮件应用」来批量发送工资条给对应同事,每位同事只能收到自己的工资条。
分类: 电脑/网络 >> 软件 >> 其他软件解析:
先假设工资条打印在A4(21×297cm)纸上。
每张工资条页面4×297cm,一张A4纸打印5张工资条。
1定义工资条页面:
执行“开始/控制面板/打印机” *** 作,在“打印机”窗口,执行“文件/服务器属性”命令,设置自定义页面4×297cm格式进行“添加”并“应用”。
2在Excel工资文档窗口,执行“文件/页面设置”命令,设置工资条页面,特别设置每张工资条打印的“顶端标题”。
完成上述设置后,插入A4纸即可直接打印。
仅供参考
发电子工资条不违法。
无论是纸质的还是电子版的工资条,只要能够证明是该公司发出,且与银行的工资转账记录相匹配,就都是不违法的。
并且,发电子工资条实际上更为合规。
电子工资条支持员工手写签名签收,并导出签收记录存档。
而传统模式中工资条签名的收集,多半为纸质进行签名,不易收集,也不易保存。
此处补充一个法律知识
员工在领取工资时候,是需要在单位出具的工资表上面签名的。
相关文件规定,单位是被要求必须书面记录支付劳动者工资的数额、时间、领取者的姓名以及签字,并保存两年以上备查。
因此,员工在领取工资时候被单位要求签名是属于正常行为,单位有权要求员工在领取工资以后签名备案使用。
而且,电子工资条的制作,更为便捷。
几秒钟就可以发完工资条。
(上传工资表——机器自动拆解成工资条——进行发放配置——一键群发)
悦享工资条支持 微信/企业微信+邮件+短信 批量群发工资条
如果想要公司发放工资条更加高效、合规、安全
可以试试悦享工资条,几秒钟就可以发完所有人的工资条。
(上传excel工资表——机器自动拆解成工资条——进行发放配置——一键群发)
产品优势
1、智能解析excel工资表,一键群发工资条,4步骤几秒钟完成千万人的工资条发放
2、支持 短信+邮箱+企业微信/微信公众号/小程序 查看工资条
3、支持手写签名签收,导出签收记录。撤回重发、定时发送工资条
4、支持员工在线反馈工资条异议,提醒通知员工签收
5、支持自定义工资条模板,添加公告和附件
6、支持多管理员模式 *** 作,支持企业进行本地化部署
7、支持企业按需购买,多种套餐模式搭配,适用各种企业更实惠
官网注册即可免费试用~
宏的内容如下:
Sub 生成工资条()
CellsSelect
'选择整个表去掉表格线
Range("F1")Activate
SelectionBorders(xlDiagonalDown)Line
Style = xlNone
SelectionBorders(xlDiagonalUp)LineStyle = xlNone
SelectionBorders(xlEdgeLeft)LineStyle = xlNone
SelectionBorders(xlEdgeTop)LineStyle = xlNone
SelectionBorders(xlEdgeBottom)LineStyle = xlNone
SelectionBorders(xlEdgeRight)LineStyle = xlNone
SelectionBorders(xlInsideVertical)LineStyle = xlNone
SelectionBorders(xlInsideHorizontal)LineStyle = xlNone
Rows("2:2")Select
'选择第2行
SelectionInsert 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列
SelectionInsert Shift:=xlDown
SelectionInsert Shift:=xlDown
num1 = num1 + 3
Loop
Range(Cells(1, 1), Cells(1, col))Select
ApplicationCutCopyMode = False
'剪切复制模式无效
SelectionCopy
'复制选择区域
Range("A2")Select
'选择A2单元格
ActiveSheetPaste
'从A2单元格起粘贴内容
num2 = 5
Do While num2 <= num
'循环插入标题行
Range(Cells(1, 1), Cells(1, col))Select
ApplicationCutCopyMode = False
SelectionCopy
Cells(num2, 1)Select
ActiveSheetPaste
num2 = num2 + 3
Loop
Range(Cells(2, 1), Cells(3, col))Select
ApplicationCutCopyMode = False
SelectionBorders(xlDiagonalDown)LineStyle
= xlNone
'定义表格边框线、内线样式
SelectionBorders(xlDiagonalUp)LineStyle = xlNone
With SelectionBorders(xlEdgeLeft)
LineStyle = xlDouble
Weight = xlThick
ColorIndex = xlAutomatic
End With
With SelectionBorders(xlEdgeTop)
LineStyle = xlDouble
Weight = xlThick
ColorIndex = xlAutomatic
End With
With SelectionBorders(xlEdgeBottom)
LineStyle = xlDouble
Weight = xlThick
ColorIndex = xlAutomatic
End With
With SelectionBorders(xlEdgeRight)
LineStyle = xlDouble
Weight = xlThick
ColorIndex = xlAutomatic
End With
With SelectionBorders(xlInsideVertical)
LineStyle = xlDash
Weight = xlThin
ColorIndex = xlAutomatic
End With
With SelectionBorders(xlInsideHorizontal)
LineStyle = xlDash
Weight = xlThin
ColorIndex = xlAutomatic
End With
SelectionCopy
Range(Cells(5, 1), Cells(6, col))Select
SelectionPasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'接上行删除上行尾的连字符
_,复制表格线样式
num3 = 8
Do While num3 <= num
'循环复制表格线样式
Range(Cells(num3, 1), Cells(num3 + 1, col))
Select
SelectionPasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
num3 = num3 + 3
Loop
Rows("1:1")Select
'删除多余的一行
SelectionDelete
End Sub
以后每月要打印工资表与工资条时,只需将“工资表与工资条”文件打开,修改好工作表“sheet1”中的当月的工资总表数据后将其复制为工作表“sheet2”,并使“sheet2”成为当前工作表,执行宏“生成工资条”即可。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)