作者jasonhsu14 (汐止爱因斯坦)
看板Office
标题[算表] VBA合并绘图
时间Wed Dec 27 17:23:31 2017
软体: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://webptt.com/cn.aspx?n=bbs/Office/M.1514366619.A.FDC.html
1F：→ soyoso: 问题二，如出现为型态不符合，错误13 12/27 18:41
3F：→ soyoso: 上方各加上chart.select试试，测试上暂无产生错误 12/27 18:42
4F：→ soyoso: 问题1为将储存格i2当成标签了，可於seriescollection.add 12/27 19:01
5F：→ soyoso: 後面加上参数serieslabels为false 12/27 19:01
6F：→ jasonhsu14: 那想询问一下，把i2当标签的话，为甚麽H2却没这问题? 12/27 19:29
7F：→ soyoso: 指定h栏和i栏范围的第一笔为h2,i2分别为数字和空白储存格 12/27 19:35
8F：→ soyoso: 是否excel因此而判断上将i2当标签，这方面可测试看看 12/27 19:36
9F：→ jasonhsu14: S大这麽一说，好像真的很有可能!!也谢谢你的协助 12/27 20:03
10F：→ jasonhsu14: 请问S大，加入Chart.select是在maximum那栏上方加入 12/28 10:45
11F：→ jasonhsu14: ChtObj.Chart.Select吗? 12/28 10:46
12F：→ soyoso: minimumscale和maximumscale上方各加上chtobj.select 12/28 10:51
13F：→ jasonhsu14: 谢谢~ 12/28 12:01