Nhờ anh chị hỗ trợ về hàm tự tạo bằng VBA, xác định ngày theo chu kỳ trong tương lai đáp ứng điều kiện

Chia sẻ bởi:hands

★★★★★

‹ Hàm xác định ngày hết hạn căn... Tìm kiếm dữ liệu ›

Quảng cáo

Kính chào các anh chị, chúc các anh chị sức khỏe.

Em là người mới học về Excel VBA, chủ yếu là thông qua các bài mẫu để chỉnh sửa và sử dụng chứ cũng chưa tự viết được hàm hoàn chỉnh.
Hôm nay, em có viết 1 hàm tự tạo bằng VBA để:
"Xác định 1 ngày kiểm tra trong tương lai theo chu kỳ là 3 tháng với điều kiện là ngày trong tương lai sẽ lớn hơn 1 ngày được xác định (ví dụ ngày điều kiện là 15/05/2023)"
Ví dụ:
Ngày tại ô B1 là 21/06/2018, chu kỳ là 3 tháng phải đánh giá lại 1 lần thì theo xác định tay thì nó sẽ là ngày 21/06/2023.
Khi em dùng vòng lặp để tạo công thức thì không hiểu vì sao kết quả lại ra con số khác. (chỉ có 2,3 dòng lệnh nhưng em ko biết vì sao ra kết quả sai, em cũng không hiểu được cách VBA vận hành)
Mong các anh chị giúp đỡ, em có Upfile đính kèm.
Cảm ơn các anh chị rất nhiều ạ.294893
Function ngay_tdls(ngay As Date)
    Dim i As Integer
    Dim ngay_bd As Date
        i = 0
        ngay_tdls = ngay
        ngay_bd = DateSerial(Month:=5, Day:=15, Year:=2023)
        Do While ngay_tdls < ngay_bd
            i = i + 3
            ngay_tdls = DateAdd("m", i, ngay_tdls)
        Loop
End Function

Sửa dòng: ngay_tdls = DateAdd("m", i, ngay_tdls)

thành: ngay_tdls = DateAdd("m", 3, ngay_tdls)

Dòng nảy dài: ngay_bd = DateSerial(Month:=5, Day:=15, Year:=2023)

Ngắn hơn một chút: ngay_bd = DateSerial(2023, 5, 15)

www.giaiphapexcel.com/diendan/threads/nh%E1%BB%9D-anh-ch%E1%BB%8B-h%E1%BB%97-tr%E1%BB%A3-v%E1%BB%81-h%C3%A0m-t%E1%BB%B1-t%E1%BA%A1o-b%E1%BA%B1ng-vba-x%C3%A1c-%C4%91%E1%BB%8Bnh-ng%C3%A0y-theo-chu-k%E1%BB%B3-trong-t%C6%B0%C6%A1ng-lai-%C4%91%C3%A1p-%E1%BB%A9ng-%C4%91i%E1%BB%81u-ki%E1%BB%87n.167063/