求助中,考勤数据分列排...

hyonv · 发表于 2012-10-22 13:24

本帖最后由 hyonv 于 2012-10-22 13:30 编辑

这样排列好统计一些.

dsmch · 发表于 2012-10-22 13:54

Dim arr, brr, d As Object, i&, j&, x, x1, x2
Set d = CreateObject("scripting.dictionary")
arr = Sheets(1).Range("a1").CurrentRegion
For i = 2 To UBound(arr)
x = Split(arr(i, 2), " ")
If Not d.exists(arr(i, 1) & "," & x(0)) Then d.Add arr(i, 1) & "," & x(0), x(1) Else d(arr(i, 1) & "," & x(0)) = d(arr(i, 1) & "," & x(0)) & "," & x(1)
Next
ReDim brr(1 To d.Count, 1 To 8)
a = d.keys: b = d.items
For i = 0 To d.Count - 1
x1 = Split(a(i), ",")
brr(i + 1, 1) = x1(0)
brr(i + 1, 2) = x1(1)
x2 = Split(b(i), ",")
For j = 0 To UBound(x2)
brr(i + 1, j + 3) = x2(j)
Next
Next
Sheets(2).Activate
Cells.ClearContents
Range("a1:h1") = Array("姓名", "日期", "考勤1", "考勤2", "考勤3", "考勤4", "考勤5", "考勤6")
Range("a2").Resize(UBound(brr), UBound(brr, 2)) = brr

复制代码

dsmch · 发表于 2012-10-22 13:56

附件…………

wuxiang_123 · 发表于 2012-10-22 13:59

TRANSFORM MAX(时间)
SELECT 姓名,日期 FROM
(SELECT A.姓名,DateValue(A.时间) AS 日期,'考勤'&SUM(1) AS 顺序,TimeValue(A.时间) AS 时间 FROM [原始数据$]A,[原始数据$]B WHERE A.姓名=B.姓名 AND DateValue(A.时间)=DateValue(B.时间) AND A.时间>=B.时间 GROUP BY A.姓名,DateValue(A.时间),TimeValue(A.时间))
GROUP BY 姓名,日期
PIVOT 顺序

复制代码

hyonv · 发表于 2012-10-22 14:20

我的电脑怎么报个提示？？？？

hyonv · 发表于 2012-10-22 19:30

本帖最后由 hyonv 于 2012-10-22 19:33 编辑

换了台电脑,,,又提示这个下标越界...

Dimple_ice · 发表于 2012-10-25 23:20

学习了！！！！！！

Dimple_ice · 发表于 2012-10-26 12:04

哥顶的不是帖子，是来学习的！！！

小脸儿拔凉 · 发表于 2012-11-10 00:35

dsmch 发表于 2012-10-22 13:56
附件…………

高手啊，真厉害，不过我试了下，运行宏后，下午的时间也都显示的是上午，如:5:00 PM,运行后显示的是5:00AM，没办法在此基础上计算工时，能再帮忙再改改吗，拜托了

小脸儿拔凉 · 发表于 2012-11-11 23:29

dsmch 发表于 2012-10-22 13:56
附件…………

考勤10月.zip (15.17 KB, 下载次数: 15)

已经把数据源转换成24小时的格式了，但是运行后17:00还是显示5:00AM,具体详见附件，您帮忙看看，是我哪里操作有误，还请帮忙指教，谢谢

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

[求助] 求助中,考勤数据分列排...