excel規劃求解問題（是否能自動更新） - Excelㄧ般區

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

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

12^#

發表於 2016-12-13 22:23 | 只看該作者

回復 11# m06o2

看不太懂
若有公式就直接就直接求解

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

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

論壇贊助勳章

11^#

發表於 2016-12-13 21:42 | 只看該作者

回復 10# ML089
在EXCEL表中的計算表內黃色兩行(第m行及n行)M行是想求的解 N行是計算出來的答案
接著我用計算出來得答案帶入求解計算表驗算那一分頁計算結果與原始資料有算出他的誤差
但我發現存在一個問題每次計算的答案都不相同，不知道原因是什麼!

計算流程.rar (959 KB)

m06o2~~~~

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

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

10^#

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

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

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

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

論壇贊助勳章

9^#

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

回復 8# m06o2

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

m06o2~~~~

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

論壇贊助勳章

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

帖子: 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 三鍵輸入公式

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

論壇贊助勳章

6^#

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

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

m06o2~~~~

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

論壇贊助勳章

5^#

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

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

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

m06o2~~~~

帖子: 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 三鍵輸入公式