星期三, 12月 20, 2006

EXCEL規劃求解,好累人

這兩天一直在作規劃求解的案子,整合到VBA裡,一鍵完成!

一開始連抓取欄位都不會的我,現在已經完成了。

這邊分享給大家一下,順便作個紀錄。

EXCEL抓取資料表欄位使用:Worksheets("file").Range("A5").Value = DialogSheets("form").EditBoxes("text1_1").Text

而我是使用:Worksheets("file").Cells(i, j).Value = DialogSheets("form").EditBoxes("text" & (i - 4) & "_" & j).Text

這樣的格式可以使用回圈來輕鬆指定你要的欄位。

最困難的地方則是

Sheets("file").Select
SolverOk SetCell:="$M$9", MaxMinVal:=1, ValueOf:="0", ByChange:="$L$5:$L$6,$N$4:$N$7"
SolverDelete CellRef:="$I$" & s, Relation:=2, FormulaText:="1"
SolverAdd CellRef:="$I$" & (DialogSheets("form").EditBoxes("SelectItem").Text + 4), Relation:=2, FormulaText:="1"
SolverSolve

規劃求解的流程!

步驟為錄製巨集,再將巨集程式碼修改成自己所需要的,其中我利用了一個變數來紀錄上次的值以便修改時可以刪除!

這些算是我自己紀錄下次好查,如果有想要有圖片解說或是有問題再留言給我吧!

12 則留言:

  1. 你好...因為我現在也用線性規劃結合VBA,但是都會出現SolverOk沒有定義,但是我在工具的設定引用選項裏面找不到這個可以勾選,所以可以請大大教我一下嗎?...3Q...
    我的信箱是ziv725@yahoo.com.tw

    回覆刪除
  2. 你好!我目前也在用線性規劃結合VBA,但也遇到SolverOk沒有定義!請問這該怎麼處理?
    感謝你!!
    我的信箱是eg945@yahoo.com.tw

    回覆刪除
  3. 我也遇到同樣的問題

    請問有方法解嗎?

    謝謝

    abedofnails@gmail.com

    回覆刪除
  4. 錄製巨集搭配一點點VBA的變數以便切換畫面時記錄。

    回覆刪除
  5. Hi,我現在在寫VBA,也需要用到規畫求解的方法,請問可以跟你要圖片解說嗎? 謝謝你!!
    jerry11037@hotmail.com

    回覆刪除
  6. 你好:我也有些線性規劃結合VBA的問題,可以請教你嗎?這是我的信箱mu198512@gmail.com 麻煩你了

    回覆刪除
  7. 你好~我想請問一下你這種方式可以不用按確認嗎?可以給我看看圖解嗎?謝謝!!!
    我的e-mail:ethanching@Hotmail.com

    回覆刪除
  8. 要按確認來開始計算輸入的數值

    回覆刪除
  9. 你好:
    我也有些線性規劃的問題,可以請你提供VBA範例及圖解嗎?
    這是我的信箱major.mei@gmail.com
    謝謝!

    回覆刪除
  10. 你好:
    我最近也在學習怎麼用VBA來一次規劃求解龐大的數據
    而我是用規劃求解裡的最小值
    麻煩你了~感謝
    kilos50321@yahoo.com.tw

    回覆刪除
  11. 哈囉 您好~
    我也需要您的幫忙
    工作上也會用到規劃求解錄製vba
    我的mail是:
    jws0922jws@hotmail.com

    回覆刪除
  12. 哈囉 您好~
    我也需要您的幫忙
    工作上也會用到規劃求解錄製vba
    我的mail是:
    jws0922jws@hotmail.com

    回覆刪除