[算表] VBA合併繪圖

[jasonhsu14 (汐止愛因斯坦)]

軟體: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圖也有出錯...

上述問題有點多，還先謝謝協助處理的版友們，謝謝

若版大們有更好的寫法希望可供參考


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 211.22.64.151
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1514366619.A.FDC.html
→ soyoso: 問題二，如出現為型態不符合，錯誤13
→ soyoso: https://i.imgur.com/qmQ7ldl.png 的話，可在最小值與最大
→ soyoso: 上方各加上chart.select試試，測試上暫無產生錯誤
→ soyoso: 問題1為將儲存格i2當成標籤了，可於seriescollection.add
→ soyoso: 後面加上參數serieslabels為false
→ jasonhsu14: 那想詢問一下，把i2當標籤的話，為甚麼H2卻沒這問題?
→ soyoso: 指定h欄和i欄範圍的第一筆為h2,i2分別為數字和空白儲存格
→ soyoso: 是否excel因此而判斷上將i2當標籤，這方面可測試看看
→ jasonhsu14: S大這麼一說，好像真的很有可能!!也謝謝妳的協助
→ jasonhsu14: 請問S大，加入Chart.select是在maximum那欄上方加入
→ jasonhsu14: ChtObj.Chart.Select嗎?
→ soyoso: minimumscale和maximumscale上方各加上chtobj.select
→ jasonhsu14: 謝謝~