執行時間問題?

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

1^# 跳轉到 »

發表於 2012-6-8 08:07 | 顯示全部帖子

回復 7# mead
關鍵在於 Application.OnTime (TimeValue("08:45:00")), "Module1.Timer" ：

Private Sub Workbook_Open()
Sheets("策略記錄").[a5:n700] = ""
' LastMin = Minute(Time)
Application.OnTime (TimeValue("08:45:00")), "Module1.Timer" ' *********
End Sub
Sub Timer()
Dim HHMMSS As Integer
On Error Resume Next
' Sheets("策略記錄").Select
Sheets(2).Cells(2, 1) = Time '將時間show至策略的a2欄位
If (TimeValue(Now) >= TimeValue("13:45:00")) Then Exit Sub ' 超過營業時間後即跳離不予執行
.
.
.
.
End Sub

複製代碼

至於 Timer 修改一下 If (TimeValue(Now) >= TimeValue("13:45:00")) Then Exit Sub
其它部分依你所需去修正。

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2012-6-24 08:48 | 顯示全部帖子

回復 10# devidlin

9.png (229.16 KB)

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

3^#

發表於 2012-6-24 09:27 | 顯示全部帖子

回復 12# devidlin
OK 的！甚至你可以加以整理歸類成你要的工作表單，如附圖提供你參考。

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2012-6-25 09:04 | 顯示全部帖子

回復 14# devidlin
不好意思，這個工作表單裡面的公式是屬於他人的授權，非經他人許可實無法外流，
故有礙於分享！

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

5^#

發表於 2012-6-25 14:21 | 顯示全部帖子

本帖最後由 c_c_lai 於 2012-6-25 14:25 編輯

回復 16# devidlin
回復時請務必點選下方之回復選鈕，否則當事人是無法得知您已回復了，我是因為發現它才進來瞧瞧的。
請你參考：
請問高手要將以下DDE 每分鐘記錄改為30秒自動記錄一次要怎改
之 Page 2 我最後貼附的範例 "自動記錄每分鐘委買賣均值"，你就會明瞭了。