有没有高手知道怎样用<em>VBA</em>在<em>excel</em>

1、首先在Excel表格知中输入每个月的消费金额，需要根据金额计算积分。

2、先计算出总的道消版费金额，在合计单元格中输入公式：=sum（A2:D2）。

3、得到总计结果后在权“积分”单元格中输入积分与消费金额的转换公式，例如100元对应1个积分，则输入：=E2/100。

4、点击回车即可得到对应总消费金额的总的积分数字。

Sub 求定积分()
On Error Resume Next
Dim n1 As Integer, n As Integer, i As Integer
Dim s As String
Dim C1 As Double, C2 As Double, C3 As Double
If ActiveSheet.UsedRange.Rows.Count < 2 Then
Cells(1, 1) = "积分式"
Cells(1, 2) = "下限"
Cells(1, 3) = "上限"
Cells(1, 4) = "计算结果"
s = MsgBox("请从第二行开始，每一行可计算一个积分，" & Chr(13) & "第一列输入7a64e59b9ee7ad94339积分式，积分变量只能用X，" & Chr(13) & "并且要按照Excel公式的要求输入", , "提示信息")
End If
n = ActiveSheet.UsedRange.Rows.Count
Columns(5).Hidden = True
For n1 = 2 To ActiveSheet.UsedRange.Rows.Count
s = Cells(n1, 1)
C1 = Cells(n1, 2) '积分下限
C2 = Cells(n1, 3) '积分上限
If s = "" Or C1 = 0 And C2 = 0 Then GoTo w1
s = UCase(s) '小写变大写
n = InStr(s, "X")
Do While n > 0
s = Left(s, n) & " " & Mid(s, n + 1)
Mid(s, n) = "e2"
n = InStr(s, "X")
Loop
Cells(n1, 4) = "=" & s
n = 2000 '小于32767,N值越大,结果越精确
C3 = (C2 - C1) / n
Cells(n1, 5) = C1
C2 = Cells(n1, 4) / 2
For i = 1 To n
Cells(n1, 5) = i * C3 + C1
C2 = C2 + Cells(n1, 4)
Next i
Cells(n1, 4) = (C2 - Cells(n1, 4) / 2) * C3
w1: Beep
Next n1
End Sub
程序已调试通过，如有问题请联系
这问题我已经回答过别人了，你怎么没查一下呢？
Excel中只能实现带积分符号的函数显示，而不能实现积分的运算。
显示函数可以使用插入公式来进行编辑抄显示。
专业的公式编袭辑器可以编辑所有的公式功能。它无论是Word、Excel还是PowerPoint中都可以使用。
退出公式编辑器就可以zhidao见到完整的公式了。

同时需要注意的是，公式编辑器是OFFICE在安装时的一个选项，如果在安装时此项没有选的话，是不能进行公式编辑的。遇到没有安装的情况，可以通过重新更改安装OFFICE来解决。

你说的问题是微积分中的定积分计算吗？如果是，我愿意挑战这个任务，请你举几个积分公式出来，另外计算精度有何要求？