根据其他工作表中的数据创建图表时，下标超出范围错误

编程问答 2022-06-12

问题描述

我正在从sheet3的日期开始在sheet2中创建一个图表，但是将.setsourcedata设置为sheet3时出现“脚本超出范围”错误。如果我没有定义它，它将运行但会绘制sheet2的范围。如果在定义x / y值时添加sheet3，则会出现相同的错误：

.SeriesCollection(1).XValues = sheet3.Range(Cells(irow,icolumnu),Cells(frowu,icolumnu))

请帮助我！

Set cht = Sheet2.Shapes.AddChart.Chart

With cht
    .ChartType = xlXYScatterSmooth
    .Axes(xlValue).ScaleType = xlScaleLogarithmic
    .SeriesCollection.NewSeries
    .SetSourceData Source:=Worksheets("sheet3").Range(Cells(irow,icolumnu + 1))
    .SeriesCollection(1).Name = Sheet3.Cells(2,icolumnu).Value 'upper curve
        '.Name = Sheet3.Cells(2,icolumnu).Value
    .SeriesCollection(1).XValues = Range(Cells(irow,icolumnu))
    .SeriesCollection(1).Values = Range(Cells(irow,icolumnu + 1),icolumnu + 1))
    'End With
    .SeriesCollection.NewSeries
    .SetSourceData Source:=Worksheets("sheet3").Range(Cells(irow,icolumnl),Cells(frowl,icolumnl + 1))
    .SeriesCollection(2).Name = Sheet3.Cells(2,icolumnl).Value
    .SeriesCollection(2).XValues = Range(Cells(irow,icolumnl))
    .SeriesCollection(2).Values = Range(Cells(irow,icolumnl + 1),icolumnl + 1))
       ' End With
End With

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excelexcelexcel-chartsvba