excel图表制作:为多个数据系列添加趋势线的插件

我们手动将趋势线添加到几个散点图系列中，如下图1所示。

图1

在图表中，开头有三个数据系列，它们的公式是：

=系列(Sheet1！$ 2加元，第1张！$ B $ 3:$ B $ 11，Sheet1！3加元：11.1加元)

=系列(Sheet1！$ E $ 2，Sheet1！$ D $ 3:$ D $ 11，Sheet1！3澳元：11.2澳元)

=系列(Sheet1！$ G $ 2，Sheet1！$ F3:$ 11，Sheet1！3美元：11.3美元)

请注意，图表的系列公式通常有4个参数：

=SERIES(系列名称、x值、y值、绘图顺序值)。

后来我们增加了一个新的数列，叫做“趋势线”，它把原来三个数列的X值和Y值结合起来，它的公式是：

=SERIES("趋势线"，

(Sheet1！$ B $ 3:$ B $ 11，Sheet1！$ D $ 3:$ D $ 11，Sheet1！3美元：11美元)，

(Sheet1！$ C $ 3:$ C $ 11，Sheet1！$ E $ 3:$ E $ 11，Sheet1！$ G $ 3:$ G $ 11)，

4)

组成x值和y值的多个单元格区域用括号括起来。

接下来，我们使用VBA代码自动添加趋势线。

代码执行的操作是对图表中的系列进行计数，依次读取每个系列公式，分解其参数，然后将单个x和y值连接成组合的x和y值。接下来，代码将应用系列公式的参数来添加新系列，隐藏标记并添加趋势线。

subcomputemuleletrendline()如果不是活动图表，则为空，活动图表的ixSeries长度等于ixSeries=1到. series collection . count dim series公式为StringSeriesFormu la=活动图表。系列集合(ixSeries)。formulaseries formula=Mid $(series formula，InStr(SeriesFormula，"(")1)series formula=Left $(series formula，Len(series formula)1)Dim series args As variants series args=Split(series formula，"，")Dim XAddress As String，yadress As String xaaddress=xaaddress sergs(LBound(series args)1)" " yadress=yadress sergs(LBound(series)2)" " next address="xvalues=xa address . values=yadress . format . line . visible=false。markerstyle=xlmarkerstylenon。e与。trend lines . add . format . line . dash style=msolinessolid . fore color . object method color=msothemecolorext1 . fore color . brightness=0 end with end with with end with not ifend sub在工作表中选择一个图表，运行上面的代码，可以看到图表中自动添加了一条趋势线。

安装插件后，Excel函数会添加一个名为“多趋势线”的选项卡，并带有一个名为“多分散趋势线”的命令按钮，如下图2所示。

图2。

在工作表中选择一个图表，运行“多分散趋势线”命令，会弹出一个对话框，您可以在其中选择要添加趋势线的图表数据系列前面的标记，如下图3所示。

图3。

选择要添加趋势线的数据系列后，依次点击确定，图表中会自动绘制一条趋势线，如下图4所示。

图4