Tính ngày nghỉ hưu theo Nghị định 135/2020/ND-CP ngày 18/11/2020. Tôi chỉ biết dùng hàm IF nên hơi dài dòng.
http://www.mediafire.com/file/m58odxr7vurer42/ND135_TinhNghiHuu.rar/file
Mong các bạn sửa lại ngắn gọn hơn hoặc dùng VBA thì càng tốt.
Có phải là (180 x 10) + 8 = 1808 (sản phẩm) không? Bạn trình bày không rõ, file đưa lên lại càng không rõ. Bạn nên chỉnh sửa lại, có nhiều người sẽ giúp bạn.
Tôi nghĩ bạn nên tập trung vào ngày thu. Ý của bạn muốn là ngày thu sẽ tự động thay đổi một năm 4 lần? Ngày thay đổi là ngày 10 của tháng thu? Bạn nên nói rõ ý mình để mọi người giúp.
Sub DongCuoi()
Dim ws As Worksheet
Dim LastRow As Integer
Set ws = ActiveSheet
'Tim lastRow cua sheet
LastRow = ws.UsedRange.Rows(ws.UsedRange.Rows.Count).Row
MsgBox "LastRow cua Sheet la: " & LastRow
End Sub
Tôi tìm được trên mạng.