請教打卡統計問題

tony0318

請教向附件那樣打卡出來的要如何統計
遲到的次數
遲到的時間統計
早退的時間統計
及特休的時數統計

謝謝

Book5.rar (4.26 KB)

下載次數: 19

2011-8-9 11:16

tony0318

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

tony0318

Hsieh 您好 :

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

謝謝。

tony0318

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

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

1. Sub Ex()
   
2.     Dim Ar(), a, i As Integer
   
3.     With Sheets("sheet1")
   
4.         Ar = Application.Transpose(.Range("g2", .Range("g2").End(xlDown)))
   
5.         .[f34] = UBound(Filter(Ar, .[e34], True)) + 1
   
6. 
   
7.         For Each a In Filter(Ar, .[e35], True)
   
8.             i = i + Mid(a, InStr(a, "到") + 1, InStr(a, "分") - InStr(a, "到") - 1)
   
9.         Next
   
10.         .[f35] = i
    
11. 
    
12.         For Each a In Filter(Ar, .[e37], True)
    
13.             k = k + Mid(a, InStr(a, "休") + 1, InStr(a, "分") - InStr(a, "休") - 1)
    
14.         Next
    
15.         .[f37] = k
    
16.                
    
17.         For Each a In Filter(Ar, .[e36], True)
    
18.             j = j + Mid(a, InStr(a, "退") + 1, InStr(a, "分") - InStr(a, "退") - 1)
    
19.         Next
    
20.         .[f36] = j
    
21.         
    
22.     End With
    
23. End Sub

複製代碼

tony0318

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

附檔如下 :
測試.rar (11.97 KB)

下載次數: 12

2011-8-11 09:06

tony0318

真神奇!
Hsieh 的程式簡短扼要  小弟較無法理解!
GBKEE  的 讓我容易應用!!
戲法人人會變 手法巧妙各不同!!
感謝

我要如何讓所有工作表都執行這巨集?
原以為選擇所有工作表，再執行所要巨集即可!
我想法太單純了!!

tony0318

抱歉!
我指的是如何一次針對檔案中所有工作表都執行相同的巨集，
原本想說選擇所有工作表後再執行巨集，
但只有第一個工作表有反應，
變成每一個員工我都要執行一次!

謝謝

tony0318

不好意思!
這樣執行之後，會累計耶!
應該是單一工作表各別計算
如有5個人打卡會有5張工作表，但是是各別計算的!

謝謝!

測試.rar (12 KB)

下載次數: 10

2011-8-15 17:33

tony0318

感謝 GBKEE  的幫忙!!
這正是我要的!!
謝謝。