QuangMinhtb
Thành viên hoạt động



- Tham gia
- 31/10/19
- Bài viết
- 171
- Được thích
- 34
Thân ái chào anh, chị cùng toàn thể các bạn trên GPE.
Tôi có biết đến code VBA dùng để xóa sheet đã ẩn
Nhờ các bạn giúp đỡ tôi sửa lại code để khi Run code thì hiện lên thông bảo hỏi (có/không xóa các sheet đã ẩn) và tương ứng với 02 tùy chọn là "có" hoặc "không". Chọn có sẽ xóa tất cả các sheet đã ẩn, chọn không thì không xóa
Các bạn giúp tôi nhé! Cảm ơn mọi người.
Tôi có biết đến code VBA dùng để xóa sheet đã ẩn
Nhờ các bạn giúp đỡ tôi sửa lại code để khi Run code thì hiện lên thông bảo hỏi (có/không xóa các sheet đã ẩn) và tương ứng với 02 tùy chọn là "có" hoặc "không". Chọn có sẽ xóa tất cả các sheet đã ẩn, chọn không thì không xóa
Các bạn giúp tôi nhé! Cảm ơn mọi người.
Mã:
Sub DeleteHiddenSheets()
Application.DisplayAlerts = False
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Visible <> -1 Then
sh.Visible = -1
sh.Delete
End If
Next
Application.DisplayAlerts = True
End Sub