Trợ giúp về Solver VBA code

[phibonaxi]

Chào các anh chị,
Tôi có record macro dùng solver. Nhưng sau đó gọi lại thì báo lỗi, tôi có gửi file đính kèm.
Xin nhờ trợ giúp!

Thân!

 

[ndu96081631]

Chào các anh chị,
Tôi có record macro dùng solver. Nhưng sau đó gọi lại thì báo lỗi, tôi có gửi file đính kèm.
Xin nhờ trợ giúp!

Thân!

- Bấm Alt + F11 vào cửa sồ soạn thảo code
- Vào menu Tools\References và check vào mục SOLVER




- Xong, chạy lại code

 

[phibonaxi]

Cám ơn thầy Ndu đã giúp đỡ.
Trong cửa sổ References của em không có mục SOLVER, em đã vào Browse... nhưng vẫn không tìm thấy file solver.xla hay solver.xlam.
Mong thầy giúp đỡ đoạn code để chọn SOLVER trong cửa sổ References.

Cám ơn thầy rất nhiều.!

 

[phibonaxi]

Em đã add được SOLVER vào References.
Còn phần VBA code mong thầy giúp đỡ.

 

[ndu96081631]

Em đã add được SOLVER vào References.
Còn phần VBA code mong thầy giúp đỡ.

Code VBA của bạn có thể rút gọn lại thành:

Sub MSolver()
  SolverReset
  SolverAdd "$B$1", 1, "$B$2"
  SolverAdd "$B$2", 1, "$B$3"
  SolverAdd "$B$1", 3, "0.1"
  SolverAdd "$B$1", 2, "1-$B$2-$B$3"
  SolverOk "$C$1", 2, "0", "$B$1:$B$3"
  SolverSolve True
End Sub

Lưu ý rằng tôi chỉ rút gọn code, không chỉnh sửa bất cứ thứ gì liên quan đến ý đồ Solver của bạn cả