Code vba xóa sheet có điều kiện

Chia sẻ bởi:hands

★★★★★

‹ Huyện và Xã ngẫu nhiên khi nhập... Tính tổng số tiền >=20 triệu với... ›

Quảng cáo

Nếu vi phạm nội quy thì nhờ các bạn nhắc nhở để mình sửa bài.)

Mình tìm trên GPE thấy nhiều code xóa sheet, nhưng chưa thấy đoạn code mình định nhờ nên lập topic này nhờ các bạn giúp.
Nhờ các bạn giúp 2 đoạn code xóa sheet với điều kiện:
Đoạn 1: Xóa các sheet có tên là các con số, và các sheet có tên là số và chữ (số phải đứng trước chữ) (vd: 1, 2, …, 22, 23,…, 16-chữ, 17-chữ,…) miễn tìm sheet nào có tên dạng 'số' và 'số-chữ' là xóa.
Đoạn 2: Xóa tất cả các sheet, trừ sheet hiện hành và sheet ẩn (nếu có) với dòng thống báo 'Chắc chưa? Xóa nhầm đừng hối hận'

Mình cảm ơn!

(Các bạn thông cảm, vì cùng code xóa sheet, cùng 1 người hỏi, và cùng 1 thời điểm hỏi nên mình gom 2 đoạn code lại 1 topic này cho tiện.
Nếu vi phạm nội quy thì nhờ các bạn nhắc nhở để mình sửa bài.)

Dim sh As Worksheet
đoạn 1 tương ứng yêu cầu 1
'For Each sh In Worksheets
'   If IsNumeric(sh.Name) Or IsNumeric(Left(sh.Name, 1)) Then
'     sh.Cells.Clear
'   End If
'Next

đoạn 2 tương ứng yêu cầu 2
For Each sh In Worksheets
   If sh.Name <> ActiveSheet.Name And sh.Visible = True Then
     sh.Cells.Clear
   End If
Next

xem có đáp ứng yêu cầu của bạn không