- 帖子
- 522
- 主題
- 36
- 精華
- 1
- 積分
- 603
- 點名
- 0
- 作業系統
- win xp sp3
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-12-13
- 最後登錄
- 2021-7-11
|
請自行測試看看!!(資料太多)- Private Sub CommandButton1_Click()
- Dim LastR As Integer, I As Integer
- Dim Rng As Range, fAddr As String
- Dim Col1 As Integer, Off1 As Integer, H1 As Integer
- LastR = [D65536].End(xlUp).Row
- [F2:AI73] = ""
- For I = 2 To LastR Step 4
- Set Rng = [A:A].Find(Cells(I, 4), Lookat:=xlWhole) '欄A 中尋找TesterNo
- If Not Rng Is Nothing Then
- fAddr = Rng.Address
- Do
- Col1 = Day(Rng.Offset(0, 1)) + 5
- H1 = Hour(Rng.Offset(0, 1))
- Off1 = IIf(H1 < 16, 1, 2)
- If H1 < 8 Then Off1 = 0
- Cells(I + Off1, Col1) = Cells(I + Off1, Col1) + 1
- Cells(I + 3, Col1) = Cells(I + 3, Col1) + 1
- Set Rng = [A:A].FindNext(Rng) '尋找下一個TesterNo
- Loop Until fAddr = Rng.Address '直到下一個TesterNo的位置=第一個TesterNo的位置
- End If
- Next
- End Sub
|
|
發表於 2015-11-29 17:54
| 
