Cần tìm Add in làm hiện tất cả các sheet

[chuongnguyen777]

Do file excel của em bao gồm rất là nhiều sheet ( khoảng 150 sheet) trong quá trình làm việc em ẩn đi cho khỏi rối, giờ muốn hiện ra để thực hiện lệnh in, bác nào có cách nào làm nhanh giúp em với, chứ làm thủ công vậy lâu quá.
Em xin chân thành cám ơn!

 

[dmtcvn]

Bạn phải nói rõ bạn đã ẩn đi bằng cách nào hoặc đưa file lên thì mới có người giúp bạn được chứ.

 

[ndu96081631]

Bạn phải nói rõ bạn đã ẩn đi bằng cách nào hoặc đưa file lên thì mới có người giúp bạn được chứ.

Đâu cần biết ẩn bằng cách nào cũng hiện ra được mà bạn
Ví dụ

Sub UnHideAllSh()
  Dim Ws As Worksheet
  On Error Resume Next
  For Each Ws In ActiveWorkbook.Worksheets
    Ws.Visible = -1
  Next
End Sub

 

[khoavu87]

Do file excel của em bao gồm rất là nhiều sheet ( khoảng 150 sheet) trong quá trình làm việc em ẩn đi cho khỏi rối, giờ muốn hiện ra để thực hiện lệnh in, bác nào có cách nào làm nhanh giúp em với, chứ làm thủ công vậy lâu quá.
Em xin chân thành cám ơn!

Cái này chỉ cần thế này là hiện tất.

Sub an()
For i = 1 To Sheets.Count
Sheets(i).Visible = True
Next
End Sub

 

[namkpac]

Đâu cần biết ẩn bằng cách nào cũng hiện ra được mà bạn
Ví dụ

Sub UnHideAllSh()
  Dim Ws As Worksheet
  On Error Resume Next
  For Each Ws In ActiveWorkbook.Worksheets
    Ws.Visible = -1
  Next
End Sub

Em chào anh anh ơi anh giúp em cái file .xla mà mình không mở được sheet là sao anh nhỉ.

 

[ndu96081631]

Em chào anh anh ơi anh giúp em cái file .xla mà mình không mở được sheet là sao anh nhỉ.

cứ cài addin vào máy, xong vào cửa sổ VBA, chọn Thisworkbook rồi thay đổi property IsAddIn cho = False là thấy toàn bộ sheet