[發問] excel規劃求解問題（是否能自動更新）

m06o2

a1=7
a1=0.9*0.49+9.36*LOG(b1+1)-0.2+LOG(1.5/2.7)/(0.4+1094/(b1+1)^5.19)+2.32*LOG(412000)-8.07
求解b1
目前嘗試過規劃求解，是可以實際算出b1 但因為a1會一直變動 b1每次都需要重新規劃求解 想詢問是否有辦法可以自動更新

c_c_lai

回復 1# m06o2
你的意思是
b1 = a1*(0.9*0.49+9.36*LOG(b1+1)-0.2+LOG(1.5/2.7)/(0.4+1094/(b1+1)^5.19)+2.32*LOG(412000)-8.07)
？

m06o2

回復 2# c_c_lai
你的意思是
b1 = a1*(0.9*0.49+9.36*LOG(b1+1)-0.2+LOG(1.5/2.7)/(0.4+1094/(b1+1)^5.19)+2.32*LOG(412000)-8.07)
不太一樣   
a1=(0.9*0.49+9.36*LOG(b1+1)-0.2+LOG(1.5/2.7)/(0.4+1094/(b1+1)^5.19)+2.32*LOG(412000)-8.07)
但我已知a1的時候怎麼求解b1

ML089

回復 1# m06o2
A1 輸入數值
B1 為變數(需求)
C1 為目標公式求B1值為多少時計算值為0
C1 =A1-(0.9*0.49+9.36*LOG(b1+1)-0.2+LOG(1.5/2.7)/(0.4+1094/(b1+1)^5.19)+2.32*LOG(412000)-8.07)


ALT-F11
選擇 Sheet1 插入輸入Worksheet_Change
當A1改變值時，啟動 目標搜尋 函數，找出B1值。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Range("C1").GoalSeek Goal:=0, ChangingCell:=Range("B1")
    End If
End Sub

20161209 規劃求解問題.rar (9.47 KB)

下載次數: 6

2016-12-9 17:35

m06o2

回復 4# ML089
大大您好我使用了您的方式後，可以使用了

但是不知道為何我寫的無法跟您一樣自動改變 而需要按執行才會進行計算

m06o2

回復 5# m06o2
我發現問題所在了！！！我選錯工作表了！！非常感謝:)

ML089

回復 6# m06o2

'放在 ThisWorkbook，每個Sheet都能作用
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Range("C1").GoalSeek Goal:=0, ChangingCell:=Range("B1")
    End If
End Sub


'放在該Sheet中，只有該Sheet才能作用
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Range("C1").GoalSeek Goal:=0, ChangingCell:=Range("B1")
    End If
End Sub

m06o2

回復 7# ML089
感謝您，發現如果要求解的數值再分母  是不是就無法記算!
EX:=((1.5*P3*Q3)*((1/(L3*(1+((U3/Q3)^2)*((N3/L3)^(2/3)))^(1/2)))+((1-(1/((1+((U3/Q3)^2))^(1/2))))/N3))-O3))
求解N3  其他變數都是已知

m06o2

回復 8# m06o2

如果我希望他算出來的數值要大於0的最接近解  需要怎麼修正

ML089

回復 8# m06o2


EX:=((1.5*P3*Q3)*((1/(L3*(1+((U3/Q3)^2)*((N3/L3)^(2/3)))^(1/2)))+((1-(1/((1+((U3/Q3)^2))^(1/2))))/N3))-O3))
的關係式是為 0 嗎?