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

[trinh16]

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

 

[jangzang]

Em cũng chỉ nhặt của các bác trong diễn đàn thôi. 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

 

[Quang_Hải]

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

Cách thì có nhiều, nhưng xin hỏi tại sao phải xóa?

 

[VetMini]

Cách thì có nhiều, nhưng xin hỏi tại sao phải xóa?

Đã có vài người "sáng kiến" này rồi. Điển hình gởi file chào hàng cho người ta, đến hết hạn thì muốn xóa.

Thực ra đây là một trong những phương án dở nhất. Nhưng dân GPE quen vòi code rồi, cứ vòi đấy rồi xài không được đã chết ai?
Bên vòi code hoàn toàn chả mất gì.
Bên viết code từ đầu chỉ thích viết code, thực dụng hay không thì họ đâu phải người dùng mà cần nghĩ tới.
Hai bên đều có lợi.

 

[anhdepjai]

Mình hỏi chat gpt có luôn đây này, copy nguyên bộ lên đó:
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

 

[Hoàng Tuấn 868]

Mình hỏi chat gpt có luôn đây này, copy nguyên bộ lên đó:
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

Code này mà tệp tin đã đổi tên thì code vô tác dụng.

 

[VetMini]

Code này mà tệp tin đã đổi tên thì code vô tác dụng.

Code chả khác gì chọn file và bấm Delete.
Chả hiểu bỏ công hỏi Chat GTP mần cái gì.

 

[Hoàng Tuấn 868]

Code chả khác gì chọn file và bấm Delete.
Chả hiểu bỏ công hỏi Chat GTP mần cái gì.

Chọn file và bấm Delete thì đổi tên file cũng còn xóa được, chứ code thấy file đổi tên rồi thì code ngồi khóc anh ạ.

 

[anhdepjai]

Thử hộ tôi, 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

Bài đã được tự động gộp: 20/9/23

Code chả khác gì chọn file và bấm Delete.
Chả hiểu bỏ công hỏi Chat GTP mần cái gì.

Thì tôi thấy 1 câu hỏi mà mấy câu trả lời không đi vào trọng tâm nên tôi nhờ chat gpt

 

[VetMini]

...
Thì tôi thấy 1 câu hỏi mà mấy câu trả lời không đi vào trọng tâm nên tôi nhờ chat gpt

Câu trả lời của thằng chát ấy đâu có giải quyết được vấn đề. Tại bạn lo "trọng tâm" mà không nhìn thấy chi tiết.
Nếu nhờ thằng chát đó thì nhờ cho trót. Hỏi cặn kẽ hơn.

Hai chi tiết quan trọng mà bạn đã bỏ qua:
1. Thớt nói "xóa" tức là gì? Có hai cách xóa là hủy bỏ file, và hủy dữ liệu (file vẫn còn đó)
2. Cách chọn file thế nào. Theo code của thằng chát kia cho bạn thì cứ mỗi file lại phải vào chỉnh code.

 

[befaint]

Cái trọng điểm ở đây là tự xoá.
Tức là không cần mở file cần xoá lên cũng xoá phăng teo cái file đó.
Và có khi không cần mở máy tính lên file đó cũng tự xoá.

Nếu phải mở file lên thì thớt rút điện chắc nhanh hơn.

 

[VetMini]

Cái trọng điểm ở đây là tự xoá.
...

"Trọng điểm" chỉ có giá trị đối với người tương đối biết code. Họ chỉ cần gợi ý chính và chỉnh sửa những phần còn lại.

Điều trên rất ít khi áp dụng cho GPE. Dân ở đây đã hỏi code là muốn code trọn vẹn 100%, có khi còn luôn cả nhờ cài giùm.

Vì vậy, chi tiết mới quan trọng. Thớt không cho biết chi tiết thì phải tìm cách moi ra. Chứ làm kiểu "bước nào hay bước nấy" như bài #5 thì chỉ làm cho các chủ thớt thêm lười thôi.

 

[huhumalu]

Vậy chắc phải bổ sung thêm phương án cho chắc ăn.
Ví dụ mình gửi file cho người khác, họ nén lại (zip, rar) << lưu lại trên cloud, hoặc sever để lưu trữ. Họ hoàn toàn có thể recover lại file này.
Nên phải kiểu như tới thời gian, gửi đoạn mã sang Triều Tiên, bùm cái nổ luôn máy tính, nát sever local và sever cloud...

 

[VetMini]

Vậy chắc phải bổ sung thêm phương án cho chắc ăn.
..

Bổ cái mốc xì. Từ đầu đến giờ chỉ có bà con bàn nhảm chứ thớt có thiết tha gì đâu.
Chỉ một vài người sốt sắng làm tới trước khi thực sự biết thớt có cái gì và muốn làm gì.

 

[anhdepjai]

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