请教一个有关range操作和求根的问题（已上传测试文件）

书生春秋

香川群子 发表于 2011-9-27 16:04
Excel 中对函数求解，有一个自动猜数字的Goal Seek方法。

录制代码如下：

10楼的test文件
  点excel求解时，这句有错，提示引用无效
    ActiveCell.Offset(0, 1).GoalSeek Goal:=0, ChangingCell:=ActiveCell
求解可以用，我再学习下
还有就是新窗口中显示，不起作用哦

我用的是excel2003

回复蓝版主：
   您那段代码可能我没放对位置，不起作用。我理解是您直接计算计算函数值，然后填入了
   
我是做了一个求高次方程根的界面，用户窗体上有3个按钮：输入系数  求根  查看系数

输入系数：点击后弹出inputbox框，用户根据情形输入系数
                并将用户输入的系数保存在指定的range区
求根：      解出以系数构成的一元高次多项式的所有根
查看系数：在新窗口中显示放置系数的range区域

现在我输入系数，已经没问题了。
就是在将系数转化成公式和求解这里遇到难题。

谢谢大家的关注

书生春秋

（1）range区域在新窗口中打开
（2）对某个指定单元格定义的一元高次方程可以求根。

书生春秋

新传了文件，可以输入系数和显示
请朋友们帮助完成在新窗口显示和求根的功能

谢谢了

书生春秋

蓝桥玄霜 发表于 2011-9-27 15:52
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect ...

插入公式只是想用之前一位版友的思路来解方程，不过他做的效果好像不理想所以现在我把问题重新描述了下，还传了测试文件
原帖子地址：
蓝版主方便时再帮帮小弟

书生春秋

顶起来，求高手帮忙{:soso_e100:}

maditate

据记忆，高次方程求根要用逐步逼近法的。先要确定根的区间，再用逼近法求解。