请教钉钉考勤表的考勤统计

sunya_0529

南城青山 发表于 2022-6-12 22:18
老师已上传

效果如下图所示——


自定义函数已经更新，增加一个参数，用来识别当月的工作日天数。

1. <blockquote>Option Explicit

复制代码

南城青山

sunya_0529 发表于 2022-6-13 19:39
效果如下图所示——

老师非常官谢！  我想特殊标记每天打卡时间小于8小时的为红色可以吗

sunya_0529

南城青山 发表于 2022-6-14 15:48
老师非常官谢！  我想特殊标记每天打卡时间小于8小时的为红色可以吗

这个自定义函数做不到，需要写一个宏，等我明天空了处理一下。

sunya_0529

南城青山 发表于 2022-6-14 15:48
老师非常官谢！  我想特殊标记每天打卡时间小于8小时的为红色可以吗

1. Sub 特殊标记()
   
2. On Error Resume Next '设置错误处理
   
3. Dim rng As Range, arr
   
4. '在当前活动单元格所在单元格区域内循环
   
5. With ActiveCell.CurrentRegion
   
6.   .Cells.Font.Color = 0
   
7.   For Each rng In .Cells
   
8.     If Not rng Is Nothing Then
   
9.       arr = Split(rng.Value, Chr(10))
   
10.       If UBound(arr) > 0 Then
    
11.         If Hour(CDate(arr(UBound(arr))) - CDate(arr(0))) < 8 Then
    
12.           rng.Font.Color = vbRed
    
13.         End If
    
14.       End If
    
15.     End If
    
16.   Next
    
17. End With
    
18. End Sub

复制代码

hy159753

sunya_0529 发表于 2022-6-13 19:39
效果如下图所示——

你好，老师，可否帮我看看我的考勤表，如果请调休假0.2小时这种如何在表里体现并汇总到出勤当中呢

南城青山

sunya_0529 发表于 2022-6-16 09:30

老师 像图中这样缺卡的情况，可以删除分钟后的秒数在添加缺卡二个字吗

uksiy2004

这个好！每个月的钉钉考勤汇总都是很麻烦的，感谢感谢！