電子出勤紀錄儀器（即電子打咭）
每當員工上下班
於指定位置輸入自己的姓名及密碼後，
按下ENTER後
能夠於另一表格自動填入上班日期、上班時間或下班時間等資料
各位可唔可以幫手製作咁既EXCEL 檔案
‧一定要用EXCEL
‧無需設定任何保安
‧員工數目最多為三個
‧員工出勤紀錄為十項就可以了
更新1:
re: 漢鍾離 感謝你的指導 我對巨集的影識不多 如果可以，可否給我這個檔案 [email protected] 定必即時選為最徍答案
急!!關於excel
2007-06-24 7:46 pm
請問咁多位有冇辦法用EXCEL製作一個
電子出勤紀錄儀器（即電子打咭）
每當員工上下班
於指定位置輸入自己的姓名及密碼後，
按下ENTER後
能夠於另一表格自動填入上班日期、上班時間或下班時間等資料
各位可唔可以幫手製作咁既EXCEL 檔案
‧一定要用EXCEL
‧無需設定任何保安
‧員工數目最多為三個
‧員工出勤紀錄為十項就可以了
電子出勤紀錄儀器（即電子打咭）
每當員工上下班
於指定位置輸入自己的姓名及密碼後，
按下ENTER後
能夠於另一表格自動填入上班日期、上班時間或下班時間等資料
各位可唔可以幫手製作咁既EXCEL 檔案
‧一定要用EXCEL
‧無需設定任何保安
‧員工數目最多為三個
‧員工出勤紀錄為十項就可以了
回答 (2)
2007-06-24 10:39 pm
✔ 最佳答案
由於此類程式的效果是很主觀的, 通常編者都需先行了解實際需要, 才度身訂做多少員工及多少紀錄, 對程式完全沒有影響
第2列(行)是標題, A2=I/D#; B2=日期; C2=上班時間; D2=下班時間
我剛編了代碼, 上班與下班是分開執行。
Sub starttime()
100
ID = InputBox("請輸入員工號", "開工打咭")
If ID = "" Then Exit Sub
If IsEmpty([A3]) Then
Set xx = [A3]
Else
Set xx = [A2].End(xlDown).Offset(1, 0)
End If
xx.Value = ID
xx.Offset(0, 1) = Date
xx.Offset(0, 2) = Time
GoTo 100
End Sub
Sub closetime()
200
ID = InputBox("請輸入員工號", "收工打咭")
If ID = "" Then Exit Sub
Set xx = [A2].End(xlDown)
201
If xx.Offset(0, 1) < Date Then
MsgBox "員工今天未有開工紀錄", 48
GoTo 200
ElseIf xx.Value = ID And xx.Offset(0, 1) = Date Then
xx.Offset(0, 3) = Time
Beep
GoTo 200
Else
Set xx = xx.Offset(-1, 0)
GoTo 201
End If
End Sub
希望樓主不要說: 完全不懂巨集
如需進一步協助, 請留下e-mail, 我給你檔案
2007-06-24 14:47:30 補充：
代碼的第1句後面是有 冒號 ":"是 100:及200:
2007-06-24 8:13 pm
Excel 唔可以咁做。 你要做咁既要求，要搵人寫一個程式，再用Excel版面顯示出來。
收錄日期: 2021-04-23 20:31:52
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20070624000051KK01256