Đăng ký học Excel và VBA cùng GPE tháng 10 - TPHCM

Đăng ký học Excel và VBA cùng GPE tháng 11 - TPHCM

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 Thành viên mới

    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 Thành viên tích cực

    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 Staff Member

    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 Thành viên mới

    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 Thành viên mới

    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 Ăn cùng GPE, Ở cùng GPE, Sống cùng GPE Staff Member Super Moderator

    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 Thành viên tích cực

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

Chia sẻ trang này