作者van6499 (KIDD)
看板Office
标题[算表] VBA 回圈作图求助
时间Wed Dec 26 11:40:34 2018
软体: Microsoft Excel
版本: 2010
小弟手上有笔资料，想以VBA作XY散布图
A栏为日期，B栏至Q栏带有XY资料
假设A3有一日期，则B3~Q3为X轴资料，B2~Q2为Y轴资料
目前测试可以做出单张图为图表分页(code如下)
Dim chartA As Chart
Set chartA = Charts.Add
With chartA
.ChartType = xlXYScatter
.HasTitle = True
.ChartTitle.Text = "=Plot1!A3"
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = "=Plot1!B3:Q3"
.SeriesCollection(1).Values = "=Plot1!B2:Q2"
End With
End Sub
但是A栏有很多笔日期资料，但是每一笔的间隔列数不一定
想将上面的code改写为if+回圈的形式，一次做出很多张图表分页
想改写成如下的框架
Dim i as interger
For i = 1 to 30 只搜寻A1~A30
if range("A"& i)>0 如果A1有日期
Chart.Add. 增加图表分页
With Chart. 指定图表XY来源与图表格式，表标题为A栏日期
.ChartType = xlXYScatter
.HasTitle = True
.ChartTitle.Text = "=Plot1!A"&"i"
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = Bi:Qi
.SeriesCollection(1).Values = B(i-1):Q(i-1)
else
next i 如果A1没有日期就往下找A2，直到A30
end if
但是怎麽写都有问题，想请有经验的大大指点一下
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 180.204.21.103
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1545795638.A.BE0.html
※ 编辑: van6499 (180.204.21.103), 12/26/2018 11:44:42
1F：→ soyoso: interger没这个资料类型，是integer才是 12/26 11:49
2F：→ soyoso: 因接来会增加图表分页 if range("A"&i)>0的方面range要配 12/26 11:52
3F：→ soyoso: 合worksheets(资料来源工作表名).range或sheets(..).range 12/26 11:53
4F：→ soyoso: if..then..end if少了then 12/26 11:54
5F：→ soyoso: Bi:Qi改为"资料工作表名称!b" & i & ":q" & i 12/26 11:55
6F：→ soyoso: 另外i从1起？那i-1=0，工作表内因不会有这个列号，就会产 12/26 11:57
7F：→ soyoso: 生错误 12/26 11:57
8F：→ soyoso: next i写在end if下方 12/26 11:57
9F：→ soyoso: 其他如增加图表分页因是上方charts.add而不是chart.add 12/26 12:00
10F：→ soyoso: chart.add.和with chart. 最後的.(点号)也不是正确写法 12/26 12:02
11F：→ van6499: 其他错误我大概了解，可以请教S大chart.add与with chart 12/26 12:15
12F：→ van6499: 是後面都不用加.吗？ 12/26 12:15
13F：→ van6499: 因为我不确定多张chart是否还要一个变数去表示 抱歉真新 12/26 12:17
14F：→ van6499: 手的code伤眼睛 12/26 12:17
15F：→ soyoso: 回文的後面为chart.add.(←)和with chart.(←)该处不用加 12/26 12:17
16F：→ soyoso: 写法如上面set chartA =charts.add 和 with chartA 後面是 12/26 12:21
17F：→ soyoso: 不用加上点号的 12/26 12:21
18F：→ van6499: 感谢S大，调整後已经可以实行，非常感谢 12/26 14:17