vba实现透视表一样的筛选指定日期的最小时间值

yang_159357

如附件，这是自己弄的考勤表格，其中“attendance”的A列到I列为下载下来的考勤数据，B列为每个人的考勤号，由于一天内会出现上下班重复打多次卡的情况，所以想用vba实
现筛选出每个员工每日打卡的最小时间值和最大时间值并将这些值放到对应日子的sheet
中的Y列和Z列。

yang_159357

下面这代码是参考实例弄的，但红色部分我不会，求助各位大神，谢谢

Private Sub CommandButton1_click()
With Worksheets("attendance")
    If .FilterMode = True Then .ShowAllData
      .Range("A1").AutoFilter Field:=2, Criteria1:=“YM的L3：L29”
     .Range("A1").AutoFilter Field:=6, Criteria1:=“YM的A2和B2对应年月下的几号（对应sheet名“01”，“02”.........）”
     .Range("A1").AutoFilter Field:=2, Criteria1:=“每个考勤号的最小时间值”
     .AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Worksheets("对应sheet名的日子").[Y2]
End With
End Sub

不知道为什么

yang_159357 发表于 2018-7-9 16:58
下面这代码是参考实例弄的，但红色部分我不会，求助各位大神，谢谢

Private Sub CommandButton1_click() ...

如图，供参考

yang_159357

不知道为什么 发表于 2018-7-10 01:04
如图，供参考

不明白 ........

lenghonghai601

1. Sub test()
   
2. Dim cnn As Object
   
3. Set cnn = CreateObject("adodb.connection")
   
4. cnn.Open "Provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ThisWorkbook.FullName
   
5. rw = Sheet1.Range("b65536").End(xlUp).Row
   
6. mysql = "select f1,min(f6),max(f6) from [attendance$b2:g" & rw & "] group by f1"
   
7. Range("l2").CopyFromRecordset cnn.Execute(mysql)
   
8. cnn.Close
   
9. End Sub
   

复制代码

yang_159357

lenghonghai601 发表于 2018-7-10 09:33

大神能简单解释下这个怎么用吗  ？ 谢谢

lenghonghai601

yang_159357 发表于 2018-7-10 12:33
大神能简单解释下这个怎么用吗  ？ 谢谢

把代码放在模块中，然后运行，结果直接显示在L2为左上角的单元格区域中

yang_159357

lenghonghai601 发表于 2018-7-10 12:42
把代码放在模块中，然后运行，结果直接显示在L2为左上角的单元格区域中

这个看着有点懵    为什么不是分别筛选出每日的第一次打卡时间和最后一次打卡时间的，
有01,02,03,04 ........ 31 个sheet的，我想把筛选出来的时间分别放到这些对应日子的sheet