[算表] VBA 迴圈作圖求助

[van6499 (KIDD)]

軟體: 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://www.ptt.cc/bbs/Office/M.1545795638.A.BE0.html
※ 編輯: van6499 (180.204.21.103), 12/26/2018 11:44:42
→ soyoso: interger沒這個資料類型，是integer才是
→ soyoso: 因接來會增加圖表分頁 if range("A"&i)>0的方面range要配
→ soyoso: 合worksheets(資料來源工作表名).range或sheets(..).range
→ soyoso: if..then..end if少了then
→ soyoso: Bi:Qi改為"資料工作表名稱!b" & i & ":q" & i
→ soyoso: 另外i從1起？那i-1=0，工作表內因不會有這個列號，就會產
→ soyoso: 生錯誤
→ soyoso: next i寫在end if下方
→ soyoso: 其他如增加圖表分頁因是上方charts.add而不是chart.add
→ soyoso: chart.add.和with chart. 最後的.(點號)也不是正確寫法
→ van6499: 其他錯誤我大概了解，可以請教S大chart.add與with chart
→ van6499:  是後面都不用加.嗎？
→ van6499: 因為我不確定多張chart是否還要一個變數去表示 抱歉真新
→ van6499: 手的code傷眼睛
→ soyoso: 回文的後面為chart.add.(←)和with chart.(←)該處不用加
→ soyoso: 寫法如上面set chartA =charts.add 和 with chartA 後面是
→ soyoso: 不用加上點號的
→ van6499: 感謝S大，調整後已經可以實行，非常感謝