Tìm các số cộng khi biết trước tổng số

[binbin2006]

Gởi các anh chi GPE!
Mình có bài toán cần giải: Ngân hàng chuyển một số tiền giải ngân cho nhiều người vay mà không báo chi tiết giải ngân cho những người nào.
Có cách nào để tìm được những người vay trong một cột khi biết trước được tổng số không?
Các anh chị giúp mình với nha.
Cám ơn nhiều!
Gởi kèm File EXCEL CNPHAITHU18122010

 

[ndu96081631]

Gởi các anh chi GPE!
Mình có bài toán cần giải: Ngân hàng chuyển một số tiền giải ngân cho nhiều người vay mà không báo chi tiết giải ngân cho những người nào.
Có cách nào để tìm được những người vay trong một cột khi biết trước được tổng số không?
Các anh chị giúp mình với nha.
Cám ơn nhiều!
Gởi kèm File EXCEL CNPHAITHU18122010

Xem bài này:
http://www.giaiphapexcel.com/forum/showthread.php?34932-Cần-lọc-danh-sách-khách-hàng
Chủ đề này đã nói bao nhiêu lần rồi, sao không tìm kiếm trước khi hỏi nhỉ?

 

[binbin2006]

Cám ơn bạn đã chỉ giúp.
Nhưng lại gặp phải rắc rối mới là Solver cho đáp án sai.
Cụ thể: nếu chọn Changing Cells từ D229 Solver cho đáp án khác.
nếu chọn Changing Cells từ D215 Solver cho đáp án khác.

 

[ndu96081631]

Cám ơn bạn đã chỉ giúp.
Nhưng lại gặp phải rắc rối mới là Solver cho đáp án sai.
Cụ thể: nếu chọn Changing Cells từ D229 Solver cho đáp án khác.
nếu chọn Changing Cells từ D215 Solver cho đáp án khác.

trời! Điều đó đương nhiên thôi.... Changing Cells bạn chọn khác nhau thì kết quả cũng khác chứ (chẳng lẽ giống)

 

[binbin2006]

Cám ơn bạn đã trả lời.
Nhưng thật tiếc là giải pháp này không giải quyết được bài toán của mình rồi.
Có ai tìm được cách giải quyết tốt hơn không nhỉ?
Thanks!

 

[ndu96081631]

Cám ơn bạn đã trả lời.
Nhưng thật tiếc là giải pháp này không giải quyết được bài toán của mình rồi.
Có ai tìm được cách giải quyết tốt hơn không nhỉ?
Thanks!

Chán bạn quá!
Tôi viết thành code luôn đây, bạn chỉ việc nhập số tiền vào cell F1 rồi nhấn nút 1 phát là ra kết quả ----> Những dòng nào được tô màu chính là những người đã trả tiền

Sub RunSolver()
  Application.ScreenUpdating = False
  Range("D2:D29").Value = 0
  SolverReset
  SolverOk "$H$1", 3, Range("F1").Value, "$D$2:$D$29"
  SolverAdd "$D$2:$D$29", 5, "binary"
  SolverSolve True
  Application.ScreenUpdating = True
End Sub

Xem file ----> Nếu bạn không biết cách dùng code VBA thế nào thì... ẹc... ẹc... tiếp tục học thêm
Nói thêm: Bài này chỉ có 1 cách duy nhất là dùng SOLVER, bạn đừng trông chờ CÁCH KHÁC gì đó (chẳng có đâu)

 

[thivantan]

Chán bạn quá!
Tôi viết thành code luôn đây, bạn chỉ việc nhập số tiền vào cell F1 rồi nhấn nút 1 phát là ra kết quả ----> Những dòng nào được tô màu chính là những người đã trả tiền

Sub RunSolver()
  Application.ScreenUpdating = False
  Range("D2:D29").Value = 0
  SolverReset
  SolverOk "$H$1", 3, Range("F1").Value, "$D$2:$D$29"
  SolverAdd "$D$2:$D$29", 5, "binary"
  SolverSolve True
  Application.ScreenUpdating = True
End Sub

Xem file ----> Nếu bạn không biết cách dùng code VBA thế nào thì... ẹc... ẹc... tiếp tục học thêm
Nói thêm: Bài này chỉ có 1 cách duy nhất là dùng SOLVER, bạn đừng trông chờ CÁCH KHÁC gì đó (chẳng có đâu)

Anh Ndu ơi, em chạy code bị báo lỗi ở dòng SolverReset.

 

[ndu96081631]

Anh Ndu ơi, em chạy code bị báo lỗi ở dòng SolverReset.

Đã dùng đến Solver thì đương nhiên phải gọi Add-In Solver! Vậy bạn đã vào menu Tools\Add-Ins và check mục Solver Add-In chưa? Trong cửa sổ code, bạn đã vào menu Tools\References và check mục SOLVER chưa?

 

[thivantan]

Bây giờ em mới biết giải pháp Solver, thật bổ ích và nhiều ứng dụng. Cảm ơn anh nhiều.

 

[tam8678]

Chán bạn quá!
Tôi viết thành code luôn đây, bạn chỉ việc nhập số tiền vào cell F1 rồi nhấn nút 1 phát là ra kết quả ----> Những dòng nào được tô màu chính là những người đã trả tiền

Sub RunSolver()
  Application.ScreenUpdating = False
  Range("D2:D29").Value = 0
  SolverReset
  SolverOk "$H$1", 3, Range("F1").Value, "$D$2:$D$29"
  SolverAdd "$D$2:$D$29", 5, "binary"
  SolverSolve True
  Application.ScreenUpdating = True
End Sub

Xem file ----> Nếu bạn không biết cách dùng code VBA thế nào thì... ẹc... ẹc... tiếp tục học thêm
Nói thêm: Bài này chỉ có 1 cách duy nhất là dùng SOLVER, bạn đừng trông chờ CÁCH KHÁC gì đó (chẳng có đâu)

---
Chú cho anh hỏi thêm, với dạng bài này mà thêm vào điều kiện ( ví dụ như trong cùng 1 ngày hoặc cùng 1 mã khách hàng ) và viết dưới dạng hàm tự tạo thì có thể viết code được không hả chú ? Chúc vui

 

[ndu96081631]

---
Chú cho anh hỏi thêm, với dạng bài này mà thêm vào điều kiện ( ví dụ như trong cùng 1 ngày hoặc cùng 1 mã khách hàng ) và viết dưới dạng hàm tự tạo thì có thể viết code được không hả chú ? Chúc vui

Anh thử cho ít dữ liệu lên đây để minh họa đi ---> Em nghĩ rằng cũng sẽ làm bằng Solver thôi chứ không viết thành hàm tự tạo được đâu

 

[tam8678]

Anh thử cho ít dữ liệu lên đây để minh họa đi ---> Em nghĩ rằng cũng sẽ làm bằng Solver thôi chứ không viết thành hàm tự tạo được đâu

---
Anh đã gởi file đính kèm trong bài 10 nhờ chú xem giúp.
(nhờ mod xóa giúp bài này, trân trọng)

 

[ndu96081631]

---
Chú cho anh hỏi thêm, với dạng bài này mà thêm vào điều kiện ( ví dụ như trong cùng 1 ngày hoặc cùng 1 mã khách hàng ) và viết dưới dạng hàm tự tạo thì có thể viết code được không hả chú ? Chúc vui

Anh xem trong file đính kèm này nha! Mọi thao tác vẫn như file trước, chỉ có cái khác duy nhất là công thức tại cell H1:

=SUMPRODUCT(($A$2:$A$70=$G$1)*($B$2:$B$70)*($C$2:$C$70))

Vậy vấn đề quan trọng là xây dựng được công thức cho Target cell mà thôi anh nhỉ?

 

[tam8678]

Anh xem trong file đính kèm này nha! Mọi thao tác vẫn như file trước, chỉ có cái khác duy nhất là công thức tại cell H1:

=SUMPRODUCT(($A$2:$A$70=$G$1)*($B$2:$B$70)*($C$2:$C$70))

Vậy vấn đề quan trọng là xây dựng được công thức cho Target cell mà thôi anh nhỉ?

---
Hơi bất ngờ với cách giải quyết, nhưng mà rất hay , còn trong các trường hợp:
- Nếu công thức tại cell H1 đem vào trong code và vùng từ A2 đến A70 thay đổi bằng A2 đến A....và
- Nếu số tiền nhập vào tại cell H1>F1 (trường hợp số tiền đã trả > số tiền phải trả = số tiền ứng trước) khi run code muốn cho ra thông báo đó là số tiền ứng trước. 2 trường hợp trên code được viết như thế nào hả chú ? ( làm phiền chú quá ). Mong