Xin giúp bài toán lặp có điều kiện VBA

[edopth]

Tôi có bài toán tính lặp, tôi đã dùng kết hợp 2 công cụ Goal Seek và Solver nhưng vẫn mất nhiều thời gian nếu cứ làm thủ công như thế.
Nhờ các thành viên giúp đỡ. xin xem file đính kèm.

 

[Lam_A0]

Tài liệu KAS1 được lấy bên Sheets("Init")
Yêu cầu:       Tính RE1 và RE2 với KAS3 là biến:
 Điều kiện khống chế:
1> mức độ ưu tiên RE1  lớn nhất theo thứ tự ừ RE1(21) trở về, hạn chế KXA nhỏ nhất;     2> khi W2<TS thì KAS3=0:;    3>[COLOR=black]W2(21) = DS[/COLOR];    4> RE1 lớn nhất theo thứ từ [COLOR=red]RE1(21-i)  với i=0 đến 23[/COLOR] )    5> RE1 <=IC;     6>  KAS2 >=0;  KXA>=0;
[COLOR=red]Trong trường hợp KAS1 VÀ KAS2 lớn[/COLOR] thì sau khi tính KAS2 cho RE1  lớn nhất =IC = 58 và W2=TS thì W2 điều kiện 1 không cần thoả mãn vì RE1 đã cho giá trị cao nhất trong tất cả thời gian (Xem Sheets ("1-P").

Đọc điều kiện của anh một lúc thấy hoa mắt quá! Em không hiểu những chỗ màu đỏ, KAS1 và KAS2 lớn là lớn bao nhiêu?...Anh có thể mô tả cụ thể bài toán của mình theo dạng:
1. Viết công thức của RE1 và RE2 theo biến KAS3.
2. Viết công thức liên hệ của RE1, RE2 và KAS3 theo các điều kiện nêu trên.