考勤机打卡时间提取问题求助

yexcelhome

小白前来学习

kitiao

有学到精华，感谢感谢

红领巾V5

liuxi001 发表于 2019-5-1 17:07
写一维表应该更利于数据汇总，另外时间点也与楼主有点出入~~自己斟酌吧

可以按照行排列么？

红领巾V5

小白，哪位大神能翻译一下这个代码啊？还有这个代码出来的数据能不能横向排列

Sub kqzl()
    ar = Sheet1.[a1].CurrentRegion
    ReDim cr(1 To Rows.Count, 1 To 7)
    For i = 6 To UBound(ar) Step 2
        For j = 1 To UBound(ar, 2)
            If ar(i, j) <> "" Then
                k = k + 1
                cr(k, 1) = k
                cr(k, 2) = ar(i - 1, 2)
                cr(k, 3) = Left(ar(3, 2), 8) & Format(ar(4, j), "00")
                With CreateObject("vbscript.regexp")
                    .Global = True
                    .Pattern = "\d{2}:\d{2}"
                    Set mh = .Execute(ar(i, j))
                    For Each mat In mh
                        t = TimeValue(mat)
                        my_col = IIf(t <= 9.5 / 24, 1, IIf(t <= 12.5 / 24, 2, IIf(t <= 16 / 24, 3, 4))) + 3
                        cr(k, my_col) = t
                    Next
                End With
            End If
        Next
    Next
    With Sheet3
        .Cells.ClearContents
        .[a1].Resize(1, UBound(cr, 2)) = [{"序号","工号","日期","上午签到","上午签退","下午签到","下午签退"}]
        .[a2].Resize(k, UBound(cr, 2)) = cr
    End With
End Sub

李桥贵

micch 发表于 2019-5-4 12:53
B3，右拉下拉，我得是多无聊，才做这个题啊，真麻烦

一天正常打卡四次，7：15到8：30之间打卡算上午签到，11：15到12：15之间打卡算上午签退；13：15到14：30之间打卡算下午签到，16：45到17：45之间打卡算下午签退。现要把考勤机某一天的的考勤时间（表1）按前面要求提取到表2相应单元格，麻烦老师帮一下忙，谢谢。

ericxzhou

Python+Pandas:
import pandas as pd

df = pd.read_excel('Sample462.xlsx', 'Sheet1', usecols='b:f', header=3, index_col=0)
df.index = df.index.to_series().ffill()
df = df.dropna()
lst = []
for col in df.columns:
    df1 = df[col].str.split('\n').explode().rename('time').to_frame().assign(日期=col)
    lst.append(df1)
df = pd.concat(lst)
df = df[df.time != '']
df['ftime'] = '2024-04-' + df['日期'].map(lambda x: str(x).zfill(2)) + ' ' + df['time']
df['ftime'] = pd.to_datetime(df['ftime'])
df = df.reset_index().set_index('ftime')
df.loc[df.between_time('06:30', '09:30').index, '签到'] = '上午签到'
df.loc[df.between_time('09:30', '12:30').index, '签到'] = '上午签退'
df.loc[df.between_time('14:00', '16:00').index, '签到'] = '下午签到'
df.loc[df.between_time('16:00', '18:00').index, '签到'] = '下午签退'
df = df.rename(columns={3: '工号'}).set_index('工号').pivot(columns=['日期', '签到'], values='time')

print(df)

李桥贵

ericxzhou 发表于 2024-9-30 12:20
Python+Pandas:
import pandas as pd

能用VBA更好，我对Python不太熟悉。