Hsieh

¦^´_ 13# 7777
³o¼Ë¸Õ¸Õ¬Ý

1. Dim i As Single
   
2. Private Sub Workbook_Open()
   
3.   Application.OnTime TimeValue("08:45:00"), "ThisWorkBook.ExeSelf"
   
4. End Sub
   
5. Private Sub ExeSelf()
   
6.   On Error Resume Next
   
7.   If TimeValue(Now) > TimeValue("13:45:00") Then Exit Sub
   
8.   i = i + 1
   
9.   If i = 1 Then
   
10.   Sheets(1).Cells(1, 1) = Date
    
11.   i = i + 1
    
12.   End If
    
13.   Sheets(1).Cells(i, 2) = Time
    
14.   Sheets(1).Cells(i, 3) = Sheets(2).Cells(2, 1)
    
15.   Sheets(1).Cells(i, 4) = Sheets(2).Cells(2, 2)
    
16.   Sheets(1).Cells(i, 5) = Sheets(2).Cells(2, 3)
    
17.   Sheets(1).Cells(i, 6) = Sheets(2).Cells(2, 4)
    
18.   Application.OnTime Now + TimeValue("00:00:05"), "ThisWorkBook.ExeSelf"
    
19. End Sub

½Æ»s¥N½X

Hsieh

¤w¸g¹A¾ä8¤ë¡A«ç»òÁÙ·|¦³ÆF²§¨Æ¥ó?

Hsieh

¦^´_ 25# skybbs

1. Private Sub Worksheet_Calculate()
   
2. t = Format(TimeValue(Format([C6], "00:00:00")), "hh:mm:ss")
   
3. Set a = Range("H:H").Find(t)
   
4. If Not a Is Nothing Then a.Offset(, 1).Resize(, 3) = Array([E6], [F6], [E6] - [F6])
   
5. End Sub

½Æ»s¥N½X