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

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

論壇贊助勳章

22^#

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

回復 20# ML089
有喔我手動改了!

m06o2~~~~

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

論壇贊助勳章

21^#

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

回復 18# ML089
我解決了，原來是因為中間有不能解的把那個刪除就可以了!

m06o2~~~~

版主 Rank: 7 Rank: 7 Rank: 7

ML089

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

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

20^#

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

回復 19# m06o2

[E3:E30] = 1
初始值有修改嗎?

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

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

論壇贊助勳章

19^#

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

回復 18# ML089
我測試 1-100也還OK 約1分鐘但我cpu是i7的跑大概只需要15分鐘 2000筆

m06o2~~~~

版主 Rank: 7 Rank: 7 Rank: 7

ML089

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

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

18^#

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

回復 17# m06o2

昨天我有測試 99筆還OK，
要執行1~2000筆會很久吧?
晚上我再試試

目前沒有想法可以解決

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

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

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

論壇贊助勳章

16^#

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

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

m06o2~~~~

Scott090

高中生 Rank: 3 Rank: 3

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

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

版主 Rank: 7 Rank: 7 Rank: 7

ML089

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