[原創]等價K線交易之VBA（虧本大甩賣）!哈哈　[金字塔]

i = 0
open = 0
m = 0
k = 0
j = 0
dtyl = 0
ktyl = 0
qj = 5   //根據自己需要修改

mj1close = 0
mj2close = 0

Sub dengjiaxian()
    ' 得到框架名稱為"Technic"，窗格名稱為"Main"的窗格對象
    Set Grid = Technic.GetGridByName("Main")
    set minutedata = Grid.GetMinuteData
    Count =  minutedata.Count
    open = minutedata.newprice(0)
    mj1close = minutedata.newprice(0)
    mj2close = minutedata.newprice(0)

    for i = 1 to count-1
        close = minutedata.newprice(i)
        if close > open and close-open > qj then
           open = close
           if m = 0 then dtdbyk = 0 else dtdbyk = mj2close-close
           if m = 0-1 or m = 0 then
              mj1close = close
              dtyl = dtyl+dtdbyk
              application.MsgOut Date &" " &Time&" "& "第"&i+1&"筆"&" "&"多："&" "&close&" "&"單筆盈利"&" "&" "&dtdbyk&" "& "當日空頭累計盈利為：" &dtyl
              j = j+1
           end if
           m = 1
        elseif   close < open and open-close > qj then
           open = close
           if m = 0 then dtdbyk = 0 else ktdbyk = close - mj1close
           if m = 1 or m = 0 then
              mj2close = close
              ktyl = ktyl+ktdbyk
              application.MsgOut Date &" " &Time&" "& "第"&i+1&"筆"&" "&"空："&" "&close&" "&"單筆盈利"&" "&" "&ktdbyk&" "&"當日多頭累計盈利為：" &ktyl
              k = k+1
           end if
           m = 0-1
        end if
     next
End Sub

Sub APPLICATION_VBAStart()
 call Application.SetTimer(0,100) '創建一個0號定時器，間隔時間1秒
End Sub

Sub APPLICATION_Timer(ID)
    '定時器事件處理
     Application.ActivateFrame "Technic" '確保技術分析主框架處于激活狀態
    
    ' 得到框架名稱為"Technic"，窗格名稱為"Main"的窗格對象
    Set Grid = Technic.GetGridByName("Main")
    set minutedata = Grid.GetMinuteData
    Count =  minutedata.Count
        close = minutedata.newprice(Count-1)
     if Count-1 > i then  
        if close > open and close-open > qj then
           open = close
           if m = 0 then dtdbyk = 0 else dtdbyk = mj2close-close
           if m = 0-1 or m = 0 then
              mj1close = close
              dtyl = dtyl+dtdbyk
              application.MsgOut Date &" " &Time&" "& "第"&i+1&"筆"&" "&"多："&" "&close&" "&"單筆盈利"&" "&" "&dtdbyk&" "& "當日空頭累計盈利為：" &dtyl
              application.MsgOut Date &" " &Time&" "& "多頭" &j& "次" &" "& "多頭盈利" &ktyl& "點"&" "& "空頭" &k& "次"&" "& "空頭盈利" &dtyl& "點" &" "& "總計" &k+j& "次"&" "& "總盈利" &ktyl+dtyl& "點"
              j = j+1
           end if
           m = 1
        elseif   close < open and open-close > qj then
           open = close
           if m = 0 then dtdbyk = 0 else ktdbyk = close - mj1close
           if m = 1 or m = 0 then
              mj2close = close
              ktyl = ktyl+ktdbyk
              application.MsgOut Date &" " &Time&" "& "第"&i+1&"筆"&" "&"空："&" "&close&" "&"單筆盈利"&" "&" "&ktdbyk&" "&"當日多頭累計盈利為：" &ktyl
              application.MsgOut Date &" " &Time&" "& "多頭" &j& "次" &" "& "多頭盈利" &ktyl& "點"&" "& "空頭" &k& "次"&" "& "空頭盈利" &dtyl& "點" &" "& "總計" &k+j& "次"&" "& "總盈利" &ktyl+dtyl& "點"
              k = k+1
           end if
           m = 0-1
        end if      
     end if
End Sub

sub rnjy()
    call dengjiaxian()
    call APPLICATION_Timer(ID)
End Sub  

思路

第一次運行宏的時候利用歷史數據給出一個結果。

然后根據實際情況給出實時的結果

提示：我這里已經構架了整體的思路，只是沒有寫交易指令部分。有需要的朋友，直接添加VBA交易指令即可交易！

這里只提供研究交流思路，模型不保證盈利！

好貴哦 能便宜點嗎 啊哈哈