关于补考勤的问题,VBA

kevin9270

各位大侠,有一个关于补考勤的问题,就是生产没事给员工干,员工就"放行"了,但是这也属于正常的考勤,她没打卡,或是提前打卡了,所以没有要给她补上去.我不懂VBA,看哪个大侠帮我看一下,如何按我的要求把考勤补上去,具体要求见"附件"谢谢大家.

kevin9270

哪位朋友帮我回复一下呢

kevin9270

各位老侠有空帮我解决一下啊.谢谢了.

xl5502

你这个情况比较复杂！如果真要搞，是要花钱搞个VBA一键处理

我这里整理了一下用公式的方法，能用，但步奏比较麻烦。在原表格框架不变条件下才有用。

步奏如下：在时间1，条件筛选出空白单元格，输入公式：
if(OR(VLOOKUP(indirect(address(row(),4)),放行!$B$2:$AZ$1500,day(indirect(address(row(),6)))+1,0)="上午放行",VLOOKUP(indirect(address(row(),4)),放行!B2:AZ1500,day(indirect(address(row(),6)))+1,0)="放行一天"),"8:00","非放行其他原因")

时间2，筛选空白，输入公式：if(OR(VLOOKUP(indirect(address(row(),4)),放行!$B$2:$AZ$1500,day(indirect(address(row(),6)))+1,0)="上午放行",VLOOKUP(indirect(address(row(),4)),放行!B2:AZ1500,day(indirect(address(row(),6)))+1,0)="放行一天"),"12:00","非放行其他原因")

时间3，筛选空白，输入公式：
if(OR(VLOOKUP(indirect(address(row(),4)),放行!$B$2:$AZ$1500,day(indirect(address(row(),6)))+1,0)="下午放行",VLOOKUP(indirect(address(row(),4)),放行!B2:AZ1500,day(indirect(address(row(),6)))+1,0)="放行一天"),"13:30","非放行其他原因")

时间4，筛选空白，输入公式：
if(OR(VLOOKUP(indirect(address(row(),4)),放行!$B$2:$AZ$1500,day(indirect(address(row(),6)))+1,0)="下午放行",VLOOKUP(indirect(address(row(),4)),放行!B2:AZ1500,day(indirect(address(row(),6)))+1,0)="放行一天"，LOOKUP(indirect(address(row(),4)),放行!B2:AZ1500,day(indirect(address(row(),6)))+1,0)="放行"),"19:30","非放行其他原因")

kevin9270

谢谢楼上,但这个不是我想要的结果.