请问老师们VBA制作图表添加趋势线代码怎么写？

swjtuzxf · 发表于 2011-7-23 23:08

如题，刚学vba自动生成图表，生成折线图，现在添加趋势线，分别用几种（线性、指数、多项式等）趋势线去拟合，然后从中选择R2最大的，作为最终拟合计算公式，请问VBA代码该怎么写

兰色幻想 · 发表于 2011-7-24 09:46

你录制添加趋势线的宏，看看代码

ypbnyn · 发表于 2011-7-24 10:58

学习了，谢谢

吕?布 · 发表于 2011-7-24 11:48

最好的是先确定拟合模型，然后直接根据数据进行拟合计算

swjtuzxf · 发表于 2011-7-25 19:32

好的，多谢多谢

swjtuzxf · 发表于 2011-7-25 20:03

Sub Macro1()
ActiveSheet.ChartObjects("图表 66").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlLinear, Forward:=0, _
Backward:=0, DisplayEquation:=True, DisplayRSquared:=True).Select
End Sub
这是录制的宏，但现在最关键的是想获取R2的值，然后再将不同的R2进行比较

roboby · 发表于 2011-7-27 20:16

学习中……

		自动登录	找回密码
密码			注册