请教老师：用同一行的数据制作股价图，谢谢！

qx-liuwx

如题、详见附件，有劳高手！

qx-liuwx

看来用VBA方便点

qx-liuwx

加多几条灌水

qx-liuwx

=SERIES(INDIRECT("数!AA"&图!$A$1),INDIRECT("数!B"&图!$A$1&":Z"&图!$A$1),INDIRECT("数!AB"&图!$A$1&":AZ"&图!$A$1),1)


=SERIES(数!$AA$2,数!$B$2:$Z$2,数!$AB$2:$AZ$2,1)

qx-liuwx

原来在工作表中可用的函数: INDIRECT(

在图表公式中不可用

qx-liuwx

请教老师:
如果在好VBA中想以循环方式对逐行数据进行作图、
作图公式要如何才能使用循环变量的参数、使对不同范围的数据按相同的方式作图时、使代码中只更改循环参数即可、其他部分不用修改。

例如我的代码部分如下:
    ActiveChart.SeriesCollection(1).Formula = "=SERIES(数!R2C27,数!R2C2:R2C26,数!R2C28:R2C52,1)"
    ActiveChart.SeriesCollection(2).Formula = "=SERIES(数!R2C53,数!R2C2:R2C26,数!R2C54:R2C78,2)"
    ActiveChart.SeriesCollection(3).Formula = "=SERIES(数!R2C79,数!R2C2:R2C26,数!R2C80:R2C104,3)"
    ActiveChart.SeriesCollection(4).Formula = "=SERIES(数!R2C105,数!R2C2:R2C26,数!R2C106:R2C130,4)"

这些代码只能针对第2行数据作图。

qx-liuwx

这个作图公式中的 R2

要如何改为变量参数的形式？麻烦老师指导。谢谢！

qx-liuwx

搜索第一步：定义名称，用名称来代替画图数据要引用的数据源（office2010版本）

进入excel“公式”-“名称管理器”“新建”对话框：

进入如图所示的对话框，在名称里填入自定义的名称，在引用位置填入该变量对应的引用位置，因为要自动更新画图数据源，我的画图数据为序列（last），一个坐标轴标签（time），因此，需要定义两个名称：

定义time，在名称里写入time，在引用位置填入：

=INDIRECT("Sheet1!$A$2:$A$"&COUNTA(Sheet1!$A:$A))

定义last，在名称里填入last，在引用位置填入：

=INDIRECT("Sheet1!$B$2:$B$"&COUNTA(Sheet1!$B:$B))


试试

qx-liuwx

貌似可以、不做不知道。谢谢！

    ActiveWorkbook.Names.Add Name:="m开", RefersToR1C1:="=INDIRECT(""数!AA""&图!R1C1)"
    ActiveWorkbook.Names.Add Name:="y开", RefersToR1C1:="=INDIRECT(""数!B""&图!R1C1&"":Z""&图!R1C1)"
    ActiveWorkbook.Names.Add Name:="s开", RefersToR1C1:="=INDIRECT(""数!AB""&图!R1C1&"":AZ""&图!R1C1)"
    ActiveChart.SeriesCollection(1).Formula = "=SERIES(数!m开,数!y开,数!s开,1)"