作者Pettitte1 ()
看板Office
标题[算表] VBA 换列
时间Thu Jul 8 13:46:42 2021
软体:Excel
版本:Office 365
请问我想要做xy图表
A1、D1、G1、J1、M1...=图表名称
B1:B1400、E1:E1400、H1:H1400、K1:K1400...=x轴
C1:C1400、F1:F1400、I1:I1400、L1:L1400...=y轴
vba如下
Sub Chartxy()
Range("B1400:C1400").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Range("工作表1!$B$1:$C$1065")
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).Name = "=工作表1!$A$1"
Dim i As Integer
For i = 2 To 48
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i).Name = "=工作表1!$D$1"
ActiveChart.SeriesCollection(i).XValues = "=工作表1!$E$1:$E$1400"
ActiveChart.SeriesCollection(i).Values = "=工作表1!$F$1:$F$1400"
Next i
End Sub
请问如何把 工作表1! 改成像上述的递增
谢谢!
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 27.52.73.115 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1625723207.A.AA2.html
1F：→ soyoso: range("b1:b1400").offset(,i*3).address 07/08 14:30
2F：→ Pettitte1: 好像不用加.address也可用 thanks 07/08 18:48