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

帖子: 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~~~~

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猴年全勤獎章

12^#

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

回復 11# m06o2

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

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

TOP

m06o2

中學生 Rank: 2

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

論壇贊助勳章

13^#

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

回復 12# ML089

O3 =((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、P3、L3、U3、N3、U3都已知要求Q3 所以用了求解的方法求 Q3
接著把求出來的Q3帶入原式子中計算新的的O3 在跟原始的O3比較發現他差異很大

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猴年全勤獎章

14^#

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

J3 =(1.5*D3*E3)*((1/(C3*(1+((F3/E3)^2)*((B3/C3)^(2/3)))^(1/2)))+((1-(1/((1+((F3/E3)^2))^(1/2))))/B3))-H3
下拉

精度低速度快
Sub 目標搜尋()
[E3:E30] = 1
For i = 3 To 30
      Range("J" & i).GoalSeek Goal:=0, ChangingCell:=Range("E" & i)
Next
End Sub

求解精度比較高
'SolverSolve 函數
'
'開始執行規劃求解解決方案。相當於按一下 [規劃求解參數] 對話方塊中的 [規劃求解]。
'
'使用本函數之前，必須建立對規劃求解增益集的參照。在 Visual Basic 編輯器中，將焦點移至某個模組，按一下 [工具] 功能表上的 [參照]，然後選取 [可用參照] 底下的 [Solver.xlam] 核取方塊。如果 [Solver.xlam] 沒有出現在 [可用參照] 底下，按一下 [瀏覽]，然後開啟 \office12\library\Solver 子資料夾中的 Solver.xlam。
'
Sub 規劃求解()
[E3:E30] = 1
For i = 3 To 30
      SolverOk SetCell:="$J$" & i, MaxMinVal:=3, ValueOf:="0", ByChange:="$E$" & i
      SolverSolve UserFinish:=True
      'SolverFinish KeepFinal:=1, ReportArray:=Array(1) '1 表示建立答案報告，2 表示建立敏感度報告，而 3 表示建立限制報告
Next
End Sub

計算流程.rar (804.1 KB)

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

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 256
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

15^#

發表於 2016-12-15 06:45 | 只看該作者

回復 13# m06o2

假如是用 range.goalseek 單變數求解， goal := 0
建議調整 "檔案""選項""公式""計算選項" "最大誤差"，例如 0.00001 應該會得到不同的誤差百分比

1 評分人數

ML089: 謝謝補充金錢 + 2

TOP

m06o2

中學生 Rank: 2

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

論壇贊助勳章

16^#

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

回復 15# Scott090
有喔這個方法有變好一點!!

m06o2~~~~

TOP

m06o2

中學生 Rank: 2

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

論壇贊助勳章

17^#

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

回復 14# ML089
我有測試這個方法  發現一個問題
Sub 規劃求解()
For i = 1 To 30
      SolverOk SetCell:="$J$" & i, MaxMinVal:=3, ValueOf:="0", ByChange:="$B$" & i
      SolverSolve UserFinish:=True
      'SolverFinish KeepFinal:=1, ReportArray:=Array(1) '1 表示建立答案報告，2 表示建立敏感度報告，而 3 表示建立限制報告
Next
End Sub
這樣可以執行
但是當我的i 從  1 To 30  改成  1 To 1990  跑完我全部的時候  發現跑很久  結果跑完後  數值都沒改變!!  但一次調整小範圍就可以執行

m06o2~~~~

TOP

ML089