請問高手要將以下DDE 每分鐘記錄改為30秒自動記錄一次要怎改
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
回復 21# usana642
1. 請將下列程式碼複製到 ThisWorkbook 模組內，並予儲存。- Option Explicit
- Dim timerEnabled As Boolean ' 判定開啟本工作表單的時段是否為開盤前啟動。
- Dim Pos As Integer ' 將每隔 "多少時間" 處理時段，移到此處來處理。
- Private Sub Workbook_Open()
- Pos = Sheets("策略記錄").Range("B" & Rows.Count).End(xlUp).Row
- If (Pos < 11) Then Pos = 10
- Sheets("策略記錄").Cells(4, 2) = Pos
- If (Sheets("策略記錄").Range("B6").Value = "") Then Sheets("策略記錄").Range("B6").Value = "08:45:00"
- If (Sheets("策略記錄").Range("B7").Value = "") Then Sheets("策略記錄").Range("B7").Value = "13:45:00"
- If (Sheets("策略記錄").Range("B8").Value = "") Then Sheets("策略記錄").Range("B8").Value = "00:00:30"
-
- timerEnabled = False
- Call timerStart ' 程式一啟始，便去自動執行 timerStart
- End Sub
- Private Sub Workbook_BeforeClose(Cancel As Boolean)
- On Error Resume Next
- Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer", , False
-
- Me.Save
- End Sub
- Public Sub Timer()
- On Error Resume Next
- If (TimeValue(Now) > Sheets("策略記錄").Range("B7").Value) Then Exit Sub
-
- If (TimeValue(Now) >= Sheets("策略記錄").Range("B6").Value) Then ' 開盤、收盤時段設定
- ' 盤中處理，將資料匯入寫入工作表單內儲存。
- With Sheets("策略記錄")
- .Cells(3, 2) = Time ' 將時間 Show 至策略的 B3 欄位
- Pos = Pos + 1 ' 將變動行號加一行
- .Cells(4, 2) = Pos
-
- .Cells(Pos, 1) = Time
- .Cells(Pos, 2).Offset(0).Resize(, 9) = .[B2:J2].Value
- End With
- End If
-
- Call timerStart
- End Sub
- Sub timerStart()
- If timerEnabled Then
- ' 第二次(含)以後均以設定之 "間隔時段" 來處理執行序的作業。
- Application.OnTime (Now + Sheets("策略記錄").Range("B8").Value), "ThisWorkbook.Timer"
- Else
- timerEnabled = True
-
- ' 將第一次啟動時間更改為設定 "開盤時間"前，如果開啟 Excel 時，已經過了設定 "開盤時間"，則一進入系統即直接去執行紀錄作業。
- If (TimeValue(Now) <= Sheets("策略記錄").Range("B6").Value) Then
- Application.OnTime (Sheets("策略記錄").Range("B6").Value), "ThisWorkbook.Timer"
- Else
- ' 系統剛連上 DDE 至資料匯入Excel工作表單，須有一個緩衝時段，
- ' 這時如果馬上去抓取DDE資料，會有型態不符的錯誤訊息產生，並中斷執行序的作業。
- Application.OnTime (Now + TimeValue("00:00:05")), "ThisWorkbook.Timer"
- End If
- End If
- End Sub
3. 以上完成後，先將本專案儲存並離開。
4. 接下來先打開券商軟體
(譬如：你製作的工作表單是跟哪一家券商連線的，如 EasyWin、eLeader、或其他券商連線軟體)，
然後啟動你製作的 "自動記錄每分鐘委買賣均值" Excel，並同時連上券商連線軟體，就大功告成了！
希望它能助益於你，並能幫助你更上一層樓。 |
|
|
|
|
|
|
|
- 帖子
- 44
- 主題
- 1
- 精華
- 0
- 積分
- 78
- 點名
- 0
- 作業系統
- WIN XP
- 軟體版本
- SP3
- 閱讀權限
- 20
- 性別
- 男
- 來自
- taipei
- 註冊時間
- 2012-5-4
- 最後登錄
- 2014-4-24
|
22#
發表於 2012-6-26 20:02
| 只看該作者
回復 23# c_c_lai
收到,謝謝您熱心的分享,祝您財源滾滾... |
|
|
stock
|
|
|
|
|
- 帖子
- 18
- 主題
- 1
- 精華
- 0
- 積分
- 34
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- winxp
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-3-11
- 最後登錄
- 2012-10-5
|
23#
發表於 2012-9-19 02:20
| 只看該作者
|
請教c_c_lai,可以傳給我此檔嗎? thanks a lot! |
|
|
|
|
|
|
|
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
24#
發表於 2012-9-19 08:16
| 只看該作者
回復 25# steveyeh168
沒 E-Mail Address 如何寄給你？ |
|
|
|
|
|
|
|
- 帖子
- 18
- 主題
- 1
- 精華
- 0
- 積分
- 34
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- winxp
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-3-11
- 最後登錄
- 2012-10-5
|
25#
發表於 2012-9-23 02:35
| 只看該作者
本帖最後由 GBKEE 於 2013-9-8 20:23 編輯
謝謝C_C_lai......
**************
再次感謝~*_*
這是公開的論壇,個人的Mail,請在個人資料裡顯示 |
|
|
|
|
|
|
|
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
26#
發表於 2012-9-23 05:59
| 只看該作者
謝謝C_C_lai......
再次感謝~*_*
steveyeh168 發表於 2012-9-23 02:35 
 自動記錄每分鐘委買賣均值.rar (13.96 KB)
|
|
|
|
|
|
|
|
- 帖子
- 18
- 主題
- 1
- 精華
- 0
- 積分
- 34
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- winxp
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-3-11
- 最後登錄
- 2012-10-5
|
27#
發表於 2012-9-25 01:39
| 只看該作者
我是小學生,收不到,可以麻煩寄到email 信箱嗎?
再次感謝...... |
|
|
|
|
|
|
|
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
28#
發表於 2012-9-25 05:16
| 只看該作者
我是小學生,收不到,可以麻煩寄到email 信箱嗎?
再次感謝......
steveyeh168 發表於 2012-9-25 01:39
已寄到你 email 信箱數日了，難道沒收信嗎? |
|
|
|
|
|
|
|
- 帖子
- 18
- 主題
- 1
- 精華
- 0
- 積分
- 34
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- winxp
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-3-11
- 最後登錄
- 2012-10-5
|
29#
發表於 2012-9-26 16:55
| 只看該作者
Dear C_C lai:我每天都有收信,而且我怕yahoo會歸為垃圾信,還到垃圾信件區去看
都沒有,可以麻煩再寄一次嗎? 甘恩~ |
|
|
|
|
|
|
|
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
30#
發表於 2012-9-26 19:25
| 只看該作者
Dear C_C lai:我每天都有收信,而且我怕yahoo會歸為垃圾信,還到垃圾信件區去看
都沒 ...
steveyeh168 發表於 2012-9-26 16:55
自動記錄每分鐘委買賣均值.rar (上次 E-Mail 時間：2012/9/23 (週日) 6:05 AM)
你回覆時沒點按 "回復鍵" 我是收不到的，
幸虧我無意看到了你的發文。
再收收看！ |
|
|
|
|
|
|
|
