如何將台指期的每一分鐘資料都紀錄在sheet 1裡..請教版上高手前輩~~

n8975067

小學生 Rank: 1

帖子: 17
主題: 1
精華: 0
積分: 19
點名: 0
作業系統: VISTA
軟體版本: OFFICE2003
閱讀權限: 10
註冊時間: 2013-4-12
最後登錄: 2013-4-30

63^# 跳轉到 »

發表於 2013-4-19 11:23 | 只看該作者

回復 4# c_c_lai
請教 c_c_lai大大
若我要每五分鐘紀錄期貨的委買口數委賣口數委買筆數委賣筆數委買均口委賣均口等即時資料，我要如何修改裡面的變數?

TOP

cfuxiong

中學生 Rank: 2

帖子: 93
主題: 18
精華: 0
積分: 111
點名: 0
作業系統: XP
軟體版本: OFFICE
閱讀權限: 20
性別: 男
來自: 台灣‧高雄
註冊時間: 2010-10-22
最後登錄: 2023-3-3

論壇贊助勳章

62^#

發表於 2013-1-20 20:42 | 只看該作者

回復 55# devidlin
To devidlin:量態的計算方式，在[DDE報價]表格..就可看出。
[圖表區]可按[右鍵]從[來源資料]就可看出端倪。
我是新手..是從版上高手文章檔案併湊而成~~
這是我知的範圍答覆你，也請版上高手能幫你解答...謝謝!!

50 字節以內
不支持自定義 Discuz! 代碼

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

61^#

發表於 2013-1-20 15:48 | 只看該作者

回復 60# devidlin
你可以將你目前運用的 Excel 檔案上傳，抽時間我幫你看看該如何修正，
每個人都各自有他們運作的模式與喜好、以及獨到見解、策略應用，
切不要完全套用他人的內容全數抄襲，如此使用起來也完全沒有
個人的風格了、亦無個人之成就感。

TOP

devidlin

中學生 Rank: 2

帖子: 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

TOP

c_c_lai