Cần làm tạo ra 1 nút lệnh có chứa code VBA thực thi như sau: |
Dò trong bảng B, nếu số tiền >0 thì lấy "Ngày tính lãi" ở ô C1 trừ "Ngày cuối tính lãi" trong bảng A cộng 1 ra "số ngày", dò tiếp điều kiện tính "số ngày" như sau: |
- DK1: Dò Nếu "ngày cuối" trong bảng A nhỏ hơn ngày 30/06/2009 và nhỏ hơn ngày 30/06/2009 thì chia ra 2 giai đoạn tính lãi với 2 mức lãi suất, sau đó tạo 1 sheet "Ket qua" và copy kết quả tính ra như KQ1 trong sheet "Ket qua" |
- DK2: Dò Nếu "ngày cuối" trong bảng A lớn hơn ngày 30/06/2009 và nhỏ hơn ngày 30/06/2009 thì chia ra 2 giai đoạn tính lãi với 2 mức lãi suất, sau đó tạo 1 sheet "Ket qua"và copy kết quả tính ra '- như KQ2 trong sheet "Ket qua"; Nếu KQ1 đã có thì KQ2 cũng nối vô trong cùng bảng với KQ1 |
- DK3: Dò Nếu "ngày cuối" trong bảng A lớn hơn hoặc bằng ngày 30/11/2011 thì chỉ có 1 giai đoạn tính lãi với 1 mức lãi suất, sau đó tạo 1 sheet "Ket qua" và copy kết quả tính ra như KQ3 trong sheet "Ket qua"; Nếu KQ1, KQ2 đã có thì KQ3 cũng nối vô trong cùng bảng với KQ1, KQ2 |
cuối cùng sum lại trong sheet "ket qua" |
==> Lưu ý: lúc đầu chưa có sheet "ket qua" mà chì có sheet "nguon", chỉ khi click vô nút lệnh thì mới tại ra sheet "ket qua" |
Dò trong bảng B nếu có nhiều hơn 2 giá trị > 0 thì khi ra kết quả đều đưa vào chung trong sheet "ket qua". Đính kèm File Ví dụ. |