将图表中的R方块提取到单元格中 [英] Extracting R-square from Chart into cell

问题描述

我有一个Excel散点图，它有趋势线和R2值。

如何将趋势线的R平方值返回给变量？

我想：

x = ActiveChart.SeriesCollection(1).Trendlines(1).Datalabel.Value

但这不起作用。

我知道我们可以用RSQ和LINEST直接计算，但是当截取零值时，图表和用LINEST计算的结果不一样。并且我想记录图表中的值。

推荐答案

您可以尝试：

x = Val (Split(ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Text, "=")(1))

如果也显示了公式，则使用第三个元素(id%2)

x = Val (Split(ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Text, "=")(2))

若要绝对确定该位置，您可以使用以下命令：

Public Function GetR2() As Single

    Dim sArray() As String

    sArray = Split(ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Text, "=")

    GetR2 = CSng(sArray(UBound(sArray)))

End Function

如果您想只使用一行，那么这在两种情况下都可以使用

x=Val(Split(ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Text，"R²=")(1))

这篇关于将图表中的R方块提取到单元格中的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！