[求助]这样子在图表里添加新系列为什么不对呢?

littlecatzl

Private Sub CommandButton4_Click() Dim pin As Integer Const depart = 386 pin = TextBox1.Text

Charts.Add ActiveChart.ChartType = xlXYScatter ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("B" & pin, "BM" & pin), PlotBy _ :=xlRows ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(2).Values = "=Sheet1!R(pin+depart)C2:R(pin+depart)C65" ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet2" With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = "pin test" .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "GS number" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "result" End With End Sub

littlecatzl

顶高手帮帮忙吧~~~~问题估计出在activechart.seriescollection(2).value=……那里～～～

snood

ActiveChart.SeriesCollection(2).Values ="=Sheet1!R" & pin + depart & "C2:R" & pin + depart & "C65"