Cần giúp Macro xóa sheet thời gian định trước

[nguahoangsad]

Cần anh em giúp!
Mình muốn một Macro để xóa các sheet 1; 2; 3... theo một thời gian định sẳn nào đó.
có anh em nào giúp mình với.

 

[nguahoangsad]

Có anh em nào giúp mình với. Thanks AE nhiều!

 

[Lê Duy Thương]

Cần anh em giúp!
Mình muốn một Macro để xóa các sheet 1; 2; 3... theo một thời gian định sẳn nào đó.
có anh em nào giúp mình với.

Không có gì là không thể , nhưng có điều không có file thì có giúp bạn cũng không hiểu.

 

[nguahoangsad]

Vi du:
Hiện tại mình có một file lịch bóng đá, trong file bao gồm các sheet sau: "Schedule"; "Bracket"; "Teams"; "Settings" và "About"
ở đây mình muốn vào ngày 10/07/2016 sheet "Schedule" sẽ tự động xóa nếu file này được mở lên.
tiếp theo vào ngày 15/07/2016 thì sheet "Bracket" sẽ bị xóa nếu file tiếp tục được mở lên....
và tương tự các sheet còn lại sẽ tự bị xóa theo ngày mình định sẳn trong macro trước đó.
file đính kèm:

Thanks @Lê Duy Thương giúp mình cái này với

 

[Lê Duy Thương]

Vi du:
Hiện tại mình có một file lịch bóng đá, trong file bao gồm các sheet sau: "Schedule"; "Bracket"; "Teams"; "Settings" và "About"
ở đây mình muốn vào ngày 10/07/2016 sheet "Schedule" sẽ tự động xóa nếu file này được mở lên.
tiếp theo vào ngày 15/07/2016 thì sheet "Bracket" sẽ bị xóa nếu file tiếp tục được mở lên....
và tương tự các sheet còn lại sẽ tự bị xóa theo ngày mình định sẳn trong macro trước đó.
file đính kèm:

Thanks @Lê Duy Thương giúp mình cái này với

Đương nhiên là làm được nhưng nếu người dùng Disible macro thì tôi chịu và họ vẫn sử dụng file này bình thường. bạn nên nghic cách khác đi nhé.

 

[nguahoangsad]

Đương nhiên là làm được nhưng nếu người dùng Disible macro thì tôi chịu và họ vẫn sử dụng file này bình thường. bạn nên nghic cách khác đi nhé.

! he he! Thôi chỉ mình code macro bằng cách này đi. Thank!

 

[nguahoangsad]

Đương nhiên là làm được nhưng nếu người dùng Disible macro thì tôi chịu và họ vẫn sử dụng file này bình thường. bạn nên nghic cách khác đi nhé.

Chỉ giúp mình , cái này mình chưa hiểu lắm
làm như thế này mà nó không chạy được , có gì sai chỉ tiếp hộ mình

Sub DelWs()
Application.DisplayAlerts = False
Dim Ws As Worksheet, WsName
For Each Ws In ThisWorkbook.Worksheets
If UCase(Ws.Name) = "SHEET2" And Now <= "28/06/2016" Then
Ws.Delete
End If
Next Ws
Application.DisplayAlerts = True
End Sub

 

[quanluu]

Chỉ giúp mình , cái này mình chưa hiểu lắm
làm như thế này mà nó không chạy được , có gì sai chỉ tiếp hộ mình

Sub DelWs()
Application.DisplayAlerts = False
Dim Ws As Worksheet, WsName
For Each Ws In ThisWorkbook.Worksheets
If UCase(Ws.Name) = "SHEET2" And Now <= "28/06/2016" Then
Ws.Delete
End If
Next Ws
Application.DisplayAlerts = True
End Sub

Mình thấy trong file của bạn đâu có SHEET2
Cái thức 2 nữa là Now phải là >=
thứ 3, format date mỗi máy khác nhau nên ko nên viết trc tiếp ngày mà dùng Dateserial

 

[nguahoangsad]

Mình thấy trong file của bạn đâu có SHEET2
Cái thức 2 nữa là Now phải là >=
thứ 3, format date mỗi máy khác nhau nên ko nên viết trc tiếp ngày mà dùng Dateserial

@Quangluu1989
Sửa trực tiếp trên file này giúp mình với.

 

[quanluu]

@Quangluu1989
Sửa trực tiếp trên file này giúp mình với.

thế này thui

Sub DelWs()
Application.DisplayAlerts = False
Dim Ws As Worksheet, WsName
For Each Ws In ThisWorkbook.Worksheets
    If UCase(Ws.Name) = "SHEET2" And Now >= DateSerial(2016, 6, 28) Then
        Ws.Delete
    End If
Next Ws
Application.DisplayAlerts = True
End Sub

 

[nguahoangsad]

thế này thui

Sub DelWs()
Application.DisplayAlerts = False
Dim Ws As Worksheet, WsName
For Each Ws In ThisWorkbook.Worksheets
    If UCase(Ws.Name) = "SHEET2" And Now >= DateSerial(2016, 6, 28) Then
        Ws.Delete
    End If
Next Ws
Application.DisplayAlerts = True
End Sub

Cảm ơn nhiều. @Quangluu1989

 

[nguahoangsad]

vẫn chưa chạy được bạn ơi!

 

[quanluu]

vẫn chưa chạy được bạn ơi!

Bạn kt lại thế nào, mình chạy có vấn đề gì đâu. Bạn chạy sub, Sheet2 có bị xóa ko?

 

[nguahoangsad]

Bạn kt lại thế nào, mình chạy có vấn đề gì đâu. Bạn chạy sub, Sheet2 có bị xóa ko?

Để mình kiêm tra lại mình vừa lập file mới chạy thì sheet2 xóa được. còn đưa đoạn mã trên vào file mình đang dùng thì chưa được.

 

[khang2303]

vẫn chưa chạy được bạn ơi!

Đúng là không chạy được. bạn nguahoangsad chạy được chưa? share cho anh em cái nào!

 

[quanluu]

Đúng là không chạy được. bạn nguahoangsad chạy được chưa? share cho anh em cái nào!

bạn đọc code là xoá sheet có tên là sheet 2 và thoả mãn ngày, k biết bạn bảo k chạy đc là như thế nào? Bạn đã enable macro chửa?

 

[khang2303]

bạn đọc code là xoá sheet có tên là sheet 2 và thoả mãn ngày, k biết bạn bảo k chạy đc là như thế nào? Bạn đã enable macro chửa?

Tôi đã enable marco rồi mà không được. bạn chỉnh sửa giúp nhé. cảm ơn nhiều!

 

[phulien1902]

Tôi đã thử & thấy việc xóa Sheet2 hoàn toàn bình thường.