執行時間問題?

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

37^#

發表於 2012-6-28 11:26 | 只看該作者

回復 36# GBKEE
多謝指點！
很棒的範例，易懂但會腦筋打死結的！

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

36^#

發表於 2012-6-28 11:02 | 只看該作者

回復 35# c_c_lai

'# # 為系統輸入日期時間的關鍵字
'#00:00# 系統自動生成 -> #12:00:00 AM#
'#11:59# 系統自動生成 -> #11:59:00 AM#
'#13:01# 系統自動生成 -> #1:01:00 PM#
'#23:01# 系統自動生成 -> #11:01:00 PM#
Option Explicit
Sub Ex()
Dim TheTime As Date, xTime As Date
MsgBox "#11:59:59 AM# + #12:00:01 AM#" & Chr(10) & CDate(#11:59:59 AM# + #12:00:01 AM#)
TheTime = #8:45:05 AM#
xTime = TimeSerial(Hour(TheTime), 0, 0)
MsgBox xTime
xTime = TimeSerial(Hour(TheTime), Minute(TheTime), 0)
MsgBox xTime
xTime = TimeSerial(Hour(TheTime), Minute(TheTime), 0) + #12:01:00 AM#
MsgBox xTime
End Sub

複製代碼

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

35^#

發表於 2012-6-28 09:25 | 只看該作者

回復 34# GBKEE
謝謝您！
請教 TheTime = TimeSerial(Hour(Time), Minute(Time), 0) + #12:01:00 AM# 的用意何在？
為何偏偏加上 12:01:00，是指向下一分鐘嗎？如果是的話，為何不是 00:01:00 ？

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

34^#

發表於 2012-6-28 08:48 | 只看該作者

回復 31# c_c_lai
這樣也會自動化
DDE連結工作表模組程式碼

'DDE連結工作表的預設事件 : 當公式資料有變動時會觸發此事件
Dim TheTime As Date '記錄下一分鐘的時間 : DDE連結工作表模組的私用變數
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If IsError([C2]) Or Time < #8:45:00 AM# Then
Sheets("策略記錄").[a1].CurrentRegion.Offset(1).Clear
Application.EnableEvents = True
Exit Sub
ElseIf Time > #1:30:00 PM# Then
Application.EnableEvents = True
Exit Sub
End If
If CDbl(TheTime) = 0 Or TheTime <= Time Then ' TheTime變數未給值 or 記錄下一分鐘的時間>= Time
With Sheets("策略記錄")
.Cells(.Rows.Count, 1).End(xlUp).Offset(1).EntireRow = Rows(2).Value
End With
TheTime = TimeSerial(Hour(Time), Minute(Time), 0) + #12:01:00 AM#
End If
Application.EnableEvents = True
End Sub

複製代碼

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

33^#

發表於 2012-6-28 06:01 | 只看該作者

回復 32# devidlin
有答案時再告訴我。
說真格的，我對於你說的寶來點精靈之連結方式感到蠻好奇的。

devidlin

中學生 Rank: 2

帖子: 58
主題: 3
精華: 0
積分: 66
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-5-21
最後登錄: 2019-2-26

論壇贊助勳章

32^#

發表於 2012-6-27 22:43 | 只看該作者

回復 31# c_c_lai

感謝版大的協助，有空明天我再來測試，謝謝您。

devidlin

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

31^#

發表於 2012-6-27 20:52 | 只看該作者

回復 c_c_lai

小弟明瞭您的意思，原來寶來環球通不像easywin的dde有程式碼代號，所以寶來環球通 ...
devidlin 發表於 2012-6-27 18:00

蠻好奇它是怎麼連結的， Anyway 我依據你現有的資料 (new.xls) 將 VBA 程式撰寫完畢，(請留意每個模組間的互動關係)
方便今後你能即時測試，為明瞭各個工作表單所具特性並同時將它們 Rename成 "DDE連結"、及 "策略紀錄"。
你每日 08:45 前連線後，它會等到了 08:45 便自動執行資料匯入，之後每隔一分鐘便執行一次；
直到 13:45 一過便自動停止，一切自動化。接下來，就要靠你自個兒鑽研了。
祝晚安！

DDE連結.rar (13.24 KB)