帖子: 44
主題: 9
精華: 0
積分: 72
點名: 7
作業系統: win7
軟體版本: 64旗艦版
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-1-27
最後登錄: 2024-3-5

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2016-12-8 00:16 | 只看該作者

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

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每次都需要重新規劃求解想詢問是否有辦法可以自動更新

樓主熱帖

m06o2~~~~

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2016-12-8 10:47 | 只看該作者

回復 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)
？

TOP

m06o2

中學生 Rank: 2

帖子: 44
主題: 9
精華: 0
積分: 72
點名: 7
作業系統: win7
軟體版本: 64旗艦版
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-1-27
最後登錄: 2024-3-5

論壇贊助勳章

3^#

發表於 2016-12-8 22:31 | 只看該作者

回復 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

m06o2~~~~

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

4^#

發表於 2016-12-9 17:35 | 只看該作者

本帖最後由 ML089 於 2016-12-10 12:10 編輯

回復 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)

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

m06o2

中學生 Rank: 2

帖子: 44
主題: 9
精華: 0
積分: 72
點名: 7
作業系統: win7
軟體版本: 64旗艦版
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-1-27
最後登錄: 2024-3-5

論壇贊助勳章

5^#

發表於 2016-12-10 10:26 | 只看該作者

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

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

m06o2~~~~

TOP

m06o2

中學生 Rank: 2

帖子: 44
主題: 9
精華: 0
積分: 72
點名: 7
作業系統: win7
軟體版本: 64旗艦版
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-1-27
最後登錄: 2024-3-5

論壇贊助勳章

6^#

發表於 2016-12-10 10:41 | 只看該作者

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

m06o2~~~~

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

7^#

發表於 2016-12-10 12:09 | 只看該作者

回復 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

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

m06o2

中學生 Rank: 2

帖子: 44
主題: 9
精華: 0
積分: 72
點名: 7
作業系統: win7
軟體版本: 64旗艦版
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-1-27
最後登錄: 2024-3-5

論壇贊助勳章

8^#

發表於 2016-12-12 11:19 | 只看該作者

回復 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~~~~

TOP

m06o2