12345678
返回列表 上一主題 發帖

[發問] K 線股票圖如何能與主力、散戶、及成交量線共存？

seemee

帖子
93 
主題
15 
精華
0 
積分
111 
點名
0  
作業系統
win7 
軟體版本
Office 2010 X86 
閱讀權限
20 
性別
男 
註冊時間
2012-7-3 
最後登錄
2020-12-3 
52# 跳轉到 »
發表於 2013-8-21 16:53 | 只看該作者
回復 51# c_c_lai


    我只是想參考一下有沒有更穩定的DDE程式
   現在也不可能租一條專線 (沒錢)

大大  下面這個問題請看一下

  .Legend.Position = xlCorner                         ' 將圖表圖示從圖表最下方調整到圖表之右上角位置

   xlCorner        我找不到這個參數是從哪裡來的
  找到這個  
   xlLegendPositionBottom -4107 圖表下方
xlLegendPositionCorner 2 位於圖表框線的右上角
xlLegendPositionCustom -4161 自訂位置
xlLegendPositionLeft -4131 圖表左邊
xlLegendPositionRight -4152 圖表右邊
xlLegendPositionTop -4160 圖表上方

把 xlCorner 改成數字(-4152) 之類的位置就可以改變  但xlCorner是從哪裡得知的

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
51#
發表於 2013-8-21 16:47 | 只看該作者
本帖最後由 c_c_lai 於 2013-8-21 16:53 編輯

回復 49# seemee

原本此檔案是實際連結 DDE 的資料匯入、分析處理及統計圖表之演示，
因要論及 "K 線股票圖如何能與主力、散戶、及成交量線共存？"
之主題而從中將此議題有關部分內容拆解出來的。
資料錄是以每20秒記錄一筆 (即每20秒最後之開盤價、最高價、最低價、成交價、成交量、主力介入、散戶方向)
而統計圖表亦是每隔20秒動態自動更新。
資料錄相隔時間的差異端視當事人之個人觀點與盤中便利觀察及判斷而定，
沒有絕對之標準可言，常聽到 "輸贏見真章"，你訂立的策略此時賺了，
那便是事實；反之、此策略在某時段操作不幸慘敗，那也是不爭之實。
就看你怎麼去思考了！

TOP

wufonna

帖子
161 
主題
26 
精華
0 
積分
187 
點名
0  
作業系統
xp 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
TW 
註冊時間
2011-1-2 
最後登錄
2022-2-16 
50#
發表於 2013-8-21 16:38 | 只看該作者
謝謝 c_c_lai  大大 ^_^

TOP

seemee

帖子
93 
主題
15 
精華
0 
積分
111 
點名
0  
作業系統
win7 
軟體版本
Office 2010 X86 
閱讀權限
20 
性別
男 
註冊時間
2012-7-3 
最後登錄
2020-12-3 
49#
發表於 2013-8-21 15:48 | 只看該作者
回復 46# c_c_lai


    新問題又來了.
   .Legend.Position = xlCorner                         ' 將圖表圖示從圖表最下方調整到圖表之右上角位置

   xlCorner        我找不到這個參數是從哪裡來的
  找到這個  
   xlLegendPositionBottom -4107 圖表下方
xlLegendPositionCorner 2 位於圖表框線的右上角
xlLegendPositionCustom -4161 自訂位置
xlLegendPositionLeft -4131 圖表左邊
xlLegendPositionRight -4152 圖表右邊
xlLegendPositionTop -4160 圖表上方

把 xlCorner 改成數字(-4152) 之類的位置就可以改變  但xlCorner是從哪裡得知的

再多問一個問題
我看你的 數據是二十秒截取一次 應該是用DDE吧?
請問你一次截取多少格的數據  會不會有延遲的問題?
我用凱基大三元 截取 24X300 個數據  好像不是很順 有什麼好建議呢?

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
48#
發表於 2013-8-21 11:03 | 只看該作者
回復 47# wufonna
Check E-Mail.

TOP

wufonna

帖子
161 
主題
26 
精華
0 
積分
187 
點名
0  
作業系統
xp 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
TW 
註冊時間
2011-1-2 
最後登錄
2022-2-16 
47#
發表於 2013-8-21 10:19 | 只看該作者
c_c_lai 大大
很棒的檔案，可以分享來研究嗎，小學生，謝謝
[email protected]

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
46#
發表於 2013-8-21 07:50 | 只看該作者
本帖最後由 c_c_lai 於 2013-8-21 07:56 編輯

回復 45# seemee
以目前本檔案的程式碼內容來論：
  1.     ActiveSheet.ChartObjects("圖表 1").Left = Cells(xRow, yCol).Left
  2.     ActiveSheet.ChartObjects("圖表 1").Top = Cells(xRow, yCol).Top
複製代碼
ActiveSheet 的前提下，該目前作用 (Active) 之 WorkSheet 必須為 "工作表1"，
如果你切換到 "工作表2" 或者是 "工作表3"，再來執行 drawCharts()，則會有：
          執行階段錯誤 '5'
          程序呼叫或引數不正確
錯誤訊息。 所以此處修改成：
  1.     Sheets("工作表1").ChartObjects("圖表 1").Left = Cells(xRow, yCol).Left
  2.     Sheets("工作表1").ChartObjects("圖表 1").Top = Cells(xRow, yCol).Top
複製代碼
明確之指定執行的工作表單，則是正確的考量，恭喜你功力又增長了。

TOP

seemee

帖子
93 
主題
15 
精華
0 
積分
111 
點名
0  
作業系統
win7 
軟體版本
Office 2010 X86 
閱讀權限
20 
性別
男 
註冊時間
2012-7-3 
最後登錄
2020-12-3 
45#
發表於 2013-8-20 20:48 | 只看該作者
回復 43# c_c_lai

動了動了
Sheets("工作表1").ChartObjects("圖表 1").Left  = Cells(xRow, yCol).Left   
改成這樣就可以動了..

   謝謝前輩指教

TOP

seemee

帖子
93 
主題
15 
精華
0 
積分
111 
點名
0  
作業系統
win7 
軟體版本
Office 2010 X86 
閱讀權限
20 
性別
男 
註冊時間
2012-7-3 
最後登錄
2020-12-3 
44#
發表於 2013-8-20 20:44 | 只看該作者
回復 43# c_c_lai


    不瞞你說  很多語法都剪剪貼貼的 很多語法 看不太懂
   我照你說的把chartname 改位置了..
但是圖表位置 不會動A
於是我改了最後兩行  還是不會動  麻煩幫我看一下
  1.         chartname = Trim(Replace(.Name, .Name, ""))
  2.     End With
  3.    
  4.    
  5.     Sheets("工作表1").Shapes(chartname).Left = Cells(xRow, yCol).Left     ' 設定此圖表實際擺放的 X、Y 座標位置。
  6.     Sheets("工作表1").Shapes(chartname).Top = Cells(xRow, yCol).Top
  7.    
  8.     Range("A1").Select
  9. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
43#
發表於 2013-8-20 19:26 | 只看該作者
回復  c_c_lai


    請教一下
   我把其中語法改成  with Sheets("工作表1").ChartObjects("圖表 1") ...
seemee 發表於 2013-8-20 17:47

如果改成  with Sheets("工作表1").ChartObjects("圖表 1") .Chart，請將 chartname 移動位置，並加以修改 ActiveChart.Name -> .Name.
否則執行會有錯誤訊息。
  1.         text = "股票圖 K 線、主力、散戶、與成交量"
  2.         
  3.         .SetElement (msoElementChartTitleCenteredOverlay)
  4.         .ChartTitle.text = text
  5.         .ChartTitle.Format.TextFrame2.TextRange.Font.Size = 14
  6.         .Legend.Position = xlCorner                         ' 將圖表圖示從圖表最下方調整到圖表之右上角位置
  7.         chartname = Trim(Replace(.Name, .Name, ""))
  8.     End With
  9.    
  10.     ActiveSheet.Shapes(chartname).Left = Cells(xRow, yCol).Left     ' 設定此圖表實際擺放的 X、Y 座標位置。
  11.     ActiveSheet.Shapes(chartname).Top = Cells(xRow, yCol).Top
  12.    
  13.     Range("A1").Select
  14. End Sub
複製代碼
你提及的問題是可以做到的，但須另外加上一些程式碼去動態地處理與管理匯入之資料錄。

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
12345678
返回列表 上一主題