Cách xóa bỏ các sheet trong cửa sổ VBE

[geminstone]

Thân gởi các bạn trên diễn đàn!
Mình có file excel viết VBA, tuy nhiên khi vào cửa sổ VBE khi xem Microsoft excel objects như file kèm theo có hiện tượng tạo ra nhiều sheet ảo, gây mất thời gian hiển thị.
Rất mong các bạn chỉ dẫn, cách khắc phục (loại bỏ)
Chân thành cám ơn!

 

[ptlong04x1]

Thì bạn Unhide các Sheet và xoá bỏ chúng trong môi trường Excel như bình thường thôi.

 

[nghiaphuc]

Thân gởi các bạn trên diễn đàn!
Mình có file excel viết VBA, tuy nhiên khi vào cửa sổ VBE khi xem Microsoft excel objects như file kèm theo có hiện tượng tạo ra nhiều sheet ảo, gây mất thời gian hiển thị.
Rất mong các bạn chỉ dẫn, cách khắc phục (loại bỏ)
Chân thành cám ơn!

Bạn sử dụng code sau để cho các anh chàng này xuất đầu lộ diện. Sau đó, bạn muốn xử sao thì tùy bạn:

Sub ShowHiddenSheets()
    Dim Ws As Worksheet
    For Each Ws In ThisWorkbook.Worksheets
        Ws.Visible = -1
    Next
End Sub

 

[viehoai]

Thân gởi các bạn trên diễn đàn!
Mình có file excel viết VBA, tuy nhiên khi vào cửa sổ VBE khi xem Microsoft excel objects như file kèm theo có hiện tượng tạo ra nhiều sheet ảo, gây mất thời gian hiển thị.
Rất mong các bạn chỉ dẫn, cách khắc phục (loại bỏ)
Chân thành cám ơn!

Bạn chạy thử cái này nhé

Sub XoaSheet()
Dim Sh As Worksheet
On Error Resume Next
For Each Sh In ThisWorkbook.Worksheets
  Sh.Visible = xlSheetVisible
  If InStr(1, UCase(Sh.Name), "X") > 0 Then Sh.Delete
Next
End Sub

 

[geminstone]

Rất cám ơn các bạn nhưng mình đã mở file excel và chọn Unhide thì vẫn không thấy các sheets đó. Các sheets đó chỉ xuất hiện khi vào cửa sổ VBE

 

[geminstone]

Xin hỏi bạn, vì sao lại có hiện tượng tạo ra nhiều sheets như vậy, nó có lặp lại hay kg?

 

[ndu96081631]

Rất cám ơn các bạn nhưng mình đã mở file excel và chọn Unhide thì vẫn không thấy các sheets đó. Các sheets đó chỉ xuất hiện khi vào cửa sổ VBE

Bạn Unhide ở ngoài bảng tính có thể không được đối với sheet siêu ẩn đâu...
Ta làm như sau:
- Trong cửa sổ VBA, bấm F4 để hiện cửa sổ Properties Window
- Nhấp chuột cọn sheet ẩn trong cửa sổ Project
- Nhìn xuống cửa số Properties Window, mục Visible, bấm mũi tên xổ xuống và chọn -1-xlSheetVisible
- Tiếp tục thao tác như trên với những sheet ẩn khác

 

[ptlong04x1]

Bạn đưa file lên sẽ rõ, có lẽ các Sheet bị "Siêu ẩn" --> "VeryHidden"