c_c_lai

¦^´_ 127# areskevin

1. Option Explicit
   
2. 
   
3. Dim LastMin As String
   
4. 
   
5. Private Sub Workbook_Open()
   
6.     LastMin = "00:01:00"
   
7.     Call Timer
   
8. End Sub
   
9. 
   
10. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
11.     On Error Resume Next
    
12.     Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer", , False
    
13. End Sub
    
14. 
    
15. Public Sub Timer()
    
16.     Dim Pos As Long, HHMM As Integer, col As Variant
    
17.         
    
18.     With Sheets("¨C¤À°O¿ý")
    
19.         HHMM = Hour(Now) * 100 + Minute(Now)
    
20.         If (HHMM < 900 Or HHMM > 1333) Then Exit Sub
    
21.    
    
22.         .Cells(2, 4) = Now
    
23.         Set col = Range(.Range("A5"), .Cells(5, .[A4].End(xlToRight).Column)).Find(Format(.Cells(2, 4), "M/D"), LookIn:=xlValues, LookAt:=xlWhole)
    
24.         Pos = .Cells(Rows.Count, col.Column - 1).End(xlUp).Row + 1       '  §¡¥H¨ä¬Û¹ïÀ³¤§·í¤é (col) ¬°°ò·Ç   (Pos = 6 : Long)
    
25.         '  Pos = .Range("A" & Rows.Count).End(xlUp).Row + 1
    
26.         .Cells(Pos, col.Column - 1) = Format(.Cells(2, 4), "HH:MM:SS")
    
27.         .Cells(Pos, col.Column) = .Cells(2, 2)
    
28.         .Cells(Pos, col.Column + 1) = .Cells(2, 3)
    
29.     End With
    
30.    
    
31.     Application.OnTime Now + TimeValue(LastMin), "ThisWorkbook.Timer"
    
32.     '  Application.OnTime Now + TimeValue("00:01:00"), "ThisWorkbook.Timer"
    
33. End Sub

½Æ»s¥N½X

¦¬¦¬ Mail¡I

¤U¸ü (85.94 KB)

2016-6-24 18:55