有請懂VBA的朋友幫幫忙~~~要如何用excel中的VBA製作折線圖

我有一個資料表格如下:

A B C D E F G H I J K L......
-----------------------------------------------
1|
2|
3|
4|
5|
6|
7|
8|
9|
10|
.
.
.
.

如果我只想要選擇C2,E2,G2,I2儲存格中得資料來做x軸的數列;選擇D4,E4,K4,N4儲存格中的資料來作為y數列
用macro錄下來的結果會像是下面的樣子

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLineMarkersStacked
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "='Sheets1'!$B$4"
ActiveChart.SeriesCollection(1).Values = _
"='Sheets1'!$D$4,'Sheets1'!$E$4,'Sheets1'!$K$4,'Sheets1'!$N$4"
ActiveChart.SeriesCollection(1).XValues = _
"='Sheets1'!$C$2,'Sheets1'!$E$2,'Sheets1'!$G$2,'Sheets1'!$I$2"

但是我想要把Sheets1和儲存格的位置可以設為變數以便可以套用各個不同的狀況,這該怎麼設定呢

感謝大家的幫忙
ActiveChart.SeriesCollection(1).Name = "='Sheets1'!$B$4"


把你這些變數 當成字串處理 就好了

例如 a1="='Sheets1'!$B$4"
ActiveChart.SeriesCollection(1).Name = a1
文章分享
評分
評分
複製連結

今日熱門文章 網友點擊推薦!