Nhờ mọi người giúp mình cách file excel, word tự xóa theo từng thời điểm ạ.

Chia sẻ bởi:hands

★★★★★

‹ [Giúp đỡ] Tìm kiếm, lọc và lấy... Add-In .xlam trộn dữ liệu Excel vào... ›

Quảng cáo

giúp mình cách file excel, word tự xóa theo từng thời điểm ạ.

Chỗ bôi đỏ là thời gian theo định dạng number

Sub Auto_Open()

If Format(Date, "#") >= 99999 Then

ThisWorkbook.Sheets("ABC").Range("A5").ClearContents

End If

End Sub

Hoặc:

Sub XoaTepExcelVaoNgay2024()
    Dim NgayMucTieu As Date
    Dim TenTep As String

' Đặt ngày mục tiêu là 1 tháng 1 năm 2024
    NgayMucTieu = DateSerial(2024, 1, 1)

' Đặt tên tệp Excel hiện tại
    TenTep = ThisWorkbook.FullName

' Kiểm tra nếu ngày hiện tại lớn hơn hoặc bằng ngày mục tiêu
    If Date >= NgayMucTieu Then
        ' Tắt các thông báo cảnh báo khi xóa tệp
        Application.DisplayAlerts = False

' Xóa tệp Excel hiện tại
        Kill TenTep

' Mở thông báo sau khi xóa tệp (tùy chọn)
        Application.DisplayAlerts = True

' Thoát khỏi ứng dụng Excel
        Application.Quit
    End If
End Sub

Copy nguyên bộ lên đó, copy code vào 1 file quan trọng của bạn, đổi ngày 1/1/2023. Đưa vào sự kiện workbook open
Rồi lưu file. sau đó ra ngoài đổi tên hộ tôi cái xem chuyện gì xảy ra.
Trước tôi có nghĩ thế này. khi mình làm 1 file gì đó tốt cho quy trình, xong rồi nghĩ lúc mình bị đẩy ra thì phí công và muốn hủy đi những cái mình đã cải thiện.
Sau rồi lên phương án, mỗi khi file active nó sẽ check với 1 file khác (Status) trong mạng LAN, nếu file Status đó còn tồn tại và trạng thái ON thì nó hoạt động bình thường, còn nếu OFF thì file quy trình sẽ tự hủy.

Nhưng sau, khi ngẫm lại, việc tự hủy đó xem ra dễ hơn là việc mình để lại cái gì sau khi rời đi. nên cái suy nghĩ ban đầu đã không còn nữa