stillfish00

¦^´_ 1# vzcen
¨S¥Î¹LDDE¡A¶È¨Ñ°Ñ¦Ò¡C

1. Private gbStart As Boolean
   
2. Private recTime
   
3. Private recValue
   
4. Private Sub Worksheet_Calculate()
   
5.     Dim ddeValue
   
6.    
   
7.     If gbStart Then
   
8.         ddeValue = [B6].Value
   
9.         If IsEmpty(recValue) Then recTime = Time: recValue = ddeValue
   
10.         
    
11.         If Minute(recTime) = Minute(Time) Then
    
12.             If ddeValue > recValue Then recTime = Time: recValue = ddeValue
    
13.         Else
    
14.             '¬ö¿ý®É¶¡¦bDÄæ³Ì«á¤@¦C¤U¤è
    
15.             Cells(Rows.Count, "D").End(xlUp).Offset(1).Value = recTime
    
16.             '¬ö¿ý»ù®æ¦bEÄæ³Ì«á¤@¦C¤U¤è
    
17.             Cells(Rows.Count, "E").End(xlUp).Offset(1).Value = recValue
    
18.             recTime = Time: recValue = ddeValue
    
19.         End If
    
20.     End If
    
21.    
    
22. End Sub
    
23. '¥i«Ø¥ß«ö¶s¶}©l©Îµ²§ô
    
24. Private Sub StartRecordData()
    
25.     gbStart = True
    
26. End Sub
    
27. Private Sub StopRecordData()
    
28.     gbStart = False
    
29.     recTime = Empty
    
30.     recValue = Empty
    
31. End Sub

½Æ»s¥N½X