如何用VBA返回趋势线的方程及R平方值？

作者：绿色风分类：时间：2022-08-17 浏览：130

楼主 biaotiger1	Q：如何用VBA返回趋势线的方程及R平方值？ A：ALT+F11→“插入”→“模块”，在代码窗口中输入代码如下 Public Sub 获取趋势线方程及R平方值() Dim myType, myEqu, myRS, Str On Error Resume Next With Worksheets(1).ChartObjects(1).Chart.SeriesCollection(1).Trendlines(1) .DisplayRSquared = True .DisplayEquation = True .DataLabel.Select Str = Selection.Text 'Str = .DataLabel.Text myEqu = Split(Str, Chr(10))(0) myRS = Split(Str, Chr(10))(1) .DisplayRSquared = False .DisplayEquation = False MsgBox "趋势线的方程为: " & myEqu & vbCrLf & "趋势线的R-平方值为: " & myRS End With End Sub 运行以上代码，则弹出对话框显示趋势线的方程及R平方值获取趋势线方程及r平方值.rar
2楼 rongjun	好像要加下面的代码，要不然会返回空值 .DataLabel.Select Str = Selection.Text
3楼 biaotiger1	刚才试验N次，有几次返回显示不完整的对话框再试N次，竟然全部通过我分别设置如下两种属性为true、false试验的 .DisplayRSquared = True .DisplayEquation = True
4楼 wnianzhong	我也来试试!

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表