[發問] 如何在股價圖下方應用 VBA 增列一拉霸？

帖子: 75
主題: 1
精華: 0
積分: 371
點名: 1
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2024-11-11

2^#

發表於 2012-5-14 08:35 | 只看該作者

回復 1# c_c_lai
參考教學

http://davidpu.pixnet.net/blog/post/25682509-%E8%A3%BD%E4%BD%9C%E5%8F%AF%E6%8D%B2%E5%8B%95%E5%92%8C%E7%B8%AE%E6%94%BE%E7%9A%84-excel-%E8%82%A1%E7%A5%A8%E5%9C%96-(%E4%BA%8C)---

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

3^#

發表於 2012-5-14 09:40 | 只看該作者

回復 2# f3202
謝謝您！
因為我的每張圖表都是動態產生的，所以我才想在每個圖表下方均各自動態配置一組拉霸，而非靜態(預先就已經產生)的，
不過您提共的網站內容非常的棒，謝謝您的分享！

alexliou

帖子: 51
主題: 0
精華: 0
積分: 81
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-3-9
最後登錄: 2013-1-9

4^#

發表於 2012-5-14 14:21 | 只看該作者

本帖最後由 alexliou 於 2012-5-14 14:31 編輯

回復 3# c_c_lai
製作 Scrolling Chart時
重點是把ScrollBar的Value 和圖表的資料來源的位置連在一起

當ScrollBar 的Change事件發生時
圖表就必須將資料來源重設一次

附件中檔案有一個利用長短均線值來決定買賣訊號的K線圖,
其中有兩個重點:
1. 因為資料量很多, 都放在一張圖裡會顯得很擁擠, 所以一張圖裡限定只放150根K棒
K線圖下設計了一個捲軸, 讓使用者可以捲動捲軸來檢視不同時期的資料
2. 當有買賣訊號出現時, K棒上會出現"買進"或"賣出"的標籤
但當捲軸移動時,這些標籤也要跟著移動

均線策略測試環境1.zip (155.06 KB)

Alex

alexliou

帖子: 51
主題: 0
精華: 0
積分: 81
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-3-9
最後登錄: 2013-1-9

5^#

發表於 2012-5-14 15:56 | 只看該作者

另一種版本
圖停留在WorkSheet中
差別在Scroll Event Handler 中加入某些環境變數的設定

均線策略測試環境2.zip (170.24 KB)

Alex

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

6^#

發表於 2012-5-14 16:55 | 只看該作者

回復 4# alexliou
Alex 兄，
許久沒聯絡了，謝謝您的分享，受益良多，
裡頭裏有不錯的處裡方法，蠻值得探討的，
這也是我近月來開始接觸 Excel 及 VBA 很棒的臨床實驗，
在此言謝了！
(請教您'長均線'是回溯多久，您是怎麼處裡數據的？)

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

7^#

發表於 2012-5-14 18:18 | 只看該作者

回復 5# alexliou
我把 DataLabel 小改了一下，效果還不錯，請參考：

If .DataLabel.Text = "多單平倉" Or .DataLabel.Text = "賣出空單" Then
.DataLabel.Text = .DataLabel.Text & Chr(10) & Format(Cells(i, 5).Value, "###0") ' ********* 小改了一下 **********
ActiveChart.SeriesCollection(4).Points(i - StartKBarRow + 1).MarkerStyle = xlMarkerStyleStar
ActiveChart.SeriesCollection(4).Points(i - StartKBarRow + 1).MarkerSize = 10
.DataLabel.position = XlDataLabelPosition.xlLabelPositionBelow
ElseIf .DataLabel.Text = "空單平倉" Or .DataLabel.Text = "買進多單" Then
.DataLabel.Text = .DataLabel.Text & Chr(10) & Format(Cells(i, 5).Value, "###0") ' ********* 小改了一下 **********
ActiveChart.SeriesCollection(4).Points(i - StartKBarRow + 1).MarkerStyle = xlMarkerStyleTriangle
ActiveChart.SeriesCollection(4).Points(i - StartKBarRow + 1).MarkerSize = 8
.DataLabel.position = XlDataLabelPosition.xlLabelPositionAbove
End If

複製代碼

alexliou

帖子: 51
主題: 0
精華: 0
積分: 81
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-3-9
最後登錄: 2013-1-9

8^#

發表於 2012-5-14 20:52 | 只看該作者

本帖最後由 alexliou 於 2012-5-14 20:59 編輯

回復 6# c_c_lai
上傳的程式是整個均線策略回測器Project的一部份
它的功能僅處理繪製K線圖

股價的基本資料放在Access 資料庫裡 (也是靠VBA從網路上擷取而來)
可以根據某個UserForm 或某些Cell的內容決定要Load
哪一個商品哪一段期間的資料進來
這可以用一個Sub來處理

長短期均線是根據基本資料來計算
要用多少天的移動平均也可以根據某個UserForm 或某些Cell的內容來決定
這個例子用的是四日和五十日(隨便設的)
移動平均的計算可以用另一個Sub來處理

買賣訊號根據移動平均線的狀況來決定
例如當短期均線上穿長期均線則產生"買進"訊號
反之則"賣出"
這可以用另一個Sub來處理
....
....
....

Alex

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

9^#

發表於 2012-5-14 21:39 | 只看該作者

回復 8# alexliou
以往在職場時常使用 PostgreSQL以及MS SQL，說真格的我還沒用過Acess，有空時我會來試試它，
目前我是將資料直接存放在Excel表單內做測試。藉由練習以了解 VBA 及 Excel 的資料處理與應用。
謝謝您的幫助，今後如有不解之處還需再來打擾您了！

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

10^#

發表於 2012-5-15 07:48 | 只看該作者

回復 8# alexliou
請問由 VBA 產生的 ScrollBar 的 Event Handler 如何命名？例如：Private Sub ScrollBar1_Change() ~ End Sub
但是加入 ScrollBar1_Change() 後並未起任何作用？應該要使用 Private Sub ScrollBar???_Change()？
附上測試檔案，謝謝指教！

請教拉霸事件產生器.rar (10.03 KB)