Board logo

標題: 請教打卡統計問題 [打印本頁]
作者: tony0318    時間: 2011-8-9 11:18     標題: 請教打卡統計問題

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

謝謝

[attach]7322[/attach]
作者: GBKEE    時間: 2011-8-9 19:38

回復 1# tony0318

試試看
  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.         .[f35] = UBound(Filter(Ar, .[e35], True)) + 1
  7.         .[f36] = UBound(Filter(Ar, .[e36], True)) + 1
  8.         For Each a In Filter(Ar, .[e37], True)
  9.             i = i + Mid(a, InStr(a, "休") + 1, InStr(a, "分") - InStr(a, "休") - 1)
  10.         Next
  11.         .[f37] = i / 60
  12.     End With
  13. End Sub
複製代碼
作者: tony0318    時間: 2011-8-10 08:55

非常感謝您的幫忙!
可能我寫的不清楚!
F35和F36 要呈現的是分鐘的累計，而非次數，
請您再次幫忙，謝謝。
作者: Hsieh    時間: 2011-8-10 09:39

回復 3# tony0318

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

Hsieh 您好 :

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

謝謝。
作者: GBKEE    時間: 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 要呈現的是分鐘的累計，而非次數，你試著改出來,不會很難的
作者: tony0318    時間: 2011-8-10 18:18

嘗試過多次，
遲到部分是累計了，
但早退出不來，
還有特休會變成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

  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

  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
複製代碼
作者: GBKEE    時間: 2011-8-10 19:45

回復 7# tony0318
你的早退的字串是怎樣寫的  再附檔看看
作者: tony0318    時間: 2011-8-11 09:07

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

附檔如下 :
[attach]7362[/attach]
作者: Hsieh    時間: 2011-8-11 10:31

回復 9# tony0318
  1. Sub ex()
  2. [F34:F37] = ""
  3. For Each c In [E35:E37]
  4.    For Each a In [G2:G32]
  5.    k = InStr(a, c)
  6.       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
  7.    Next
  8. Next
  9. End Sub
複製代碼
作者: GBKEE    時間: 2011-8-11 16:25

回復 7# tony0318
還有特休會變成480480， 你沒宣告變數為數字時   J , K 傳回子串+ 子串才如此
  1. Sub Ex()
  2.     Dim Ar(), a, i As Integer, k As Integer, j 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.         For Each a In Filter(Ar, .[e35], True)
  7.             i = i + Mid(a, InStr(a, "到") + 1, InStr(a, "分") - InStr(a, "到") - 1)
  8.         Next
  9.         .[f35] = i
  10.         For Each a In Filter(Ar, .[e37], True)
  11.             k = k + Mid(a, InStr(a, "休") + 1, InStr(a, "分") - InStr(a, "休") - 1)
  12.         Next
  13.         .[f37] = k / 60
  14.         For Each a In Filter(Ar, .[e36], True)
  15.             j = j + Mid(a, InStr(a, "退") + 1, Len(a) - InStrRev(a, "分") + 1)
  16.         Next
  17.         .[f36] = j
  18.     End With
  19. End Sub
複製代碼
作者: tony0318    時間: 2011-8-11 18:01

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

我要如何讓所有工作表都執行這巨集?
原以為選擇所有工作表，再執行所要巨集即可!
我想法太單純了!!
作者: GBKEE    時間: 2011-8-11 18:58

回復 12# tony0318
With Sheets("sheet1")    指名 sheet1工作表
With ActiveSheet            作用中的工作表
作者: tony0318    時間: 2011-8-15 08:23

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

謝謝
作者: GBKEE    時間: 2011-8-15 14:53

回復 14# tony0318
是這樣嗎?
  1. Sub Ex()
  2.     Dim Ar(), a, i As Integer, k As Integer, j As Integer
  3.     Dim Sh As Worksheet
  4.     For Each Sh In Sheets   '工作表物件的集合 Sheets
  5.         With Sh         'Sheets("sheet1")
  6.             Ar = Application.Transpose(.Range("g2", .Range("g2").End(xlDown)))
  7.             .[F34] = UBound(Filter(Ar, .[e34], True)) + 1
  8.             For Each a In Filter(Ar, .[e35], True)
  9.                 i = i + Mid(a, InStr(a, "到") + 1, InStr(a, "分") - InStr(a, "到") - 1)
  10.             Next
  11.             .[f35] = i
  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 / 60
  16.             For Each a In Filter(Ar, .[e36], True)
  17.                 j = j + Mid(a, InStr(a, "退") + 1, Len(a) - InStrRev(a, "分") + 1)
  18.             Next
  19.             .[f36] = j
  20.         End With
  21.     Next
  22.     Set Sh = Nothing
  23. End Sub
複製代碼
作者: tony0318    時間: 2011-8-15 17:35

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

謝謝!

[attach]7465[/attach]
作者: GBKEE    時間: 2011-8-16 14:57

回復 16# tony0318
沒有歸零  i = 0: k = 0: j = 0
  1. Sub Ex()
  2.     Dim Ar(), a, i As Integer, k As Integer, j As Integer
  3.     Dim Sh As Worksheet
  4.     For Each Sh In Sheets   '工作表物件的集合 Sheets
  5.         i = 0: k = 0: j = 0
  6.         With Sh         'Sheets("sheet1")
  7.             Ar = Application.Transpose(.Range("g2", .Range("g2").End(xlDown)))
  8.             .[F34] = UBound(Filter(Ar, .[e34], True)) + 1
  9.             For Each a In Filter(Ar, .[e35], True)
  10.                 i = i + Mid(a, InStr(a, "到") + 1, InStr(a, "分") - InStr(a, "到") - 1)
  11.             Next
  12.             .[f35] = i
  13.             For Each a In Filter(Ar, .[e37], True)
  14.                 k = k + Mid(a, InStr(a, "休") + 1, InStr(a, "分") - InStr(a, "休") - 1)
  15.             Next
  16.             .[f37] = k / 60
  17.             For Each a In Filter(Ar, .[e36], True)
  18.                 j = j + Mid(a, InStr(a, "退") + 1, Len(a) - InStrRev(a, "分") + 1)
  19.             Next
  20.             .[f36] = j
  21.         End With
  22.     Next
  23.     Set Sh = Nothing
  24. End Sub
複製代碼
作者: tony0318    時間: 2011-8-18 16:05

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)