GBKEE

¦^´_ 5# saleen
´Á«ü_001.xlsm

1. Sub updateFollow()
   
2.     Dim Rng As Range
   
3.     If (TimeValue(Now) < TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("13:45:00")) Then Exit Sub
   
4.     With ¤u§@ªí1
   
5.         Set Rng = .Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row + 1).Resize(1, 12)
   
6.         Rng(1) = "=XQTISC|Quote!'FITX06.TF-Time'"
   
7.         Rng(2) = "=R2-Q2"
   
8.         Rng(3) = "=X2-W2"
   
9.         Rng(4) = "=T2-U2"
   
10.         Rng(5) = "=IF(ISNUMBER(R[-1]C[-3]),RC[-3]-R[-1]C[-3],"""")"
    
11.         Rng(6) = "=IF(ISNUMBER(R[-1]C[-3]),RC[-3]-R[-1]C[-3],"""")"
    
12.         Rng(7) = "=IF(ISNUMBER(R[-1]C[-3]),RC[-3]-R[-1]C[-3],"""")"
    
13.         Rng(8) = "=Y2"
    
14.         Rng(9) = "=Z2"
    
15.         Rng(10) = "=Z2-Q5"
    
16.         Rng(11) = "= AA2 - AB2"
    
17.         Rng(12) = "=AD2"
    
18.         Rng.Value = Rng.Value
    
19.         Rng(1).NumberFormat = "hh:mm:ss"
    
20.     End With
    
21.     If timerEnabled Then Call timerStart
    
22. End Sub

½Æ»s¥N½X