excel - 斜率和截距函数返回 #Value! (错误 2015)

Question

我正在开发一个 Excel VBA 程序，该程序显示一系列 x、y 值的散点图和带有线性最小二乘方程和 R 平方的趋势线。我想在我的 VBA 程序中捕获斜率和截距。在原生 XL 中，我会在斜率的单元格中输入类似的内容:

=SLOPE(B2:B1026,A2:A1026)

但是，如下所示，当我尝试在 VBA 中执行此操作时，我得到 #Value! 2015 错误。我究竟做错了什么？

我可以做一些字符串操作来从趋势线图例中提取它们，但我更喜欢直接做。

我也尝试过使用“Application.WorksheetFunction.Intercept ...”，但这会引发错误“无法获取 worksheetFunction 类的 Intercept 属性”。

一些示例数据、图表和斜率计算显示在 jpg 图像 中

这是相关的VBA代码，注意Max是1026，但我也直接编码了1026，没有任何效果。

ActiveChart.FullSeriesCollection(1).Select
ActiveChart.FullSeriesCollection(1).Trendlines.Add
ActiveChart.FullSeriesCollection(1).Trendlines(1).Select
Selection.DisplayEquation = True
Selection.DisplayRSquared = True
Cells(2, 10) = Application.Intercept("$b2:$b" & Max, "$a2:$a" & Max)
Cells(3, 10) = Application.Slope("$b2:$b" & Max, "$a2:$a" & Max)
Cells(4, 10) = Application.RSq("$b2:$b" & Max, "$a2:$a" & Max)

Answer 1

这个语法是错误的

Application.Slope("$b2:$b" & Max, "$a2:$a" & Max)

根据 WorksheetFunction.Slope method您提交给 Slope 的论点需要 Range对象。

Application.Slope(Range("$b2:$b" & Max), Range("$a2:$a" & Max))