考勤表的分析统计

zyq12688

Qs18 发表于 2024-10-19 17:47
试试...........

非常感谢您的回复，为解决这个头疼的统计具有很大的帮助。谢谢！同时对于数组的运用有了更进一步的理解。

zyq12688

shiruiqiang 发表于 2024-10-19 18:13
大致结果可以，就是细节判断几句就行

正则处理一下。

非常感谢您的回复，对于统计结果达到理想目标。谢谢！

哈喽哈哈1

Qs18 发表于 2024-10-19 17:47
试试...........

老师，能不能帮忙进行对这个问题进行改版一下。把右边哪里到班和未到班改成上班时长，用每个单元格的最晚时间减去最早时间这样的

哈喽哈哈1

shiruiqiang 发表于 2024-10-19 18:13
大致结果可以，就是细节判断几句就行

正则处理一下。

老师，能不能帮忙进行对这个问题进行改版一下。把右边哪里到班和未到班改成上班时长，用每个单元格的最晚时间减去最早时间这样的

Qs18

哈喽哈哈1 发表于 2024-10-22 15:44
老师，能不能帮忙进行对这个问题进行改版一下。把右边哪里到班和未到班改成上班时长，用每个单元格的最晚 ...

正常的应该可以，异常的话，单只打了上班，或者单打了下班又怎么计算

哈喽哈哈1

Qs18 发表于 2024-10-22 16:08
正常的应该可以，异常的话，单只打了上班，或者单打了下班又怎么计算

这种的话就在统计时长的地方显示“打卡信息不全”就好啦

Qs18

1. Sub qs() '2024/10/23
   
2. Application.ScreenUpdating = False
   
3. Dim arr, i
   
4. arr = Sheet2.Range("a1").CurrentRegion.Value
   
5. brr = Sheet2.Range("a1").CurrentRegion.Value
   
6. st1 = TimeValue("7:00"): st2 = TimeValue("9:30")
   
7. xt1 = TimeValue("14:30"): xt2 = TimeValue("16:30")
   
8. For i = 3 To UBound(arr)
   
9.     For j = 3 To UBound(arr, 2)
   
10.         If arr(i, j) = "" Then
    
11.             brr(i, j) = "未到班"
    
12.         Else
    
13.             If arr(2, j) = "一" Then
    
14.                 b = Split(arr(i, j), Chr(10))
    
15.                 For x = 0 To UBound(b)
    
16.                     If Len(b(x)) > 0 Then
    
17.                         If TimeValue(b(x)) > xt2 Then brr(i, j) = "未到班" Else brr(i, j) = "到班"
    
18.                     End If
    
19.                 Next
    
20.             
    
21.             Else
    
22.                 a = Split(arr(i, j), Chr(10))
    
23.                 aa = ""
    
24.                 For ai = LBound(a) To UBound(a)
    
25.                     If Len(a(ai)) > 0 Then
    
26.                         aa = aa & "," & a(ai)
    
27.                     End If
    
28.                 Next ai
    
29.                 aa = Split(Mid(aa, 2), ",")
    
30.                 If UBound(aa) = 0 Then
    
31.                     brr(i, j) = "打卡信息不全"
    
32.                 Else
    
33.                 xx = TimeValue(aa(UBound(aa))) - TimeValue(aa(0))
    
34.                 xx = Format(xx, "hh:mm:ss")
    
35.                 brr(i, j) = xx
    
36.                 End If
    
37.             End If
    
38.     End If
    
39.     Next j
    
40. Next i
    
41. Sheet2.Range("AF1").Resize(10000, 100) = Empty
    
42. Sheet2.Range("AF1").Resize(UBound(arr), UBound(arr, 2)) = brr
    
43. Application.ScreenUpdating = True
    
44. End Sub

复制代码

Qs18

试试.............

Qs18

试试...........

哈喽哈哈1

Qs18 发表于 2024-10-23 11:04
试试...........

老师，可能我所表述的不是很清楚，我想要的是这样的一种30天都正常核算，并且不需要判断到班还是未到班。空的或者缺卡的就显示信息不全就好啦再次麻烦老师了