考勤机导出来的数据无法筛选太麻烦了

叫的的

附表：
考勤机导出来的数据太麻烦了
有没有方法可以弄到变为我需要的这样子都在表格里面了只想变为好筛选的

zpy2

我记得以前的考勤机就是导出 你 变成 这种格式的，现在面粉做成面包了，想再回到面粉 工作量 大了。。。。

3190496160

考勤机像这样导出数据，本身就是非常不合理的，要做成你需要的格式，代码肯定可以完成，但是，工作量太大了

Chip_Kenny

轉換有值的資料,你自行修改一下吧；

1. Sub zz()
   
2. Dim a, b(), n&, aa, k, t, r As Object, m&
   
3. Set r = CreateObject("vbscript.regexp")
   
4. r.Global = True
   
5. r.Pattern = "\s+"
   
6. aa = ActiveSheet.UsedRange
   
7. a = Array(Array(1, 9, 19), Array(3, 11, 21))
   
8. n = (UBound(aa) - 4) / 2
   
9. ReDim b(1 To n * UBound(aa, 2) + 3, 1 To 10)
   
10. n = 4
    
11. For i = 5 To UBound(aa) Step 2
    
12.     For jj = 1 To UBound(aa, 2)
    
13.         For j = 0 To 2
    
14.             b(n, j + 1) = aa(i, a(1)(j))
    
15.         Next
    
16.         k = r.Replace(aa(i + 1, jj), "")
    
17.         m = 4
    
18.         b(n, m) = aa(4, jj)
    
19.         For j = 1 To Len(k) Step 5
    
20.             m = m + 1
    
21.             b(n, m) = Mid(k, j, 5)
    
22.         Next
    
23.         n = n + 1
    
24.     Next
    
25. Next
    
26. b(1, 1) = aa(1, 1)
    
27. For j = 0 To 2
    
28.     b(3, j + 1) = aa(5, a(0)(j))
    
29. Next
    
30. For j = 1 To UBound(aa, 2)
    
31.     If Len(aa(3, j)) > 0 Then b(2, 1) = b(2, 1) & " " & aa(3, j)
    
32. Next
    
33. b(2, 1) = Mid(b(2, 1), 2)
    
34. Workbooks.Add 1
    
35. [a1].Resize(UBound(b), UBound(b, 2)) = b
    
36. [d3:j3] = Array("Date", "AM in", "AM out", "PM in", "PMout ", "OT in", "OT out")
    
37. [e4].Resize(UBound(b) - 3, 6).NumberFormatLocal = "hh:mm"
    
38. Set r = Nothing
    
39. End Sub

复制代码

wangafg011

这个表 只能处理当天6个考勤时间的，并且要多源数据做些处理。你可以参考下。

想象有限

可以处理每天最多6次打卡，小于6次，空白显示；如果超过6次，需要进行小修改。可以自由下拉增加人数。

叫的的

Chip_Kenny 发表于 2020-3-9 14:19
轉換有值的資料,你自行修改一下吧；

您好，怎么我复制新的资料进去不行的~。显示调试器有问题？

Chip_Kenny

叫的的 发表于 2020-4-21 10:45
您好，怎么我复制新的资料进去不行的~。显示调试器有问题？

上載檔案來,才能了解一下。

叫的的

Chip_Kenny 发表于 2020-4-21 11:19
上載檔案來,才能了解一下。

好多员工打卡打了好多次，应该是这个导致之前，亲写的代码不能用，求助谢谢

liuyoujun20

我是用判断是否为空还好人少出错手动改起来还算快