取线性与多项式方程系数的自定义函数

baomaboy

chrisfang 发表于 2011-10-9 11:33
这个，Excel自带函数就可以完成的呀

主要是图一个方便：
1.有些人会使用趋势线，但不知如何取得图表中的趋势线系数。
2.有些人会用excle自带函数取得趋势线系数，但要用几个函数配合而且数据源变动，方程阶数变动都要做大量改动，很麻烦。
所以就有了做FCDXS函数的想法，参考chenjun版主的例子做的，并且感觉比那个更方便了。

chrisfang

嗯，你说的也有道理。不过其实用Linest函数做个模型并不复杂，也可以自适应阶数和数据源的变化。

baomaboy

chrisfang 发表于 2011-10-9 12:13
嗯，你说的也有道理。不过其实用Linest函数做个模型并不复杂，也可以自适应阶数和数据源的变化。

Linest是可以自适应数据源及阶数变化，但如果在单元格中写，必然还会涉及较多改动，比起自定义函数=FCDXS(阶数,数据源)来应该是比较繁琐的。
另外就是Linest再转自定函数时也不是一帆风顺的，
最早看到chenjun版主附件时我就觉得转一下自定义函数就好了，偏偏在转自定义函数过程中Linest函数就出了问题，
vba里运行不了，资料也查不到，最后很曲折的解决了。
对你们版主或mvp来说那个转换可能只是个常识，可于我来说当时找解决办法无异于大海捞针，因为当时就很少有关于Linest在vba里应用的资料。

chrisfang

baomaboy 发表于 2011-10-9 12:36
最早看到chenjun版主帖子时我也是这么考虑的，偏偏在转自定义函数过程中Linest函数就出了问题，
vba里运 ...

我的意思不是在VBA里用Linest，而是直接在工作表中使用{:soso_e121:}

baomaboy

chrisfang 发表于 2011-10-9 12:38
我的意思不是在VBA里用Linest，而是直接在工作表中使用

附上chenjun版主的附件，我觉得在工作表中用，能进一步优化的就是把公式整合集中了，相对于自定义函数=FCDXS(阶数,数据源)来说略显繁琐，

chrisfang

baomaboy 发表于 2011-10-9 12:54
附上chenjun版主的附件，我觉得在工作表中用，能进一步优化的就是把公式整合集中了，相对于自定义函数=FC ...

用你的表格做了一个，公式写在第27行，你看看是不是很简单：
取线性与多项式方程系数的函数.rar (10.71 KB, 下载次数: 290)

2011-10-9 13:14 上传

点击文件名下载附件

baomaboy

chrisfang 发表于 2011-10-9 13:14
用你的表格做了一个，公式写在第27行，你看看是不是很简单：

是很简单，版主果然好功力，受教了。

易先生

baomaboy你好，我看了你取线性与多项式方程系数的自定义函数的贴，水平很高，佩服。我在VBA中也要提取一组数据的多项式拟合曲线系数，但VBA中提示花括号处格式有错（编译错误，无效字符），能不能指点下该怎样编写？
Y值在A1：A10，X值在B1：B10
我的VBA代码如下，以提取第一个系数为例

Set ry = Range(Cells(1, 1), Cells(10, 1))
Set rx = Range(Cells(1, 2), Cells(10, 2))
Cells(150, 7) =application.WorksheetFunction.Index(LINEST(ry,rx^{1,2,3},TRUE,TRUE),1,1)

baomaboy

易先生 发表于 2011-11-15 18:31
baomaboy你好，我看了你取线性与多项式方程系数的自定义函数的贴，水平很高，佩服。我在VBA中也要提取一组数 ...

我见先生你都在弄著作权的事了，告诉了你我真怕以后我自己再用这个公式反而会侵犯你的著作权啊。呵呵.....

易先生

是软件登记证书，这个是单位非要要的，主要是宣传用，不对外销售，与个人无关，另外EXCEL上开发的软件只保护文档和界面流程，不保护公式代码。

关于LINEST函数在VBA中的用法，若涉及保密不说我非常理解，能否说说直接采用Index(LINEST(ry,rx^{1,2,3},TRUE,TRUE),1,1)这类的简单形式是否是行不通的，需要另外进行一些巧妙的转换才能实现？