Snasui Excel Forum

:D ประเด็นนี้ผมตอบไปแล้วตามโพสต์ #5 ครับ

ผมบันทึกด้วยมาโครครับ
แต่ไม่เข้าใจว่าทำไมบันทึกแล้ว
เอามาใช้งานกลับไม่เท่ากับที่กดปกติ

ถ้าถามว่าโค้ดถูกไหมผมว่าถูกถ้าบันทึกด้วยมาโครแล้วได้โค้ดนั้นมาครับ 😁

ผลลัพธ์เทียบกับทำด้วยมือไม่เท่ากันครับ

ถ้าไม่ค้าง ก็ต้องเช็คจากผลลัพธ์เทียบกับทำด้วยมือแหละครับ ถ้าผลลัพธ์ตรงกันก็ถือว่าถูกต้องแล้วครับ

มันไม่ค้างอยู่ครับ

ถ้าคลิก Solver แล้วมีค่าที่เราใส่จากโค้ดค้างอยู่ก็ใช้ได้ครับ 😀

Sub Macro1_Original()
    
    SolverReset
        
    SolverAdd CellRef:="$F$2", Relation:=2, FormulaText:="1"
    
    SolverOk SetCell:="$L$3", MaxMinVal:=2, ValueOf:=1, ByChange:="$H$3:$I$3", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
        
    SolverSolve
    
End Sub

สอบถามอาจารย์และพี่ๆ เพิ่มเติมครับ
ถ้าผมจะ Solver โดยให้ค่าใน Cell L3 น้อยที่สุด
โดยให้เปลี่ยนค่าใน H3:I3 และ F2 = 1
VBA แบบนี้ถูกต้องไหมครับ

[code]
Sub Macro1_Original()

SolverReset

SolverAdd CellRef:="$F$2", Relation:=2, FormulaText:="1"

SolverOk SetCell:="$L$3", MaxMinVal:=2, ValueOf:=1, ByChange:="$H$3:$I$3", _
Engine:=1, EngineDesc:="GRG Nonlinear"

SolverSolve

End Sub
[/code]

:D ไม่มีวิธีอื่นแนะนำนอกจากให้ไปสอบถามจากผู้สร้าง Add-ins โดยตรงครับ

อาจารย์พอมีวิธีคือแนะนำไหมครับ

ตอนแรกว่าจะทำ loop ต่อครับ
เพราะมีค่าที่ต้องการหาเยอะมาก
คิดว่า Manual ไม่หน้าจะไหว

:D กรุณา Update Version ที่ใช้ตามตัวอย่างใน Link นี้ด้วยครับ https://snasui.com/viewtopic.php?f=6&p=103177#p103177

สำหรับปัญหานี้ยังไม่พบวิธีแก้ครับ หากจะแก้ปัญหาเฉพาะหน้าคือสร้างด้วย Manual เอาไว้ก่อนแล้วค่อยเรียกใช้แทนสร้างและเรียกใช้ด้วย VBA เป็นครั้ง ๆ ไปครับ

Sub Macro1_Original()
    SolverReset
    
    SolverOk SetCell:="$L$3", MaxMinVal:=2, ValueOf:=0, ByChange:="$H$3:$I$3", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
        
    SolverAdd CellRef:="$F$2", Relation:=1, FormulaText:="1"
    
    SolverOk SetCell:="$L$3", MaxMinVal:=2, ValueOf:=0, ByChange:="$H$3:$I$3", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
        
    SolverAdd CellRef:="$H$3:$I$3", Relation:=3, FormulaText:="0"
    
    SolverOk SetCell:="$L$3", MaxMinVal:=2, ValueOf:=0, ByChange:="$H$3:$I$3", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
        
    SolverOk SetCell:="$L$3", MaxMinVal:=2, ValueOf:=0, ByChange:="$H$3:$I$3", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
   
    SolverSolve
End Sub

Sub Macro1_Modify_1()
    SolverReset

    SolverAdd CellRef:="$F$2", Relation:=1, FormulaText:="1"

    SolverAdd CellRef:="$H$3:$I$3", Relation:=3, FormulaText:="0"

    SolverOk SetCell:="$L$3", MaxMinVal:=2, ValueOf:=0, ByChange:="$H$3:$I$3", _
        Engine:=1, EngineDesc:="GRG Nonlinear"

    SolverSolve (True)
End Sub

สวัสดีครับ อาจารย์และพี่ๆ
ผมลองใช้งาน Solver โดยมี Condition
1. Cell M3:N3 >=0
2. Cell K2 = 1
3. ให้ค่า L3 มีค่าน้อยที่สุด
โดยให้เปลี่ยนค่าใน Cell H3:I3
พอผมกด Solver ตาม Condition ด้านบนได้ค่า = 2.283823
แล้วผมก็ Record Macro (Macro1_Original) แต่พอกดที่ Record Macro แล้วค่าที่ได้ = 1.260106
ผมเลยไปหาอ่านแล้วแก้ไข Code (Macro1_Modify_1) พอกดก็ได้ = 1.260106
เลยเข้าไปดูใน Solver ว่ามีอะไรแปลกไหมก็เจอว่า Condition ที่ใส่เข้าไปมีแต่ ข้อ 1 เลยไม่แน่ใจว่าเป็นเพราะสาเหตุนี้หรือไม่ที่ทำให้ไม่เท่ากัน แล้วถ้าแบบนี้ควรแก้ไขยังไงได้บ้างครับ
ขอบพระคุณมากครับ
[attachment=0]Test VBA Solver.xlsb[/attachment]

[code]
Sub Macro1_Original()
SolverReset

SolverOk SetCell:="$L$3", MaxMinVal:=2, ValueOf:=0, ByChange:="$H$3:$I$3", _
Engine:=1, EngineDesc:="GRG Nonlinear"

SolverAdd CellRef:="$F$2", Relation:=1, FormulaText:="1"

SolverOk SetCell:="$L$3", MaxMinVal:=2, ValueOf:=0, ByChange:="$H$3:$I$3", _
Engine:=1, EngineDesc:="GRG Nonlinear"

SolverAdd CellRef:="$H$3:$I$3", Relation:=3, FormulaText:="0"

SolverOk SetCell:="$L$3", MaxMinVal:=2, ValueOf:=0, ByChange:="$H$3:$I$3", _
Engine:=1, EngineDesc:="GRG Nonlinear"

SolverOk SetCell:="$L$3", MaxMinVal:=2, ValueOf:=0, ByChange:="$H$3:$I$3", _
Engine:=1, EngineDesc:="GRG Nonlinear"

SolverSolve
End Sub
[/code]

[code]
Sub Macro1_Modify_1()
SolverReset

SolverAdd CellRef:="$F$2", Relation:=1, FormulaText:="1"

SolverAdd CellRef:="$H$3:$I$3", Relation:=3, FormulaText:="0"

SolverOk SetCell:="$L$3", MaxMinVal:=2, ValueOf:=0, ByChange:="$H$3:$I$3", _
Engine:=1, EngineDesc:="GRG Nonlinear"

SolverSolve (True)
End Sub
[/code]