[算表] VBA合併繪圖

作者: jasonhsu14 (小健人)   2017-12-27 17:23:31
軟體:Excel
版本:2003
大家好,不才小弟我希望繪製K線圖,並在圖上特定價格標示出來
先附上資料圖與目前的繪圖結果
https://imgur.com/NL5NJYW
A就是我欲放在下方橫軸的日期
B~E就是繪製K線圖所用的資料
而H跟I則是我欲在K圖上標示出來的特定價格
叉叉是對應H欄位的資料、菱形是對應I欄
目前碰到最大的第一個問題是1
0/19的價格2是沒有價格的,照理說10/19的K線不該出現菱形,但卻出現在10/19了....
初步觀察覺得是因為I2是第一筆資料
而第一筆資料又是空白欄位,所以程式會自動尋找有值的資料(I3),做為第一筆資料
但我希望第一筆資料若是空白時,會直接跳到下一天,而非尋找有值的資料當第一筆
下圖為我的程式碼
https://imgur.com/Tm1L9mU
我的程式主要順序為,先製作K線圖,再加入XY散布圖,最後再設定橫軸日期與縱軸範圍
想麻煩各位版友協助,為避免出現上述10/20的資料在圖上跑到10/19去的問題
程式上我有甚麼地方需要修改
另外,第二個問題想請教最下面出現錯誤的那邊,是因為版本2003而出錯嗎?
因為我印象中,同樣的寫法套用在2010沒出錯
若是的話,可以如何修改?
補充:Cells(36,"C")與Cells(35,"C")分別為K線圖資料中的最小值與最大值
再請教第三與第四個問題,AxisGroup應該是指我將該Collection也併入主圖吧?
設定橫軸日期與縱軸範圍的順序是否會影響畫圖出來的結果?
因為我若先設定縱軸範圍與橫軸日期再繪K圖也有出錯...
上述問題有點多,還先謝謝協助處理的版友們,謝謝
若版大們有更好的寫法希望可供參考
作者: soyoso (我是耀宗)   2017-12-27 18:41:00
問題二,如出現為型態不符合,錯誤13https://i.imgur.com/qmQ7ldl.png 的話,可在最小值與最大上方各加上chart.select試試,測試上暫無產生錯誤問題1為將儲存格i2當成標籤了,可於seriescollection.add後面加上參數serieslabels為false
作者: jasonhsu14 (小健人)   2017-12-27 19:29:00
那想詢問一下,把i2當標籤的話,為甚麼H2卻沒這問題?
作者: soyoso (我是耀宗)   2017-12-27 19:35:00
指定h欄和i欄範圍的第一筆為h2,i2分別為數字和空白儲存格是否excel因此而判斷上將i2當標籤,這方面可測試看看
作者: jasonhsu14 (小健人)   2017-12-27 20:03:00
S大這麼一說,好像真的很有可能!!也謝謝妳的協助
作者: soyoso (我是耀宗)   2017-12-28 10:51:00
minimumscale和maximumscale上方各加上chtobj.select
作者: jasonhsu14 (小健人)   2017-12-28 12:01:00
謝謝~

Links booklink

Contact Us: admin [ a t ] ucptt.com