標題:
[發問]
卡檔資料要統計同超休次數
[打印本頁]
作者:
FONG47
時間:
2014-6-11 14:15
標題:
卡檔資料要統計同超休次數
請教各位高手，想將公司門禁資料下載後，以vb將資料整理並計算出同仁超休次數，該怎麼寫呢?
公司為12小時制，分四次休息，因工作分成兩批輪休，以下是休息的範圍時間：
21：00~22：00 休息
23：00~00：30 用餐
02：00~03：00 休息
05：00~06：30 用餐
[attach]18472[/attach][attach]18473[/attach]
作者:
GBKEE
時間:
2014-6-12 08:12
回復
1#
FONG47
超休 的定義為何?
作者:
FONG47
時間:
2014-6-14 23:04
標題:
RE: 卡檔資料要統計超休次數
回復
2#
GBKEE
不好意思，忘了說明公司規定的時間，已修改說明，還請高手前輩們協助，謝謝！
公司為12小時制，分四次休息，因工作分成兩批輪休，以下是休息的範圍時間：
21：00~22：00 休息
規定休息20分鐘/人
23：00~00：30 用餐
規定休息40分鐘/人
02：00~03：00 休息
規定休息20分鐘/人
05：00~06：30 用餐
規定休息40分鐘/人
作者:
GBKEE
時間:
2014-6-15 06:39
回復
3#
FONG47
卡檔資料.xls 資料中員工每日刷卡為何有大於4筆的資料
作者:
FONG47
時間:
2014-6-15 23:56
回復
4#
GBKEE
人有三急：內急，性急，心急
超過4次的卡檔是內急啦！此屬人之常情，直接忽略大約8分鐘內
作者:
GBKEE
時間:
2014-6-17 07:21
回復
5#
FONG47
21：00~22：00 休息 規定休息20分鐘/人
23：00~00：30 用餐 規定休息40分鐘/人
02：00~03：00 休息 規定休息20分鐘/人
05：00~06：30 用餐 規定休息40分鐘/人
不好意思 . 卡檔的資料我無法抓出 [ 刷入時間,刷出時間 ] 這些時段的 時間
聊以超休統計.xls的計算程式碼充數
Option Explicit
Sub Ex()
Dim Rng(1 To 2) As Range, Ot As Integer, i As Integer, T As Single
T = #12:20:00 AM#
With ActiveSheet
Set Rng(1) = .Range("A3")
Do While Rng(1) <> ""
Set Rng(2) = .Range("D1")
Ot = 0
Do While IsDate(Rng(2))
For i = 1 To 4
With .Cells(Rng(1).Row, Rng(2).Column).Cells(i)
If .Value > IIf(i Mod 2 > 0, T, T * 2) Then
Ot = Ot + 1
.Interior.Color = vbRed
Else
.Interior.ColorIndex = xlNone
End If
End With
Next
Set Rng(2) = Rng(2).Offset(, 1)
Loop
.Cells(Rng(1).Row, Rng(2).Column) = Ot
Set Rng(1) = Rng(1).End(xlDown)
Loop
End With
End Sub
複製代碼
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
