Excel+VBA：算迟到早退分钟数

上班、下班、上班、下班，打卡偶数次，设置条件格式，奇数次，日变色。上班打卡两次，下班不打卡，要注意到。

 

VBA里写function，late和early。都是byval两个参数，一个实际打卡range，一个标准时间。遍历range，if对value进行判断后计差值，hour取小时并乘以60，minute取分钟，累加返回。

 

每个function调用两次，设置条件格式，等于0则字体变白色以隐藏。

 

把大的实际打卡range自定义名称，写VBA清除掉内容和填充颜色，加个按钮以调用。

 

公司大了，有的部门特殊，采用特殊的标准时间。标准时间处写xlookup，调用做好的。

 

考勤机可以设置打卡间隔时间，不能设小了，会有重复打卡妨碍计算，要拖动range摆正。也不能设大了，晚上加班打卡会出问题的。

 

原先也写过数组公式计迟到早退，不好复用和阅读，放弃了。