帖子: 4
主題: 2
精華: 0
積分: 44
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 10
性別: 男
註冊時間: 2014-2-10
最後登錄: 2016-11-26

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-6-11 14:15 | 只看該作者

[發問] 卡檔資料要統計同超休次數

請教各位高手，想將公司門禁資料下載後，以vb將資料整理並計算出同仁超休次數，該怎麼寫呢?

公司為12小時制，分四次休息，因工作分成兩批輪休，以下是休息的範圍時間：
21：00~22：00 休息
23：00~00：30 用餐
02：00~03：00 休息
05：00~06：30 用餐

卡檔資料.zip (65.34 KB)

超休統計.zip (8.11 KB)

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-6-12 08:12 | 只看該作者

回復 1# FONG47
超休的定義為何?

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

FONG47

小學生 Rank: 1

帖子: 4
主題: 2
精華: 0
積分: 44
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 10
性別: 男
註冊時間: 2014-2-10
最後登錄: 2016-11-26

3^#

發表於 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分鐘/人

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2014-6-15 06:39 | 只看該作者

回復 3# FONG47
卡檔資料.xls 資料中員工每日刷卡為何有大於4筆的資料

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

FONG47

小學生 Rank: 1

帖子: 4
主題: 2
精華: 0
積分: 44
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 10
性別: 男
註冊時間: 2014-2-10
最後登錄: 2016-11-26

5^#

發表於 2014-6-15 23:56 | 只看該作者

回復 4# GBKEE

人有三急：內急，性急，心急
超過4次的卡檔是內急啦！此屬人之常情，直接忽略大約8分鐘內

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP