求大侠完善VBA功能

封存记忆

这是一个通过原始打卡数据进行分析统计的VBA，现在希望增加一个功能，如图中张三17号一天没打卡，能否在考勤分析表里增加一个空白行，显示刷卡次数为0，以便于后面备注出差或请假等事宜。
考勤打卡统计.rar (48.39 KB, 下载次数: 2)

2019-10-3 16:20 上传

点击文件名下载附件

rardge2015

原有的 VBA 程序不要动，最后增加一个子过程调用。
子过程读取刷卡日期，自下而上循环处理（行号从大到小），如果日期缺失就新增一行。
网上能搜索到类似代码，如果没有增加新行的，可以找删除空行的，改改就行了。

liangmutou

原程序中调用即可。
Sub jk()
  Dim h As Long
  With Sheet3
    i = .[a65536].End(3).Row
    .Range("a2:m" & i).Sort key1:="编号", key2:="刷卡日期", Header:=xlYes
    For h = i To 3 Step -1
      If .Cells(h, 1) = .Cells(h - 1, 1) Then
        For cs = 1 To ts(h)
          .Rows(h).Insert
          .Range(.Cells(h, 1), .Cells(h, 4)) = Array(.Cells(h - 1, 1), .Cells(h - 1, 2), DateAdd("d", -1, .Cells(h + cs, 3)), 0)
        Next cs
      End If
    Next h
  End With
End Sub
Function ts(h As Long) As Integer
  With Sheet3
    For i = 1 To 1000
      t = DateAdd("d", -(i), .Cells(h, 3))
      If .Cells(h - 1, 3) = t Then
        ts = i - 1: Exit Function
      End If
    Next i
  End With
End Function

liangmutou

把程序文件发给你。

封存记忆

liangmutou 发表于 2019-10-6 14:16
把程序文件发给你。

太感谢了！膜拜你！

封存记忆

liangmutou 发表于 2019-10-6 14:16
把程序文件发给你。

这个程序在使用过程中发现有问题，比如当连续出差多天的时候会出现显示相同日期的情况，如下图请问还可以完善吗？

zjdh

只要作小小改动
For cs = 1 To ts(h)
        .Rows(h).Insert  '插入行
        .Range(.Cells(h, 1), .Cells(h, 4)) = Array(.Cells(h - 1, 1), .Cells(h - 1, 2), DateAdd("d", -cs, .Cells(h + cs, 3)), 0)
Next cs

封存记忆

zjdh 发表于 2019-10-10 12:28
只要作小小改动
For cs = 1 To ts(h)
        .Rows(h).Insert  '插入行

谢谢你！