使用两个Excel工作表生成图表

时间:2012-09-20 08:42:20

标签: excel-vba vba excel

我编写了使用两张数据生成图表的代码 代码是

 ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).XValues = "=SPEC!$B$2:$J$2"
ActiveChart.SeriesCollection(2).Values = "=SPEC!$B$6:$J$6"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).Values = "=reference_curve!$D$4:$D$303"
ActiveChart.SeriesCollection(3).XValues = "=reference_curve!$C$4:$C$303"`

它工作正常,但问题是我想使用范围变量来选择数据,例如。

dim test as range
test = "=SPEC!$B$6:$J$6"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).XValues = "=SPEC!$B$2:$J$2"
ActiveChart.SeriesCollection(2).Values = test
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).Values = "=reference_curve!$D$4:$D$303"
ActiveChart.SeriesCollection(3).XValues = "=reference_curve!$C$4:$C$303"

这一个不工作请帮助我

1 个答案:

答案 0 :(得分:0)

这是设置变量以存储范围的方法:

dim test as range
Set test = Range("SPEC!$B$6:$J$6")