請問如何利用DDE提供的時間數據定期紀錄在excel活頁簿 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請問如何利用DDE提供的時間數據定期紀錄在excel活頁簿

返回列表下一主題上一主題發帖

[發問] 請問如何利用DDE提供的時間數據定期紀錄在excel活頁簿

博士班 Rank: 6 Rank: 6

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

1^# 跳轉到 »

發表於 2014-7-2 07:31 | 顯示全部帖子

回復 1# barrykuo
"如果想利用看盤軟體顯示在活頁簿上的時間例如094500、104500、114500、124500、134500等時間來記錄股價開盤、最高、最低、收盤，該如何利用巨集寫下來記錄。"
判斷時間 (Time) 改以判斷『看盤軟體顯示在活頁簿上的時間』便行了。

博士班 Rank: 6 Rank: 6

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

2^#

發表於 2014-7-2 10:54 | 顯示全部帖子

本帖最後由 c_c_lai 於 2014-7-2 10:56 編輯

回復 4# barrykuo
你試著將

If oneH >= 1 Then
MsgBox "I got it!" ' 你欲寫入的資料內容
End If

複製代碼

換成這個測試例子，試著改成你所要的間距時段：

Sub Ex()
Dim MyStr
' 設定時間格式為 HH:MM:SS
MyStr = Format(Sheets("即時指數").Range("C3"), "00:00:00")
' 此例為每隔 5 分鐘執行一次 (5 x 60)
If (Minute(MyStr) * 60 + Second(MyStr)) Mod 300 = 0 Then
MsgBox "I got it!"
End If
End Sub

複製代碼

如此便成了你所要的關鍵性內容了。

博士班 Rank: 6 Rank: 6

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

3^#

發表於 2014-7-2 11:00 | 顯示全部帖子

回復 4# barrykuo
又、計算A02.rar 一開啟會有錯誤訊息
是因為你少建立一個工作表單 "5K"。

博士班 Rank: 6 Rank: 6

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

4^#

發表於 2014-7-2 11:55 | 顯示全部帖子

回復 7# barrykuo
那只好配合實際發生的數據去機動判斷了。

靜思自在 : 話多不如話少，話少不如話好。

返回列表下一主題上一主題