如何將台指期的每一分鐘資料都紀錄在sheet 1裡..請教版上高手前輩~~
- 帖子
- 93
- 主題
- 18
- 精華
- 0
- 積分
- 111
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- OFFICE
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣‧高雄
- 註冊時間
- 2010-10-22
- 最後登錄
- 2023-3-3
|
回復 50# c_c_lai
c_c_lai你好；是的...我是連結網頁的，理論上是可以，
只要抓網頁與DDE連結時不要同時間，應可改善搶頻寬的問題。
明天實測再告訴你..晚安!! EMail：cfuxiong@gmail.com |
|
|
50 字節以內
不支持自定義 Discuz! 代碼
|
|
|
|
|
- 帖子
- 93
- 主題
- 18
- 精華
- 0
- 積分
- 111
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- OFFICE
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣‧高雄
- 註冊時間
- 2010-10-22
- 最後登錄
- 2023-3-3
|
52#
發表於 2012-12-28 19:34
| 只看該作者
回復 50# c_c_lai
c_c_lai大；晚安你好
經5天的實測[DDE+網頁]是OK的。再次謝謝您這麼熱心的幫忙。 |
|
|
50 字節以內
不支持自定義 Discuz! 代碼
|
|
|
|
|
- 帖子
- 2
- 主題
- 0
- 精華
- 0
- 積分
- 7
- 點名
- 0
- 作業系統
- windowxp
- 軟體版本
- office2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2013-1-7
- 最後登錄
- 2015-7-23
|
53#
發表於 2013-1-8 08:57
| 只看該作者
很實用，感謝您提供詳細的內容 |
|
|
|
|
|
|
|
- 帖子
- 58
- 主題
- 3
- 精華
- 0
- 積分
- 66
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-5-21
- 最後登錄
- 2019-2-26
|
54#
發表於 2013-1-19 10:40
| 只看該作者
回復 20# cfuxiong
請問c大，態量.xls檔案內的 圖表區程式碼要如何寫出來?謝謝。 |
|
|
devidlin
|
|
|
|
|
- 帖子
- 58
- 主題
- 3
- 精華
- 0
- 積分
- 66
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-5-21
- 最後登錄
- 2019-2-26
|
55#
發表於 2013-1-19 10:42
| 只看該作者
回復 13# cfuxiong
請問c大，態量.xls檔案內的 圖表區程式碼要如何寫出來?謝謝。 |
|
|
devidlin
|
|
|
|
|
- 帖子
- 58
- 主題
- 3
- 精華
- 0
- 積分
- 66
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-5-21
- 最後登錄
- 2019-2-26
|
56#
發表於 2013-1-19 20:30
| 只看該作者
回復 21# c_c_lai
請問c大，態量.xls檔案內的 圖表區程式碼要如何寫出來?謝謝。 |
|
|
devidlin
|
|
|
|
|
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
57#
發表於 2013-1-20 05:28
| 只看該作者
回復 c_c_lai
請問c大，態量.xls檔案內的 圖表區程式碼要如何寫出來?謝謝。
devidlin 發表於 2013-1-19 20:30 
態量.xls 在哪裡？請上傳檔案看看！ |
|
|
|
|
|
|
|
- 帖子
- 58
- 主題
- 3
- 精華
- 0
- 積分
- 66
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-5-21
- 最後登錄
- 2019-2-26
|
58#
發表於 2013-1-20 07:55
| 只看該作者
|
|
devidlin
|
|
|
|
|
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
59#
發表於 2013-1-20 11:02
| 只看該作者
|
|
|
|
|
|
|
- 帖子
- 58
- 主題
- 3
- 精華
- 0
- 積分
- 66
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-5-21
- 最後登錄
- 2019-2-26
|
60#
發表於 2013-1-20 13:43
| 只看該作者
回復 57# c_c_lai
小弟比較愚笨，程式碼如下，如果說在圖表區要增加台指期每分鐘之價格邀如何修改?謝謝。
Option Explicit
Dim LastMin As Integer
Private Sub Workbook_Open()
Sheets("策略記錄").Cells(4, 2) = 10
LastMin = Minute(Time)
Call Timer
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer", , False
End Sub
Public Sub Timer()
Dim Pos As Integer, i As Integer, RangeStr As String
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer" '每秒顯示
Sheets("策略記錄").Cells(3, 2) = Time '將時間show至策略的b3欄位
Dim HHMM As Integer
HHMM = Hour(Time) * 100 + Minute(Time)
If (HHMM < 845 Or HHMM > 2045) Then Exit Sub '營業時間才執行
If Minute(Time) <> LastMin Then '開始後做
With Sheets("策略記錄")
.Cells(4, 2) = .Cells(4, 2) + 1 '將變動行號加一行
Pos = .Cells(4, 2)
.Cells(Pos, 1) = Time
.Cells(Pos, 2) = .Cells(2, 2)
.Cells(Pos, 3) = .Cells(2, 3)
.Cells(Pos, 4) = .Cells(2, 4)
.Cells(Pos, 5) = .Cells(2, 5)
.Cells(Pos, 6) = .Cells(2, 6)
.Cells(Pos, 7) = .Cells(2, 7)
.Cells(Pos, 8) = .Cells(2, 8)
.Cells(Pos, 9) = .Cells(2, 9)
.Cells(Pos, 10) = .Cells(2, 10)
.Cells(Pos, 11) = .Cells(2, 11)
End With
LastMin = Minute(Time)
End If
End Sub |
|
|
devidlin
|
|
|
|
|
