Xoá sheet ẩn thì vào đâu?

[tuvn254]

Xoá các sheet ẩn thì vào đâu nhỉ các bác nhỉ?

 

[cadafi]

Xoá các sheet ẩn thì vào đâu nhỉ các bác nhỉ?

trước hết bạn phải unhide sheet ẩn cái đã, có hai cách unhide:
1. Format/Sheet/Unhide
2. Ấn Alt+F11, vào properties của sheet cần Unhide, tìm đến thuộc tính Visible và chọn là -1 - xlSheetVisible

 

[ndu96081631]

Xoá các sheet ẩn thì vào đâu nhỉ các bác nhỉ?

Muốn hiện các sheet đang ẩn thì mất công chứ muốn xóa hết các sheet đang ẩn thì:
Chạy code này:

Sub XoaSheet()
 Dim Sh As Worksheet
 Application.DisplayAlerts = False
 For Each Sh In ThisWorkbook.Worksheets
   If Sh.Visible <> -1 Then Sh.Visible = -1: Sh.Delete
 Next Sh
 Application.DisplayAlerts = True
End Sub

Làm 1 nhát xóa hết, rảnh nợ
Nhưng bạn phải chắc ăn rằng các sheet ẩn ấy không phải do bạn tạo ra, nếu không nó xóa nhầm ráng chịu nhé!

 

[rollover79]

Muốn hiện các sheet đang ẩn thì mất công chứ muốn xóa hết các sheet đang ẩn thì:
Chạy code này:

Sub XoaSheet()
 Dim Sh As Worksheet
 Application.DisplayAlerts = False
 For Each Sh In ThisWorkbook.Worksheets
   If Sh.Visible <> -1 Then Sh.Visible = -1: Sh.Delete
 Next Sh
 Application.DisplayAlerts = True
End Sub

Làm 1 nhát xóa hết, rảnh nợ
Nhưng bạn phải chắc ăn rằng các sheet ẩn ấy không phải do bạn tạo ra, nếu không nó xóa nhầm ráng chịu nhé!

Chơi ác thế ndu , ít ra cũng phải confirm lại 1 cái chứ. Không thì làm đẹp cho người ta 1 cái list liệt kê những Sheet đang ẩn cho người ta chọn cái nào để xóa. Chứ đánh quả tù mù thế này, làm 1 phát đi hết, mà cũng ko biết là đi những gì, đi bao nhiêu và đi trong bao lâu thì ác quá

 

[ndtdlhagiang]

Mình mạn phép sửa code nột tí nhé: chạy code này sẽ hiện tất cả các sheet đang ẩn lên. sau đó muốn xóa sheet nào thì xoá

Sub hienSheet()
Dim Sh As Worksheet
Application.DisplayAlerts = False
For Each Sh In ThisWorkbook.Worksheets
If Sh.Visible <> -1 Then Sh.Visible = -1
Next Sh
Application.DisplayAlerts = True
End Sub

 

[rollover79]

Mình mạn phép sửa code nột tí nhé: chạy code này sẽ hiện tất cả các sheet đang ẩn lên. sau đó muốn xóa sheet nào thì xoá

Sub hienSheet()
Dim Sh As Worksheet
Application.DisplayAlerts = False
For Each Sh In ThisWorkbook.Worksheets
If Sh.Visible <> -1 Then Sh.Visible = -1
Next Sh
Application.DisplayAlerts = True
End Sub

Nếu hiện lên thì đâu cần dùng macro đâu bạn, mà nếu dùng macro thì cũng không cần cái điều kiện If... như trên.

 

[ndu96081631]

Nếu hiện lên thì đâu cần dùng macro đâu bạn, mà nếu dùng macro thì cũng không cần cái điều kiện If... như trên.

Đúng thế! Chỉ cần:

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

Còn vụ này:

Chơi ác thế ndu , ít ra cũng phải confirm lại 1 cái chứ. Không thì làm đẹp cho người ta 1 cái list liệt kê những Sheet đang ẩn cho người ta chọn cái nào để xóa. Chứ đánh quả tù mù thế này, làm 1 phát đi hết, mà cũng ko biết là đi những gì, đi bao nhiêu và đi trong bao lâu thì ác quá

Nhờ sư phụ làm giúp nhé!