大神的用武之地：VBA后台编写迭代公式求解。跪求大神帮忙

鼠松shadow

方程b=tana-a     就是给b一个值，比如0.02146，求解a的值，a是弧度值。a可以从0开始迭代，求出精度误差0.001的a值。在一个单元格输入b的值在另一个单元格得出a的值。
求大神用vba编个小程序。可以把后台的程序贴上吗？

如下图，在A2单元格里输入b的值，后台编的程序，自动计算出a的值显示在B2单元格里。哪位大神帮忙弄一弄。测试数据为：b=0.02146,则a=0.0785398

例子

香川群子

你瞎说，b=0.02146时，a=0.392381259466936

既不是0.785398，也不是0.0785398

a=0.785398时，b=0.214601673 比0.02146大10倍
a=0.0785398时，b=0.00016189


自定义函数代码如下：（单变量求解算法）

1. Function fuc(a, b)
   
2.     fuc = Tan(a) - a - b
   
3. End Function
   
4. Function GoalSeek(b)'以b为目标值按照fuc计算规则求近似解x
   
5.     Dim i&, j&, x, t As Boolean
   
6.     t = fuc(0, b) > 0 '以x=0为起始端点 自动判断函数fuc的趋势方向
   
7.     x = "0.000000000000000" '设置计算值x为15位小数
   
8.    
   
9.     For i = 3 To 17 '遍历15位小数
   
10.         For j = 9 To 0 Step -1 '倒序检查每个数位
    
11.             Mid(x, i, 1) = j: If (fuc(x, b) > 0) = t Then Exit For '趋势反转时确定该数位值然后退出
    
12.         Next
    
13.     Next
    
14.     Mid(x, i - 1, 1) = j + 1 '最后1位向上修正
    
15.     GoalSeek = x '返回单变量求解的近似结果x
    
16. End Function
    

复制代码

哈哈。

鼠松shadow

对，b我多输了一个零，大神厉害了

鼠松shadow

大神，算法是解决了，我想让它在excel里实现，输入在单元格，输出也在单元格，这个问题怎么解决。输大神帮忙再解决一下吧！