Cho phép hỏi về cách làm hiện lại các sheet đã ẩn

Liên hệ QC

NewBie2019

Thành viên mới
Tham gia
1/10/19
Bài viết
21
Được thích
0
Giới tính
Nữ
Xin lỗi các Anh chị trong GPE, khi mình lại hỏi về cách hiển thị lại sheet (một số bài trên GPE mình đã đọc và áp dụng như vẫn không mở được sheet ẩn -
như bài viết https://www.giaiphapexcel.com/diend...ng-tuyệt-chiêu-trong-excel.14768/#post-109446, và nhiều nhiểu nữa)
0.png
và rồi toolBar Format cũng không có
1.png
cũng như dùng chuột phải trên Tab sheet
2.png
và dù đã hiển thị trong option/advance
3.png
Vì vậy nhờ các Anh chị chỉ giúp cách hiển thị này
Xin cám ơn
 
Xin lỗi các Anh chị trong GPE, khi mình lại hỏi về cách hiển thị lại sheet (một số bài trên GPE mình đã đọc và áp dụng như vẫn không mở được sheet ẩn -
như bài viết https://www.giaiphapexcel.com/diendan/threads/tổng-hợp-những-tuyệt-chiêu-trong-excel.14768/#post-109446, và nhiều nhiểu nữa)
View attachment 227632
và rồi toolBar Format cũng không có
View attachment 227633
cũng như dùng chuột phải trên Tab sheet
View attachment 227634
và dù đã hiển thị trong option/advance
View attachment 227636
Vì vậy nhờ các Anh chị chỉ giúp cách hiển thị này
Xin cám ơn
Câu hỏi của bạn có thể xảy ra 02 trường hợp sau đây:
1/ Trường hợp 01: Không có sheet nào ẩn thì chữ Unhide nó mờ đi.
2/ Trường hợp 02: Nếu sheet ẩn ở dạng này 2-xlsheetVeryHidden, thì chữ Unhide nó cũng mờ đi.
Nếu có nhiều sheet ẩn ở dạng này muốn bỏ ẩn hàng loạt thì phải sử dụng VBA.
 
Câu hỏi của bạn có thể xảy ra 02 trường hợp sau đây:
1/ Trường hợp 01: Không có sheet nào ẩn thì chữ Unhide nó mờ đi.
2/ Trường hợp 02: Nếu sheet ẩn ở dạng này 2-xlsheetVeryHidden, thì chữ Unhide nó cũng mờ đi.
Nếu có nhiều sheet ẩn ở dạng này muốn bỏ ẩn hàng loạt thì phải sử dụng VBA.
Em thấy bài 1 ở hinh thứ nhất ở trong VBA hiện thị có 2 sheets.Vậy có trường hợp nào ẩn luôn được cả trong VBA không anh nhỉ.
 
Bạn thử tham khảo Add-ins này xem có đáp ứng được nhu cầu của bạn không
Add-ins
 
Cách hiển thị các sheet ẩn dù cho ẩn dạng 2-xlsheetVeryHidden.
.......................................................................................
Vì vậy nhờ các Anh chị chỉ giúp cách hiển thị này
Xin cám ơn
Thử code sau:
Mã:
Sub BoAn_TatCaCacSheets()
Application.DisplayAlerts = False
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
   If Not sh.Visible = xlSheetVisible Then
      sh.Visible = xlSheetVisible
   End If
Next
Application.DisplayAlerts = True
End Sub
 
xin cám ơn sự giúp đỡ các anh /chị
Mình làm được rồi
Thanks
 
Web KT
Back
Top Bottom