owen06

¦^´_ 1# corcovado886


    ª½±µ¼g¦bvba¸Ì­±¥i¥H¶Ü¡H

1. Sub ¦Û°Ê°O¿ý()
   
2. If uMode = 0 Then Exit Sub
   
3. If Time > TimeValue(EndTime) Then '¦¬½L®É¶¡¥H«á¤£°õ¦æ
   
4.     Sht1.[W4] = "¤w¹L¦¬½L"
   
5.     uMode = 0
   
6.     Exit Sub
   
7. End If
   
8. Sht1.Range("W2") = Time '·í«e®É¶¡¡]®É¶¡½Xªí¡^
   
9. '----------------------------------------------------------
   
10. '¨C¢°¤ÀÄÁ°O¿ý¡A¢´¤ÀÄÁ«h§ï¬° Mod 5
    
11. If Second(Time) Mod 3 = 0 Then
    
12.    xRow = Sht1.Range("A65536").End(xlUp).Row + 1
    
13.    If xRow < 11 Then xRow = 11
    
14.    Sht1.Range("A" & xRow & ":V" & xRow).Value = Sht1.Range("A2:V2").Value
    
15.    Sht1.Range("W" & xRow).Value = Time
    
16.    Mx = Application.Max(Sht1.Range("a" & xRow & ":v" & xRow))
    
17.    Sht1.Range("Y" & xRow).Value = Mx
    
18.    Ans = Sht1.Range("a" & xRow & ":v" & xRow).Find(Mx, , , xlWhole).Address
    
19.    Sht1.Range("Z" & xRow).Value = Range(Ans).Column
    
20.    '------------------------------------------------
    
21.    If ActiveSheet.Name = Sht1.Name And xRow > 20 Then
    
22.       ActiveWindow.ScrollRow = xRow - 12 'Åý³Ì·s¸ê®Æ«O«ù¦b¥i¨£µøµ¡¤¤
    
23.    End If
    
24.    ThisWorkbook.Save   '¦sÀÉ
    
25. End If
    
26. Application.OnTime Now + TimeValue("00:00:01"), "¦Û°Ê°O¿ý"   '¨C¤@¬í»¼°j¤@¦¸
    
27. End Sub

½Æ»s¥N½X