]] XL-mania [[ Excel Solver 2010 mengskip constraint lewat VBA

 

Dear All, 

saya mau tanya, saya buat code vba untuk excel solver untuk mensetting constraints dan menjalankan solver. 

kode itu saya buat untuk dijalankan di 2 tab yang berbeda yang memiliki posisi cell yang sama, hanya beda input, 

pertanyaan saya, kenapa di tab yang pertama (tab using macro di file attachment) itu jalan dengan sempurna. 

tetapi di tab yang kedua (tab Using Macro corr enabl di file attachment) ada constraint yang di skip ? 

apakah ada kesalahan yang saya buat dalam penulisan nya ? 

mohon bantuan rekan2 semua. terima kasih 

FYI, bentuk code vba untuk solver yang saya buat adalah sebagai berikut : 

Sub solv()

Dim i As Integer

i = 21

For i = 21 To 122

   SolverReset

      SolverOk SetCell:="$H$" & i, MaxMinVal:=2, ValueOf:=0, ByChange:=Range("$D$" & i, "$G$" & i), _

        Engine:=1, EngineDesc:="GRG Nonlinear"

       

    SolverAdd CellRef:="$D$" & i, Relation:=1, FormulaText:="1"

    SolverAdd CellRef:="$E$" & i, Relation:=1, FormulaText:="1"

    SolverAdd CellRef:="$F$" & i, Relation:=1, FormulaText:="1"

    SolverAdd CellRef:="$G$" & i, Relation:=1, FormulaText:="1"

    SolverAdd CellRef:="$I$" & i, Relation:=2, FormulaText:="$C$" & i

    SolverAdd CellRef:="$J$" & i, Relation:=1, FormulaText:="150"

    SolverSolve True

    Range("C" & i).Activate

    Next i

    Range("C19:J19").Select

End Sub

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (1)

Recent Activity:

• New Members 61

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com                       |
| momods kebanyakan e-mail :(... unread di kantor 6 ribu lebih :(   |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___