单变量求解是解决假定一个公式要取的某一结果值,其中变量的引用单元格应取值为多少的问题。
搞了快10年研发,单变量求解还真没搞过,今天有需求,找到office和wps都有这个高级功能
需求公式:
excel公式:
(POWER(A3+1,2)-1)/(A3*POWER((1+A3),B3-1))
r | n | h |
1 | 2 | 1.5 |
-0.947368444 | 2 | 20.00001 |
office:
根据百度教程,把h设置为20,n为2,计算出来r是-0.947368444
再反过来把r=-0.947368444,n=2代入公式,h计算基本正确
wps:
带进去,计算出来一个值-9999722440
估计是越界了
vba批量单变量求解:
Sub ma()
'单个单元格例子: Range("C2").GoalSeek Goal:=1111, ChangingCell:=Range("A2")
Dim i, j
j = 2
For r = 1 To ActiveSheet.UsedRange.Rows.Count
' Worksheets(3).Cells(j, 3).Value = i
If (ActiveSheet.Cells(j, 4).Value <> "") Then
ActiveSheet.Cells(j, 3).GoalSeek Goal:=ActiveSheet.Cells(j, 4).Value, ChangingCell:=ActiveSheet.Cells(j, 1)
End If
j = j + 1
Next
End Sub