- 帖子
- 16
- 主題
- 5
- 精華
- 0
- 積分
- 29
- 點名
- 0
- 作業系統
- WIN XP PRO
- 軟體版本
- EXCEL 2003
- 閱讀權限
- 10
- 註冊時間
- 2010-5-5
- 最後登錄
- 2014-8-15
|
嘗試過多次，
遲到部分是累計了，
但早退出不來，
還有特休會變成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
|
|
發表於 2011-8-9 11:18
| 
