Question

excel中如何求复杂积分

比如A1输入数值a，经过复杂计算后B1得出数值b，无法直接写出两者之间函数关系
如何求a属于（x1,x2）时积分
自己想了个思路：输入上下限和步长，之后令excel分别输入大量a得出结果b自动乘以步长求和，求具体做法
算好了有追加^_^
标题可能起的不好...这个问题跟积分就没啥关系= =简单说来就是求一个宏：我输入3个值下界、上界、间隔,然后excel根据这三个值往A1格子里填数，随后将B1得出的值乘以间隔相加得出粗略的积分值

Answer 1

哎，积分的知识都已经全部还给老师了。。。。。

 

文字描述看得云山雾罩，最好举个实例，这样看起来理解就更方便多了

 

Excel 中，按【Alt+F11】，主菜单——插入——模块，将下述代码粘贴到右侧编辑区，退出VBA，返回Excel，在D2输入：=jf(1,5,0.01)即可得到你要的结果

Function jf(nMin As Double, nMax As Double, nStep As Double) As Double
    Dim a As Double
    For a = nMin To nMax Step nStep
        jf = jf + f(a)
    Next
    jf = 0.01 * jf
End Function

Function f(x As Double) As Double
    '此处输入b=f(x)的函数计算过程
    '*****        

End Function

追问

不行，第10行11行是要我自己填？我说的很清楚：公式复杂写不出，有现成公式的话算积分的宏网上一大把= =

麻烦就按我说的直接截取C2的值算...

追答

哪你还是另找高明吧！

Answer 2

如果我没理解错的话，截图里的C2值是自动算出来的，我不用管它是怎么来的，对吧？

 

如果我理解正确的话：

假设B4为a的上限，B5为a的下限,B6为间隔。

Sub jf()
Application.ScreenUpdating = False '计算时不刷新屏幕，加快宏运行速度
ul = Cells(4, 2) '上限
dl = Cells(5, 2) '下限
stp = Cells(6, 2) '间隔
Sum = 0
For x = ul To dl Step stp
Cells(2, 1) = x
Sum = Sum + stp * Cells(2, 3)
Next
Cells(2, 4) = Sum '单元格D2即为积分值
End Sub