- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
23#
發表於 2016-7-20 12:08
| 只看該作者
本帖最後由 c_c_lai 於 2016-7-21 07:10 編輯
回復 20# 藍天麗池 - Private Sub Workbook_Open()
- Dim rng As Variant
-
- With Sheets(1)
- For Each rng In Range(.[D2], .[D2].End(xlDown))
- rng.Offset(, 26) = IIf(IsNumeric(rng), rng, 0)
- rng.Offset(, 1) = IIf(IsNumeric(rng.Offset(, -1)), rng.Offset(, -1), 0)
- Next
- If Time < TimeValue("08:45") Then ' 早於開盤時間
- Application.OnTime TimeValue("08:45"), "ThisWorkbook.MyWay" ' 設定於08:45 執行 MyWay 程序
- ElseIf Time >= TimeValue("08:45") And Time <= TimeValue("13:30") Then ' 於交易時間內
- MyWay ' 執行 MyWay 程序
- End If
- End With
- End Sub
- Sub MyWay()
- With Sheets(1)
- For Each rng In Range(.[D2], .[D2].End(xlDown))
- If IsNumeric(rng) Then
- If rng.Offset(, 26).Value <> rng.Value Then
- rng.Offset(, 26) = rng
- rng.Offset(, 2) = rng.Offset(, 1)
- rng.Offset(, 1) = IIf(IsNumeric(rng.Offset(, -1)), rng.Offset(, -1), 0)
- End If
- End If
- Next
- End With
-
- Application.OnTime Now + TimeValue("00:00:10"), "ThisWorkbook.MyWay" ' 設定 10 秒後 執行 MyWay 程序
- End Sub
- Sub addN() ' 手動測試用
- Dim rng As Range
-
- With Sheets(1)
- For Each rng In Range(.[AD2], .[AD2].End(xlDown))
- rng = rng + 1
- Next
- End With
- End Sub
|
|
