Tôi có bài toán sau:
Có 1 sổ quản lý "tiết kiệm " tôi muốn lọc sếp theo thứ tự xem sổ nào đến kỳ rút tiền trước thì làm thế nào :
Bạn cứ hình dung như 1 Cụ về hưu có 100 sổ Tiết kiệm ấy mà (muốn biết đến thời điểm hiện tại sẽ rút số nào về tiêu mà ko bị "thiệt"), trong ví dụ trên SỔ thứ nhất có ngày gửi là 10-1-2000 sẽ được rút ra vào các ngày 10-11 và dĩ nhiên 10-1 hàng nămtigertiger đã viết:Oh, file này bạn chỉ cần sort (sắp xếp) theo cột ngày tháng là được mà: Data \ sort ... , hay yêu cầu gì khác vậy?
Chắc bạn hiểu sai ý mình, nên bạn ko dùng gì đến giá trị ở cột Kỳ hạn.SA_DQ đã viết:Bạn làm cái cột phụ bên cạnh cái cột ngày đến hạn;
Công thức từng ô trong nó sẽ là:
="A" & YEAR(D2) & RIGHT("0" &MONTH(D2);2) & RIGHT("0" & DAY(D2);2)
& Sắp xếp lại theo cột này & cho ẩn nó đi cho đẹp;
Của bạn còn lệch âm 1 ngàyBạn có thể tính tương đối ngày lĩnh lãi gần nhất bằng công thức sau
=TODAY()+(B5-MOD(DAYS360(C5,$C$2)/30,B5))*30
Kéo Fill công thức xuống hết cột sổ tk
Sau đó sắp xếp lại theo thứ tự như trong File đính kèm .
Chúc bạn thành công .
Option Explicit
Function NgayDH(Dat As Date, KyHan As Byte) As Date
Dim DTemp As Date: Dim jZ As Integer
For jZ = 1 To 999
DTemp = DateAdd("M", jZ * KyHan, Dat)
If DTemp > Date Then
NgayDH = DTemp: Exit For
End If
Next jZ
End Function