考勤表时间没有打上指纹在异常考勤表里怎么填时间

发布网友发布时间：2022-05-03 05:12

共1个回答

热心网友时间：2023-10-10 16:43

Sub 签到记录()

Sheets("签到记录").Activate

Range(Cells(2, 1), Cells(100, 100)).Select

Selection.ClearContents

Dim m_s1, m_s2, m_s3, m_s4 As String

Dim m_arr1 '存放打卡记录

Dim m_arr2 '存放日历及休日标记

Dim m_arr3 '存放员工清单

'Dim m_arr4(1 To 100, 1 To 31) As String '存放签到记录

Dim MAXROW1, MAXROW2, MAXROW3 As Integer

Dim i, j, k, l As Integer

Dim m_qdsj As String '临时存放签到时间

Dim m_dksj As String '临时存放打卡时间

Dim m_xm, m_bm As String '存放员工姓名/部门

Dim m_rq As Date

Dim m_rq2 As String

Dim dkjl As String '存放打卡记录

Dim sbsj As Date

Dim xbsj As Date

Dim bhZD 'key-姓名 item-编号

Dim dkrqZD 'key-编号+日期 item-序号

Dim dkrqArr(1 To 1000, 1 To 2) As Date '1-上班时间 2-下班时间

Dim dkrqJs As Integer

Dim xM As String, bH As Integer

Dim myDate As Date, myTime As Date

Dim myKey As String

Set bhZD = CreateObject("scripting.dictionary")

dkrqJs = 0

With Sheets("员工基本信息")

hh = 2

Do While .Cells(hh, 1) <> ""

xM = .Cells(hh, 1).Text

bH = .Cells(hh, 5).Value

bhZD.Add xM, bH

hh = hh + 1

Loop

End With

Set dkrqZD = CreateObject("

热心网友时间：2023-10-10 16:43