返回列表 上一主題 發帖

請問如何改成K棒顯示?

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
1# 跳轉到 »
發表於 2012-5-25 08:36 | 顯示全部帖子
回復 1# mead
XlChartType 列舉
指定圖表類型。
-------------------------------------------------------------
名稱                         值         描述
xlStockOHLC         89         開盤-最高-最低-收盤股價圖
xlStockVHLC         90         成交量-最高-最低-收盤股價圖
xlStockVOHLC         91         成交量-開盤-最高-最低-收盤股價圖
-------------------------------------------------------------
此處的"描述"指的是你必須是上列的組合才能成立建置的條件，例如：
  1.     ActiveSheet.Shapes.AddChart.Select
  2.     With ActiveChart
  3.         .SetSourceData Source:=Range("工作表1!$B$1:工作表1!$B$" & totalRows & ", 工作表1!$C$1:工作表1!$F$" & totalRows)
  4.         .ChartType = xlStockOHLC
  5.         With .ChartGroups(1)
  6.              .AxisGroup = 1
  7.              .UpBars.Format.Fill.ForeColor.RGB = RGB(255, 69, 0)          ' 橘紅色
  8.              .DownBars.Format.Fill.ForeColor.RGB = RGB(0, 250, 170)     ' 淺洋綠色
  9.         End With
  10. . . . . . .
  11. End With
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 2012-5-25 20:44 | 顯示全部帖子
回復 3# mead
XlChartType 列舉的圖表類型只是告訴你，如果要繪製出股票圖的話就必須要有上述的組合條件才能形成，
就你目前的三個標題： 多空力道、反向勢力、主力控盤，其本身數據都是單向數列，構不成股票圖的組合條件，
只能以一般常用的 xlLine (折線圖) 或者是其它圖型來應用。
如果你真想能以股票圖來表示，你就必須將多空力道、反向勢力、主力控盤等於資料匯入處理同時，分別將其各自的
多空力道、反向勢力、主力控盤等之多空力道開盤價、多空力道最高價、多空力道最低價、多空力道收盤價分別
紀錄並予以匯入至工作表單內(如 #2 的表單附件；成立的條件、以及VBA製作的方法)，如此才能處理股票圖的方案。
如此的說明不知瞭解否？

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2012-5-26 10:41 | 顯示全部帖子
謝謝回覆  感恩
這我了解 !但因我三個欄位都是DDE資料運算出來的  所以在一分鐘內也有O/H/L/C
所以我要 ...
mead 發表於 2012-5-25 22:11

附上如何產生多空力道的 O/H/L/C 之方法，其餘兩項可以另外兩組變數來同時處理(如二之說明)：
(一)
  1. Option Explicit

  3. Dim timerEnabled As Boolean  '
  4. Dim counter As Single        ' 示範用計數器
  5. Dim Ov As Single, Hv As Single, Lv As Single, Cv As Single           ' 開盤價、最高價、最高價、收盤價(成交價) 等設定之變數。
  6. Dim turnKey As Integer   ' 判斷每一輪迴上列變數初始值之設定。
  7. Dim nums As Integer      ' 將每隔 "多少時間" 處理時段，移到此處來處理。

  9. Private Sub Workbook_Open()
  10.     counter = 0

  12.     nums = 30            ' 設定每隔 30 秒處理時段，亦可更改成 10 (每隔 10 秒)、20 (每隔 20 秒)等等。
  13.                          ' 此處不建議使用 1 秒時段來處理，因為還要去求出開盤、最高、最低、成交價。
  14.     timerEnabled = False
  15.     Call timerStart      ' 程式一啟始，便去自動執行 timerStart      
  16. End Sub

  18. Sub timerStart()
  19.     turnKey = 0          ' 每一輪迴盤中初始值之設定。

  21.     If timerEnabled Then
  22.         Application.OnTime (Now), "ThisWorkbook.ExeSelf"
  23.     Else
  24.         ' 系統剛連上 DDE 至資料匯入Excel工作表單，須有一個緩衝時段，這時如果馬上去抓取DDE資料，會有型態不符的錯誤訊息產生，並中斷執行序的作業。
  25.         Application.OnTime (Now + TimeValue("00:00:05")), "ThisWorkbook.ExeSelf"
  26.     End If
  27. End Sub

  29. Sub ExeSelf()
  30.     timerEnabled = True

  32.     If IsError(Sheets("工作表1").Range("E5").Value) Then ' 假設 E5 欄位為多空力道
  33.         Cv = 0
  34.     Else
  35.         Cv = Sheets("工作表1").Range("E5").Value          ' 多空力道成交價
  36.     End If
  37.    
  38.     If (turnKey = 0 Or Ov = 0) Then                     ' 當 turnKey 值為0，表示其為初始值設定。為考量系統剛連上 DDE，
  39.                                                         ' 有時在第一根數值產生時 Ov = Cv 值可能為 0 (IsError()的狀態)。
  40.         Ov = Cv                                         ' 多空力道開盤價初始值設定
  41.         Hv = Cv                                         ' 多空力道最高價初始值設定
  42.         Lv = Cv                                         ' 多空力道最低價初始值設定
  43.     End If
  44.    
  45.     turnKey = turnKey + 1
  46.    
  47.     If (Cv > Hv) Then Hv = Cv                           ' 判斷多空力道最高價
  48.     If (Cv < Lv) Then Lv = Cv                           ' 判斷多空力道最低價

  50.     counter = counter + 1
  51.     [F1].Value = counter    ' 08:45 後每隔 30 秒，請觀察 F1 欄位數字是否會異動？
  52.    
  53.     If (turnKey < nums) Then
  54.         Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.ExeSelf"
  55.     Else
  56.         If (Cv > 0) Then Call Timer
  57.         Call timerStart
  58.     End If
  59. End Sub

  61. Sub Timer()
  62.     Dim str As String
  63.    
  64.     If (TimeValue(Now) >= TimeValue("08:45:00") And TimeValue(Now) <= TimeValue("13:46:01")) Then    ' 開盤、收盤時段設定
  65.         ' 盤中處理，將資料匯入寫入工作表單內儲存。

  67.     End If
  68. End Sub
複製代碼
(二) 改以陣列處理。(1. 多空力道、2. 反向勢力、3. 主力控盤)
  1. Dim Ov(1 To 3), Hv(1 To 3), Lv(1 To 3), Cv(1 To 3) As Single  ' 開盤價、最高價、最高價、收盤價(成交價) 等設定之變數。
  2. .                                                             ' 改以陣列處理。(1. 多空力道、2. 反向勢力、3. 主力控盤)
  3. .
  4. .

  6. Sub ExeSelf()
  7.     timerEnabled = True

  9.     If IsError(Sheets("工作表1").Range("E5").Value) Then ' 假設 E5 欄位為多空力道
  10.         Cv(1) = 0
  11.         Cv(2) = 0
  12.         Cv(3) = 0
  13.     Else
  14.         Cv(1) = Sheets("工作表1").Range("E5").Value    ' 多空力道成交價
  15.         Cv(2) = Sheets("工作表1").Range("I5").Value    ' 反向勢力成交價
  16.         Cv(3) = Sheets("工作表1").Range("M5").Value    ' 主力控盤成交價
  17.     End If
  18.    
  19.     If (turnKey = 0 Or Ov(1) = 0) Then                 ' 當 turnKey 值為0，表示其為初始值設定。為考量系統剛連上 DDE，
  20.                                                        ' 有時在第一根數值產生時 Ov = Cv 值可能為 0 (IsError()的狀態)。
  21.         Ov(1) = Cv(1)                                  ' 多空力道開盤價初始值設定
  22.         Hv(1) = Cv(1)                                  ' 多空力道最高價初始值設定
  23.         Lv(1) = Cv(1)                                  ' 多空力道最低價初始值設定
  24.         Ov(2) = Cv(2)                                  ' 反向勢力開盤價初始值設定
  25.         Hv(2) = Cv(2)                                  ' 反向勢力最高價初始值設定
  26.         Lv(2) = Cv(2)                                  ' 反向勢力最低價初始值設定
  27.         Ov(3) = Cv(3)                                  ' 主力控盤開盤價初始值設定
  28.         Hv(3) = Cv(3)                                  ' 主力控盤最高價初始值設定
  29.         Lv(3) = Cv(3)                                  ' 主力控盤最低價初始值設定
  30.     End If
  31.    
  32.     turnKey = turnKey + 1
  33.    
  34.     If (Cv(1) > Hv(1)) Then Hv(1) = Cv(1)              ' 判斷多空力道最高價
  35.     If (Cv(2) > Hv(2)) Then Hv(2) = Cv(2)              ' 判斷反向勢力最高價
  36.     If (Cv(3) > Hv(3)) Then Hv(3) = Cv(3)              ' 判斷主力控盤最高價

  38.     If (Cv(1) < Lv(1)) Then Lv(1) = Cv(1)              ' 判斷多空力道最低價
  39.     If (Cv(2) < Lv(2)) Then Lv(1) = Cv(2)              ' 判斷反向勢力最低價
  40.     If (Cv(3) < Lv(3)) Then Lv(1) = Cv(3)              ' 判斷主力控盤最低價

  42.     If (turnKey < nums) Then
  43.         Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.ExeSelf"
  44.     Else
  45.         If (Cv(1) > 0) Then Call Timer
  46.         Call timerStart
  47.     End If
  48. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
4#
發表於 2012-5-26 15:59 | 顯示全部帖子
感謝c_c_lai大大的熱心詳細解說  學習了解些了
再請問 c_c_lai 大大  即時比對的O/H/L/C 要如何指定暫存 ...
mead 發表於 2012-5-26 11:57

依你目前的需求來說，要以多空力道、反向勢力、主力控盤的資料列來處理的話，
是有難度，而且我本身是不做這麼處裡的。
一般常見的多以成交價為主圖、成交量、多空力道、反向勢力等為附圖。
也就是說多以 K 線的 O/H/L/C 來處理股價圖，以折線、柱狀圖來輔助附圖。
而且你目前的多空力道、反向勢力、主力控盤的數據均有正負數，我沒試過
股價圖能否處理此正負值的數列。你可以試試看，方法如下：
(1)  假設你設定每隔 30 秒處理資料一筆。 (我之前附上的範例即是)
(2) 假設你設定BCDE欄位為多空力道之O/H/L/C，FGHI欄位為反向勢力之O/H/L/C，JKLM欄位為主力控盤之O/H/L/C。
(3) 我之前附上的範例加以修改成你要的 (想了想還是幫你完成吧！)：
  1. Option Explicit
  2. Dim timerEnabled As Boolean  '
  3. Dim counter As Single        ' 示範用計數器
  4. Dim Ov(1 To 3), Hv(1 To 3), Lv(1 To 3), Cv(1 To 3) As Single  ' 開盤價、最高價、最高價、收盤價(成交價) 等設定之變數。
  5.                                                               ' 改以陣列處理。(1. 多空力道、2. 反向勢力、3. 主力控盤)
  6. Dim turnKey As Integer   ' 判斷每一輪迴上列變數初始值之設定。
  7. Dim nums As Integer      ' 將每隔 "多少時間" 處理時段，移到此處來處理。

  9. Private Sub Workbook_Open()
  10.     counter = 0

  12.     nums = 30            ' 設定每隔 30 秒處理時段，亦可更改成 10 (每隔 10 秒)、20 (每隔 20 秒)等等。
  13.                          ' 此處不建議使用 1 秒時段來處理，因為還要去求出開盤、最高、最低、成交價。
  14.     timerEnabled = False
  15.     Call timerStart      ' 程式一啟始，便去自動執行 timerStart      
  16. End Sub

  18. Sub Timer()
  19.     Dim str As String
  20.    
  21.     If (TimeValue(Now) >= TimeValue("08:45:00") And TimeValue(Now) <= TimeValue("13:46:01")) Then    ' 開盤、收盤時段設定
  22.         ' 盤中處理，將資料匯入寫入工作表單內儲存。

  24.         With Sheets("策略記錄")
  25.             .Cells(4, 2) = .Cells(4, 2) + 1 '將變動行號加一行
  26.             Pos = .Cells(4, 2)
  27.             .Cells(Pos, 1) = Time
  28.             .Cells(Pos, 2) = Ov(1)    ' B 欄
  29.             .Cells(Pos, 3) = Hv(1)    ' C 欄
  30.             .Cells(Pos, 4) = Lv(1)    ' D 欄
  31.             .Cells(Pos, 5) = Cv(1)    ' E 欄
  32.             .Cells(Pos, 6) = Ov(2)    ' F 欄
  33.             .Cells(Pos, 7) = Hv(2)    ' G 欄
  34.             .Cells(Pos, 8) = Lv(2)    ' H 欄
  35.             .Cells(Pos, 9) = Cv(2)    ' I 欄
  36.             .Cells(Pos, 10) = Ov(3)   ' J 欄
  37.             .Cells(Pos, 11) = Hv(3)   ' K 欄
  38.             .Cells(Pos, 12) = Lv(3)   ' L 欄
  39.             .Cells(Pos, 13) = Cv(3)   ' M 欄
  40.         End With
  41.     End If
  42. End Sub

  44. Sub ExeSelf()
  45.     timerEnabled = True

  47.     If IsError(Sheets("策略記錄").Range("B2").Value) Then ' 假設 B2 欄位為多空力道
  48.         Cv(1) = 0
  49.         Cv(2) = 0
  50.         Cv(3) = 0
  51.     Else
  52.         Cv(1) = Sheets("策略記錄").Range("B2").Value   ' 多空力道成交價
  53.         Cv(2) = Sheets("策略記錄").Range("C2").Value   ' 反向勢力成交價
  54.         Cv(3) = Sheets("策略記錄").Range("D2").Value   ' 主力控盤成交價
  55.     End If
  56.    
  57.     If (turnKey = 0 Or Ov(1) = 0) Then                 ' 當 turnKey 值為0，表示其為初始值設定。為考量系統剛連上 DDE，
  58.                                                        ' 有時在第一根數值產生時 Ov = Cv 值可能為 0 (IsError()的狀態)。
  59.         Ov(1) = Cv(1)                                  ' 多空力道開盤價初始值設定
  60.         Hv(1) = Cv(1)                                  ' 多空力道最高價初始值設定
  61.         Lv(1) = Cv(1)                                  ' 多空力道最低價初始值設定
  62.         Ov(2) = Cv(2)                                  ' 反向勢力開盤價初始值設定
  63.         Hv(2) = Cv(2)                                  ' 反向勢力最高價初始值設定
  64.         Lv(2) = Cv(2)                                  ' 反向勢力最低價初始值設定
  65.         Ov(3) = Cv(3)                                  ' 主力控盤開盤價初始值設定
  66.         Hv(3) = Cv(3)                                  ' 主力控盤最高價初始值設定
  67.         Lv(3) = Cv(3)                                  ' 主力控盤最低價初始值設定
  68.     End If
  69.    
  70.     turnKey = turnKey + 1
  71.    
  72.     If (Cv(1) > Hv(1)) Then Hv(1) = Cv(1)              ' 判斷多空力道最高價
  73.     If (Cv(2) > Hv(2)) Then Hv(2) = Cv(2)              ' 判斷反向勢力最高價
  74.     If (Cv(3) > Hv(3)) Then Hv(3) = Cv(3)              ' 判斷主力控盤最高價

  76.     If (Cv(1) < Lv(1)) Then Lv(1) = Cv(1)              ' 判斷多空力道最低價
  77.     If (Cv(2) < Lv(2)) Then Lv(1) = Cv(2)              ' 判斷反向勢力最低價
  78.     If (Cv(3) < Lv(3)) Then Lv(1) = Cv(3)              ' 判斷主力控盤最低價

  80.     If (turnKey < nums) Then
  81.         Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.ExeSelf"
  82.     Else
  83.         If (Cv(1) > 0) Then Call Timer
  84.         Call timerStart
  85.     End If
  86. End Sub

  88. Sub timerStart()
  89.     turnKey = 0          ' 每一輪迴盤中初始值之設定。

  91.     If timerEnabled Then
  92.         Application.OnTime (Now), "ThisWorkbook.ExeSelf"
  93.     Else
  94.         ' 系統剛連上 DDE 至資料匯入Excel工作表單，須有一個緩衝時段，這時如果馬上去抓取DDE資料，會有型態不符的錯誤訊息產生，並中斷執行序的作業。
  95.         Application.OnTime (Now + TimeValue("00:00:05")), "ThisWorkbook.ExeSelf"
  96.     End If
  97. End Sub
複製代碼
(4) 如果有了 O/H/L/C 後，你就照著我最先告訴你的股價圖製作方法，一切便大功告成了！
(5) 正如我在前面說過的：我沒試過股價圖能否處理此正負值的數列，你可以試試看。
     這兒我只是教你怎麼處理人工產生之 O/H/L/C 的竅門而已！

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
5#
發表於 2012-5-27 12:16 | 顯示全部帖子
本帖最後由 c_c_lai 於 2012-5-28 08:01 編輯

回復 14# mead
看了一下你那三合一的程式，我將它整理了一下 (你直接貼上就 OK 了，另外我也會將檔案E-Mail給你)：
  1. ' 以多空力道、反向勢力、主力控盤的資料列來處理
  2. Option Explicit
  3. Dim timerEnabled As Boolean  '
  4. Dim Ov(1 To 3), Hv(1 To 3), Lv(1 To 3), Cv(1 To 3) As Single  ' 開盤價、最高價、最高價、收盤價(成交價) 等設定之變數。
  5.                                                               ' 改以陣列處理。(1. 多空力道、2. 反向勢力、3. 主力控盤)
  6. Dim turnKey As Integer   ' 判斷每一輪迴上列變數初始值之設定。
  7. Dim nums As Integer      ' 將每隔 "多少時間" 處理時段，移到此處來處理。

  9. Private Sub Workbook_Open()
  10.     Sheets("策略記錄").Cells(4, 2) = 10
  11.    
  12.     nums = 30            ' 設定每隔 30 秒處理時段，亦可更改成 30 (每隔 30 秒)、 10 (每隔 10 秒)、20 (每隔 20 秒)等等。
  13.     timerEnabled = False ' 此處不建議使用 1 秒時段來處理，因為還要去求出開盤、最高、最低、成交價。

  15.     Call timerStart      ' 程式一啟始，便去自動執行 timerStart
  16. End Sub

  18. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  19.     On Error Resume Next
  20.     Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer", , False
  21. End Sub

  23. Public Sub Timer()
  24.     Dim Pos As Integer
  25.    
  26.     On Error Resume Next
  27.     ' Sheets("策略記錄").Cells(2, 1) = Time '將時間show至策略的a2欄位
  28.    
  29.      If (TimeValue(Now) >= TimeValue("08:45:00") And TimeValue(Now) <= TimeValue("13:46:01")) Then    ' 開盤、收盤時段設定
  30.         ' 盤中處理，將資料匯入寫入工作表單內儲存。

  32.         With Sheets("策略記錄")
  33.             Cells(4, 2).Value = Cells(4, 2).Value + 1 '將變動行號加一行

  35.             Pos = Cells(4, 2).Value
  36.             
  37.             Cells(Pos, 1).Value = Time
  38.             Cells(Pos, 2).Value = Ov(1)    ' B 欄
  39.             Cells(Pos, 3).Value = Hv(1)    ' C 欄
  40.             Cells(Pos, 4).Value = Lv(1)    ' D 欄
  41.             Cells(Pos, 5).Value = Cv(1)    ' E 欄

  43.             Cells(Pos, 6).Value = Ov(2)    ' F 欄
  44.             Cells(Pos, 7).Value = Hv(2)    ' G 欄
  45.             Cells(Pos, 8).Value = Lv(2)    ' H 欄
  46.             Cells(Pos, 9).Value = Cv(2)    ' I 欄

  48.             Cells(Pos, 10).Value = Ov(3)   ' J 欄
  49.             Cells(Pos, 11).Value = Hv(3)   ' K 欄
  50.             Cells(Pos, 12).Value = Lv(3)   ' L 欄
  51.             Cells(Pos, 13).Value = Cv(3)   ' M 欄
  52.         End With
  53.     End If
  54. End Sub

  56. Sub ExeSelf()
  57.     timerEnabled = True

  59.     If IsError(Sheets("策略記錄").Range("B2").Value) Then ' 假設 B2 欄位為多空力道
  60.         Cv(1) = 0
  61.         Cv(2) = 0
  62.         Cv(3) = 0
  63.     Else
  64.         Cv(1) = Sheets("策略記錄").Range("B2").Value   ' 多空力道成交價
  65.         Cv(2) = Sheets("策略記錄").Range("C2").Value   ' 反向勢力成交價
  66.         Cv(3) = Sheets("策略記錄").Range("D2").Value   ' 主力控盤成交價
  67.     End If

  69.     If (turnKey = 0 Or Ov(1) = 0) Then                 ' 當 turnKey 值為0，表示其為初始值設定。為考量系統剛連上 DDE，
  70.                                                        ' 有時在第一根數值產生時 Ov = Cv 值可能為 0 (IsError()的狀態)。
  71.         Ov(1) = Cv(1)                                  ' 多空力道開盤價初始值設定
  72.         Hv(1) = Cv(1)                                  ' 多空力道最高價初始值設定
  73.         Lv(1) = Cv(1)                                  ' 多空力道最低價初始值設定

  75.         Ov(2) = Cv(2)                                  ' 反向勢力開盤價初始值設定
  76.         Hv(2) = Cv(2)                                  ' 反向勢力最高價初始值設定
  77.         Lv(2) = Cv(2)                                  ' 反向勢力最低價初始值設定

  79.         Ov(3) = Cv(3)                                  ' 主力控盤開盤價初始值設定
  80.         Hv(3) = Cv(3)                                  ' 主力控盤最高價初始值設定
  81.         Lv(3) = Cv(3)                                  ' 主力控盤最低價初始值設定
  82.     End If

  84.     turnKey = turnKey + 1

  86.     If (Cv(1) > Hv(1)) Then Hv(1) = Cv(1)              ' 判斷多空力道最高價
  87.     If (Cv(2) > Hv(2)) Then Hv(2) = Cv(2)              ' 判斷反向勢力最高價
  88.     If (Cv(3) > Hv(3)) Then Hv(3) = Cv(3)              ' 判斷主力控盤最高價

  90.     If (Cv(1) < Lv(1)) Then Lv(1) = Cv(1)              ' 判斷多空力道最低價
  91.     If (Cv(2) < Lv(2)) Then Lv(1) = Cv(2)              ' 判斷反向勢力最低價
  92.     If (Cv(3) < Lv(3)) Then Lv(1) = Cv(3)              ' 判斷主力控盤最低價

  94.     If (turnKey < nums) Then
  95.         Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.ExeSelf"
  96.     Else
  97.         If (Cv(1) <> 0) Then Call Timer
  98.         ' Call Timer
  99.         Call timerStart
  100.     End If
  101. End Sub

  103. Sub timerStart()
  104.     turnKey = 0          ' 每一輪迴盤中初始值之設定。

  106.     If timerEnabled Then
  107.         ' Application.OnTime (Now), "ThisWorkbook.ExeSelf"      
  108.        [color=Red]Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.timerOnTimer"[/color]
  109.     Else
  110.         ' 系統剛連上 DDE 至資料匯入Excel工作表單，須有一個緩衝時段，這時如果馬上去抓取DDE資料，會有型態不符的錯誤訊息產生，並中斷執行序的作業。
  111.         Application.OnTime (Now + TimeValue("00:00:05")), "ThisWorkbook.ExeSelf"
  112.     End If
  113. End Sub
複製代碼
有關設定間格時段可依個人需求而設置 (個人是選擇 B、或 C， B 是寫死在程式內， C 可從工作表單內之"A5"欄位依個人需求去外部更改)
(A) LastMin = Hour(Time) * 3600 + Minute(Time) * 60 + Second(Time) 是求出現在時間之換算值，
      如：現在是 11:25:10， 則 LastMin = 41110 秒；
(B) 範例中的 nums = 30， 是直接設定為 30 秒；
(C) 設定一固定欄位 (假設為 "A5")，其欄位值直接輸入 00:00:30。
      nums = Hour(Cells(5,1).Value) * 3600 + Minute(Cells(5,1).Value) * 60 + Second(Cells(5,1).Value)
     則 nums =  30 秒。   
P.S. 如果你想要靈活運作的話， 可選擇 C 項，較有彈性， A 項程式碼在處理上會無謂的增大
       (如加上多少時間再去判對比較，然後又再求得目前時間等)。
附上程式執行畫面共擬參考：

0526元大記錄量態OHLC.rar (22.53 KB)

TOP

        靜思自在 : 願要大、志要堅、氣要柔、心要細。
返回列表 上一主題