[已解决]公式有差异，哪里错了？

759857387

拟合1.rar (12.28 KB, 下载次数: 15)

2016-4-16 13:12 上传

点击文件名下载附件
要求：a1单元格=0.034*x^3-1.17*x^2+12.42*x-26.45

最佳答案在9楼

最佳答案

月排行榜 / 总排行榜

爱疯

2016-4-16 21:23

Sub 拟合4()
    Dim s$
    s = Worksheets("Sheet1").ChartObjects(1).Chart.SeriesCollection(1).Trendlines(1).DataLabel.Text
    s = VBA.StrReverse(s)
    s = VBA.Replace(s, "x", "z", , 1)
    s = VBA.Replace(s, "x", "^x")
    s = VBA.Replace(s, "z", "x", , 1)
    Range("a1") = VBA.StrReverse(s)
End Sub



这样好些

跳转到最佳答案楼层

759857387

顶————————————————————————————

爱疯

没明白，想做什么

759857387

爱疯 发表于 2016-4-16 19:58
没明白，想做什么

1，附件中，A1单元格公式有错误，想知道vba哪里有错？
2，希望得到：a1单元格=0.034*x^3-1.17*x^2+12.42*x-26.45，vba代码如何修改？

爱疯

Sub 拟合()
    Dim ser As Series
    Set ser = Worksheets("Sheet1").ChartObjects(1).Chart.SeriesCollection(1)
    s = ser.Trendlines(1).DataLabel.Text
    s = VBA.Split(s, "=")(1)
    s = VBA.Split(s, "x")
    a = s(0)
    b = Right(s(1), Len(s(1)) - 2)
    c = Right(s(2), Len(s(2)) - 2)
    d = s(3)

'    Range("a1") = " =a * x ^ 3 + b * x ^ 2 + c * x + d"    'Y值
     Range("a1") = " =" & a & " * x ^ 3 " & b & " * x ^ 2 " & c & " * x " & d    'Y值
    Debug.Print a, b, c, d
End Sub


加上颜色这句，是这样？

爱疯

为什么不直接写？

Sub 拟合2()
     Range("a1") = Worksheets("Sheet1").ChartObjects(1).Chart.SeriesCollection(1).Trendlines(1).DataLabel.Text
End Sub

759857387

爱疯 发表于 2016-4-16 20:51
为什么不直接写？

Sub 拟合2()

做过，得到的结果是：y = 0.034x3 - 1.170x2 + 12.42x - 26.45 缺^
目前这个结果还是不满意
1，虽然解决了^，可人工调整“顺序”还是会出错误代码9
挠头
有什么办法直接导出图标中的公式？

爱疯

Sub 拟合3()
    Dim s$
    s = Worksheets("Sheet1").ChartObjects(1).Chart.SeriesCollection(1).Trendlines(1).DataLabel.Text
    Range("a1") = VBA.Replace(s, "x", "x^")
End Sub


这样呢，噢最后1个X，我再改下。。。。{:301:}

爱疯

Sub 拟合4()
    Dim s$
    s = Worksheets("Sheet1").ChartObjects(1).Chart.SeriesCollection(1).Trendlines(1).DataLabel.Text
    s = VBA.StrReverse(s)
    s = VBA.Replace(s, "x", "z", , 1)
    s = VBA.Replace(s, "x", "^x")
    s = VBA.Replace(s, "z", "x", , 1)
    Range("a1") = VBA.StrReverse(s)
End Sub



这样好些

759857387

爱疯 发表于 2016-4-16 21:23
Sub 拟合4()
    Dim s$
    s = Worksheets("Sheet1").ChartObjects(1).Chart.SeriesCollection(1).Tren ...

哇，大师的写法爆棚了
谢谢大师！