- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
6#
發表於 2013-6-5 16:12
| 只看該作者
回復 5# saleen
期指_001.xlsm- Sub updateFollow()
- Dim Rng As Range
- If (TimeValue(Now) < TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("13:45:00")) Then Exit Sub
- With 工作表1
- Set Rng = .Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row + 1).Resize(1, 12)
- Rng(1) = "=XQTISC|Quote!'FITX06.TF-Time'"
- Rng(2) = "=R2-Q2"
- Rng(3) = "=X2-W2"
- Rng(4) = "=T2-U2"
- Rng(5) = "=IF(ISNUMBER(R[-1]C[-3]),RC[-3]-R[-1]C[-3],"""")"
- Rng(6) = "=IF(ISNUMBER(R[-1]C[-3]),RC[-3]-R[-1]C[-3],"""")"
- Rng(7) = "=IF(ISNUMBER(R[-1]C[-3]),RC[-3]-R[-1]C[-3],"""")"
- Rng(8) = "=Y2"
- Rng(9) = "=Z2"
- Rng(10) = "=Z2-Q5"
- Rng(11) = "= AA2 - AB2"
- Rng(12) = "=AD2"
- Rng.Value = Rng.Value
- Rng(1).NumberFormat = "hh:mm:ss"
- End With
- If timerEnabled Then Call timerStart
- End Sub
複製代碼 |
|