指纹考勤数据表数据整理,筛选汇总.

melorbin · 发表于 2011-12-2 12:40

现有一指纹考勤系统导出的数据, 需进行整理.
每天打卡数次,
但最终数据需要每天每人最早打卡的那一条记录.
并将所有此类符合条件的数据按人名进行汇总.

原工作表数据保留...

melorbin · 发表于 2011-12-2 12:43

一直以来没能找到好的办法.
结果只能很笨地采用,一个简单的处理,
就是将所有数据当中,
打卡时间早于一个时间点(如8:30)的进行筛选出来.
可是并不准确...

期待大虾们的帮助和指点.

dg199410 · 发表于 2011-12-2 13:24

用数据透视表即可

zhaogang1960 · 发表于 2011-12-2 13:44

请测试

Sub Macro1()
Dim cnn As Object, SQL$, s$
Set cnn = CreateObject("adodb.connection")
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
s = "select a.* from [设计部$] a inner join (select 姓名,刷卡日期,min(刷卡时间) as new_time from [设计部$] group by 姓名,刷卡日期) b on a.姓名=b.姓名 and a.刷卡日期=b.刷卡日期 and a.刷卡时间=b.new_time"
SQL = "select 人员编号,登记号码,姓名,刷卡日期,刷卡时间,签到方式,设备编号,上下班标志,操作员,操作日期,备注,(select count(姓名) from [设计部$] where 姓名=b.姓名 and 刷卡日期=b.刷卡日期 group by 姓名,刷卡日期) from (" & s & ") b"
Cells.ClearContents
[a1:l1] = Array("人员编号", "登记号码", "姓名", "刷卡日期", "刷卡时间", "签到方式", "设备编号", "上下班标志", "操作员", "操作日期", "备注", "每天打卡数次")
[a2].CopyFromRecordset cnn.Execute(SQL)
cnn.Close
Set cnn = Nothing
End Sub

复制代码

zhaogang1960 · 发表于 2011-12-2 13:47

结果放在新建工作表，请看附件：

考勤.rar (12.91 KB, 下载次数: 544)

小小娇 · 发表于 2011-12-2 14:30

用数据透视表即可

melorbin · 发表于 2011-12-3 21:32

{:soso_e183:} 非常感谢各位.

melorbin · 发表于 2011-12-3 21:40

赵版,非常感谢您费心指导.
想再向您请教一下, 如果这个文件工作表名称不叫 <设计部> 呢?
程序还能直接运行么?
还是需要将程序里面的设计部改成相应的工作表名称呢?

有没有办法不管文件名都可以运行的呢??
另外,您这个办法,我只看懂是用了SQL查询方式,
但还是没能读懂读透.
谢谢您!

melorbin · 发表于 2011-12-3 21:46

另外两位也谢谢了, 不过用数据透视表来解决这个问题,
我却没能找出头绪.
能做再指点一二.谢谢.

zhaogang1960 · 发表于 2011-12-3 22:22

melorbin 发表于 2011-12-3 21:40
赵版,非常感谢您费心指导.
想再向您请教一下, 如果这个文件工作表名称不叫呢?
程序还能直接运行么?

考勤.rar (16.67 KB, 下载次数: 265)

		自动登录	找回密码
密码			免费注册

[求助] 指纹考勤数据表数据整理,筛选汇总.