excel 劳动合同到期 弹窗提醒
发布网友
共2个回答
热心网友
附件为案例。案例说明：
增加合同状态一栏，用条件格式显示当前合同状态 。
将日期改为标准格式。
合同到期日根据起始日和期限自动计算。
合同状态栏中，当前日期为合同到期日的显示“今天到期”，当前日期已经超过合同到期日的显示“已到期”，当前日期距离合同到期日不满31天的显示“即将到期”，当前日期距离合同到期日超过31天的显示“远未到期
需要提醒一下：
1.劳动合同应当在劳动者入职一个月内签订，超过一个月未签订的单位违法，单位应当向劳动者支付从其入职满一个月后的第二天起到补订劳动合同前一天止期间的双倍工资。
2.第一次劳动合同期限的起始日期应当就是劳动者的入职日期。
3.试用期是包含在第一次的劳动合同期限中的，不得单独签订试用期合同，否则单位违法，试用期合同视为正式期合同。
4.续签合同最好在前一份合同到期前或者当天签订。
热心网友
附件为案例。案例说明：
增加合同状态一栏，用条件格式显示当前合同状态 。
将日期改为标准格式。
合同到期日根据起始日和期限自动计算。
合同状态栏中，当前日期为合同到期日的显示“今天到期”，当前日期已经超过合同到期日的显示“已到期”，当前日期距离合同到期日不满31天的显示“即将到期”，当前日期距离合同到期日超过31天的显示“远未到期
需要提醒一下：
1.劳动合同应当在劳动者入职一个月内签订，超过一个月未签订的单位违法，单位应当向劳动者支付从其入职满一个月后的第二天起到补订劳动合同前一天止期间的双倍工资。
2.第一次劳动合同期限的起始日期应当就是劳动者的入职日期。
3.试用期是包含在第一次的劳动合同期限中的，不得单独签订试用期合同，否则单位违法，试用期合同视为正式期合同。
4.续签合同最好在前一份合同到期前或者当天签订。
热心网友
sub auto_open()
dim num as interger
num=1
do while counta(sheet1!f&num)
if(today()<=date(sheet1!j&num,sheet1!H&num,sheet1!I&num4)）
msgbox "有到期“
exit do
endif
num=num +1
loop
end sub
热心网友
sub auto_open()
dim num as interger
num=1
do while counta(sheet1!f&num)
if(today()<=date(sheet1!j&num,sheet1!H&num,sheet1!I&num4)）
msgbox "有到期“
exit do
endif
num=num +1
loop
end sub
热心网友
附件为案例。案例说明：
增加合同状态一栏，用条件格式显示当前合同状态 。
将日期改为标准格式。
合同到期日根据起始日和期限自动计算。
合同状态栏中，当前日期为合同到期日的显示“今天到期”，当前日期已经超过合同到期日的显示“已到期”，当前日期距离合同到期日不满31天的显示“即将到期”，当前日期距离合同到期日超过31天的显示“远未到期
需要提醒一下：
1.劳动合同应当在劳动者入职一个月内签订，超过一个月未签订的单位违法，单位应当向劳动者支付从其入职满一个月后的第二天起到补订劳动合同前一天止期间的双倍工资。
2.第一次劳动合同期限的起始日期应当就是劳动者的入职日期。
3.试用期是包含在第一次的劳动合同期限中的，不得单独签订试用期合同，否则单位违法，试用期合同视为正式期合同。
4.续签合同最好在前一份合同到期前或者当天签订。
热心网友
sub auto_open()
dim num as interger
num=1
do while counta(sheet1!f&num)
if(today()<=date(sheet1!j&num,sheet1!H&num,sheet1!I&num4)）
msgbox "有到期“
exit do
endif
num=num +1
loop
end sub
热心网友
附件为案例。案例说明：
增加合同状态一栏，用条件格式显示当前合同状态 。
将日期改为标准格式。
合同到期日根据起始日和期限自动计算。
合同状态栏中，当前日期为合同到期日的显示“今天到期”，当前日期已经超过合同到期日的显示“已到期”，当前日期距离合同到期日不满31天的显示“即将到期”，当前日期距离合同到期日超过31天的显示“远未到期
需要提醒一下：
1.劳动合同应当在劳动者入职一个月内签订，超过一个月未签订的单位违法，单位应当向劳动者支付从其入职满一个月后的第二天起到补订劳动合同前一天止期间的双倍工资。
2.第一次劳动合同期限的起始日期应当就是劳动者的入职日期。
3.试用期是包含在第一次的劳动合同期限中的，不得单独签订试用期合同，否则单位违法，试用期合同视为正式期合同。
4.续签合同最好在前一份合同到期前或者当天签订。
热心网友
sub auto_open()
dim num as interger
num=1
do while counta(sheet1!f&num)
if(today()<=date(sheet1!j&num,sheet1!H&num,sheet1!I&num4)）
msgbox "有到期“
exit do
endif
num=num +1
loop
end sub
