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

Thảo luận trong 'Lập Trình với Excel' bắt đầu bởi geminstone, 6 Tháng ba 2012.

  1. geminstone

    geminstone New Member

    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!
     

    Các file đính kèm:

  2. ptlong04x1

    ptlong04x1 Well-Known Member

    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.
     
  3. nghiaphuc

    nghiaphuc Hoàng Nghĩa Phúc

    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:
    PHP:
    Sub ShowHiddenSheets()
        
    Dim Ws As Worksheet
        
    For Each Ws In ThisWorkbook.Worksheets
            Ws
    .Visible = -1
        Next
    End Sub
     
  4. viehoai

    viehoai GPE mỗi ngày

    Bạn chạy thử cái này nhé
    PHP:
    Sub XoaSheet()
    Dim Sh As Worksheet
    On Error Resume Next
    For Each Sh In ThisWorkbook.Worksheets
      Sh
    .Visible xlSheetVisible
      
    If InStr(1UCase(Sh.Name), "X") > 0 Then Sh.Delete
    Next
    End Sub
     
  5. geminstone

    geminstone New Member

    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
     
  6. geminstone

    geminstone New Member

    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?
     
  7. ndu96081631

    ndu96081631 Well-Known Member

    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

    Untitled.jpg
     
  8. ptlong04x1

    ptlong04x1 Well-Known Member

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

Chia sẻ trang này