|
|
wolaiye2014(金币+5, 博学EPI+1):不好意思，确实不会用宏，能不能说一下操作流程？数据A在表格的D6：D80，数据B在I6：I80，创建x在J6：J80。 2010-11-13 20:15:11
楼主是一元多次方程求解，没有固定解，只有数值解，过程如下：
例如在第一行填入A, B，下面第二行是对应值，A=1.5 B=10
A B X
1.5 10 0.144
那么用下面的宏，运行，然后，X自动填入X下面，（别告诉我宏不会用）
Sub CalIncrease()
'
' CalIncrease Macro
' Macro recorded 11/12/2010 by Evan Ren
'
'
Set wb = ActiveWorkbook
Set ws = wb.ActiveSheet
A = ws.Cells(2, 1)
B = ws.Cells(2, 2)
prec = 0.001
st = B / A - 1
If (st > 0) Then
For i = 0.01 To st Step prec
tolerance = ((1 + i) ^ 5 - 1) / i - B / A
If Abs(tolerance) <= 0.01 Then
ws.Cells(2, 3) = i
Exit For
End If
Next i
End If
End Sub |
|
回复此楼