K 線股票圖如何能與主力、散戶、及成交量線共存？ - Excel程式區

c_c_lai

博士班 Rank: 6 Rank: 6

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

11^# 跳轉到 »

發表於 2013-5-10 05:13 | 顯示全部帖子

回復 26# ching_0623
E-Mail?

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

12^#

發表於 2013-5-14 06:47 | 顯示全部帖子

回復 28# genes
收收你的 E-Mail.

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

13^#

發表於 2013-6-14 09:33 | 顯示全部帖子

回復 33# loveking53
Check E-Mail.

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

14^#

發表於 2013-6-30 07:52 | 顯示全部帖子

回復 35# heavydog
Check E-Mail.

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

15^#

發表於 2013-7-3 07:47 | 顯示全部帖子

回復 38# vincentfeng17
Check E-Mail.

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

16^#

發表於 2013-7-12 11:28 | 顯示全部帖子

回復 40# ya0325
Check E-Mail.

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

17^#

發表於 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.
否則執行會有錯誤訊息。

text = "股票圖 K 線、主力、散戶、與成交量"
.SetElement (msoElementChartTitleCenteredOverlay)
.ChartTitle.text = text
.ChartTitle.Format.TextFrame2.TextRange.Font.Size = 14
.Legend.Position = xlCorner ' 將圖表圖示從圖表最下方調整到圖表之右上角位置
chartname = Trim(Replace(.Name, .Name, ""))
End With
ActiveSheet.Shapes(chartname).Left = Cells(xRow, yCol).Left ' 設定此圖表實際擺放的 X、Y 座標位置。
ActiveSheet.Shapes(chartname).Top = Cells(xRow, yCol).Top
Range("A1").Select
End Sub

複製代碼

你提及的問題是可以做到的，但須另外加上一些程式碼去動態地處理與管理匯入之資料錄。

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

18^#

發表於 2013-8-21 07:50 | 顯示全部帖子

本帖最後由 c_c_lai 於 2013-8-21 07:56 編輯

回復 45# seemee
以目前本檔案的程式碼內容來論：

ActiveSheet.ChartObjects("圖表 1").Left = Cells(xRow, yCol).Left
ActiveSheet.ChartObjects("圖表 1").Top = Cells(xRow, yCol).Top

複製代碼

ActiveSheet 的前提下，該目前作用 (Active) 之 WorkSheet 必須為 "工作表1"，
如果你切換到 "工作表2" 或者是 "工作表3"，再來執行 drawCharts()，則會有：
執行階段錯誤 '5'
程序呼叫或引數不正確
錯誤訊息。所以此處修改成：

Sheets("工作表1").ChartObjects("圖表 1").Left = Cells(xRow, yCol).Left
Sheets("工作表1").ChartObjects("圖表 1").Top = Cells(xRow, yCol).Top

複製代碼

明確之指定執行的工作表單，則是正確的考量，恭喜你功力又增長了。

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

19^#

發表於 2013-8-21 11:03 | 顯示全部帖子

回復 47# wufonna
Check E-Mail.

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

20^#

發表於 2013-8-21 16:47 | 顯示全部帖子

本帖最後由 c_c_lai 於 2013-8-21 16:53 編輯

回復 49# seemee

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

TOP

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]