GBKEE

回復 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

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

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

GBKEE

回復 12# tony0318
With Sheets("sheet1")    指名 sheet1工作表
With ActiveSheet            作用中的工作表

tony0318

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

謝謝

GBKEE

回復 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

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

謝謝!

測試.rar (12 KB)

下載次數: 10

2011-8-15 17:33

GBKEE

回復 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

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