請教打卡統計問題

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

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

2^#

發表於 2011-8-9 19:38 | 只看該作者

回復 1# tony0318

試試看

Sub Ex()
Dim Ar(), a, i As Integer
With Sheets("sheet1")
Ar = Application.Transpose(.Range("g2", .Range("g2").End(xlDown)))
.[f34] = UBound(Filter(Ar, .[e34], True)) + 1
.[f35] = UBound(Filter(Ar, .[e35], True)) + 1
.[f36] = UBound(Filter(Ar, .[e36], True)) + 1
For Each a In Filter(Ar, .[e37], True)
i = i + Mid(a, InStr(a, "休") + 1, InStr(a, "分") - InStr(a, "休") - 1)
Next
.[f37] = i / 60
End With
End Sub

複製代碼

帖子: 16
主題: 5
精華: 0
積分: 29
點名: 0
作業系統: WIN XP PRO
軟體版本: EXCEL 2003
閱讀權限: 10
註冊時間: 2010-5-5
最後登錄: 2014-8-15

3^#

發表於 2011-8-10 08:55 | 只看該作者

非常感謝您的幫忙!
可能我寫的不清楚!
F35和F36 要呈現的是分鐘的累計，而非次數，
請您再次幫忙，謝謝。

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 253
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2011-8-10 09:39 | 只看該作者

回復 3# tony0318

這個問題點在於上、下班的遲到早退標準為何?
參考一下這個討論
http://forum.twbts.com/thread-3811-4-2.html

學海無涯_不恥下問

帖子: 16
主題: 5
精華: 0
積分: 29
點名: 0
作業系統: WIN XP PRO
軟體版本: EXCEL 2003
閱讀權限: 10
註冊時間: 2010-5-5
最後登錄: 2014-8-15

5^#

發表於 2011-8-10 10:06 | 只看該作者

Hsieh 您好 :

對程式不是很懂，但GBKEE 的程式應該是可行的，因為有看到特休部分是可以累加的並且換算成小時。
而遲到和早退，除要有計算次數還要有遲到累計分鐘數、早退分鐘數。

謝謝。

GBKEE

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

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

6^#

發表於 2011-8-10 14:05 | 只看該作者

回復 5# tony0318
你對程式不是很懂,可以練習看看
For Each a In Filter(Ar, .[e37], True)
i = i + Mid(a, InStr(a, "休") + 1, InStr(a, "分") - InStr(a, "休") - 1)
Next
i=累計特休的分鐘 ,InStr(a, "休")=找出"休"位於字串的位置數
F35和F36 要呈現的是分鐘的累計，而非次數，你試著改出來,不會很難的

帖子: 16
主題: 5
精華: 0
積分: 29
點名: 0
作業系統: WIN XP PRO
軟體版本: EXCEL 2003
閱讀權限: 10
註冊時間: 2010-5-5
最後登錄: 2014-8-15

7^#

發表於 2011-8-10 18:18 | 只看該作者

嘗試過多次，
遲到部分是累計了，
但早退出不來，
還有特休會變成480480，

以下是我的程式代碼，不知道錯誤在哪?謝謝。

Sub Ex()
Dim Ar(), a, i As Integer
With Sheets("sheet1")
Ar = Application.Transpose(.Range("g2", .Range("g2").End(xlDown)))
.[f34] = UBound(Filter(Ar, .[e34], True)) + 1
For Each a In Filter(Ar, .[e35], True)
i = i + Mid(a, InStr(a, "到") + 1, InStr(a, "分") - InStr(a, "到") - 1)
Next
.[f35] = i
For Each a In Filter(Ar, .[e37], True)
k = k + Mid(a, InStr(a, "休") + 1, InStr(a, "分") - InStr(a, "休") - 1)
Next
.[f37] = k
For Each a In Filter(Ar, .[e36], True)
j = j + Mid(a, InStr(a, "退") + 1, InStr(a, "分") - InStr(a, "退") - 1)
Next
.[f36] = j
End With
End Sub

複製代碼

GBKEE

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

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

8^#

發表於 2011-8-10 19:45 | 只看該作者

回復 7# tony0318
你的早退的字串是怎樣寫的再附檔看看

帖子: 16
主題: 5
精華: 0
積分: 29
點名: 0
作業系統: WIN XP PRO
軟體版本: EXCEL 2003
閱讀權限: 10
註冊時間: 2010-5-5
最後登錄: 2014-8-15

9^#

發表於 2011-8-11 09:07 | 只看該作者

您好:
我也一直覺得很奇怪，為何早退不行?

附檔如下 :

測試.rar (11.97 KB)

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 253
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2011-8-11 10:31 | 只看該作者

回復 9# tony0318

Sub ex()
[F34:F37] = ""
For Each c In [E35:E37]
For Each a In [G2:G32]
k = InStr(a, c)
If k > 0 Then c.Offset(, 1) = c.Offset(, 1) + Val(Mid(a, k + Len(c))) / IIf(c = "特休", 60, 1): If c = "遲到" Then [F34] = [F34] + 1
Next
Next
End Sub

複製代碼

學海無涯_不恥下問