使用VBA提取趋势线斜率

问题描述

我目前正在制作宏，以从多个csv中提取原始数据，将其打印在不同的工作表中，修剪无关的数据，将每张工作表中的数据绘制在具有单独趋势线的单个图形上，并报告有关这些趋势线和数据的一些信息。除了提取趋势线斜率外，我在所有方面都取得了成功。我想报告所有趋势线的斜率平均值，并且我编写了以下代码来执行此操作：

For j = 1 To UBound(SelectedSheets)
    TLEq = CompositeChartObject.Chart.SeriesCollection(j).Trendlines(1).DataLabel.Text
    ReDim Preserve ModulusArr(j)
    ModulusArr(j) = CDbl(Mid(TLEq,4,Len(TLEq) - 4))
Next j

SelectedSheets是一个数组，其中填充有用户从多选用户窗体列表框中选择要分析的工作表。 TLEq是一个字符串，用于临时保存趋势线方程式的全文（拦截设置为0，因此简单的y = mx方程式）。 CDbl（Mid（））用于将TLEq修整为仅斜率并转换为Double。在这些上方的行（不包括在内）中，添加了序列，插入了趋势线，并为每个趋势线调用了displayEquation。绘制图形，显示趋势线或显示趋势线方程式都没有问题。

问题从第2行开始，在该行中，TLEq在循环期间始终保持空白；某些迭代会提取所有趋势线方程式，有时只会提取一些，而其他时候则不提取方程式。.我尚未找到任何模式。然后，任何时候TLEq为空，第4行都会出错，因为它无法执行CDbl（Mid（））一个空的TLEq。有什么想法吗？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）