根据考勤打卡记录制作表格

bdwkftxx

半百 发表于 2023-4-19 16:35

多谢，您真是高人。我会好好研究一下您的编码。

bdwkftxx

半百，你好，您完美的解决了我的问题。很遗憾权限有限，不能加你好友，也不能跟你打招呼。在这里表示万分的感谢。

bdwkftxx

a = Split(arr(i, 4))        ,以空格为分隔符拆分数组第4列第i行 ，这是个动作，=a是啥意思
        rq = Day(a(0))  
这两行代码看不懂，哪位高人给解释一下      

半百

bdwkftxx 发表于 2023-4-24 11:43
a = Split(arr(i, 4))        ,以空格为分隔符拆分数组第4列第i行 ，这是个动作，=a是啥意思
        rq = ...

a = Split(arr(i, 4))，arr(i, 4)是文本型的日期加时间，中间用空格隔开，Split就是以空格为分隔符将其拆分为两部分并存为一个数组，即a。
        rq = Day(a(0))，a(0)就是前边拆分出来的日期部分，Day取该日期的日序号，如1、2、31等。

bdwkftxx

希望这个帖半百能看到，你给我编的vba很好，但还有一点小小的瑕疵 ，这个月用的过程中才发现的。就是如果员工当月的最后几天休息，表格中不会把这几天补齐。还需要补充一些代码来完善一下。