Bạn đang xem: Hiện tất cả các sheet ẩn trong excel
trong Excel không có tính năng Unhide toàn bộ những Sheet đang đặt ẩn , nhưng bạn vẫn ao ước làm vậy nào để triển khai được bài toán này ?Cách thức như sau
Mở tệp tin Excel đang có rất nhiều Sheet sẽ đặt ẩn mà bạn có nhu cầu Unhide và một lúc .
Bấm tổ hợp Alt-F11 để xuất hiện sổ Microsoft Visual Basic .
Bấm thực đơn Insert > Module , chúng ta copy nội dung mặt dưới
Sub UnhideAllSheets()
Dim wsSheet As Worksheet
For Each wsSheet In ActiveWorkbook.Worksheets
wsSheet.Visible = xlSheetVisible
Next wsSheet
End Sub
Quay quay trở lại Excel với chạy macro mang tên gọi UnhideAllSheets
Tuy nhiên do một lí vày nào đó bạn muốn Unhide từng Sheet bạn phải chọn thì sử dụng đoạn mã mặt dưới
Sub UnhideSomeSheets()
Dim sSheetName As String
Dim sMessage As String
Dim Msgres As VbMsgBoxResult
For Each wsSheet In ActiveWorkbook.Worksheets
If wsSheet.Visible = xlSheetHidden Then
sSheetName = wsSheet.Name
sMessage = "Ban teo muon Unhide sheet nay khong ?" _
& vbNewLine và sSheetName
Msgres = MsgBox(sMessage, vbYesNo)
If Msgres = vbYes Then wsSheet.Visible = xlSheetVisible
end If
Next wsSheet
End Sub
Và bạn chỉ cần chạy macro UnhideSomeSheets
Họ cùng tên *
Email của khách hàng *
tin nhắn *
Các tin khác
Excel : Đổi chữ cái đầu tiên thành viết hoa giữ nguyên những phần sót lại Excel : Tìm giá trị khủng nhất với nhiều điều khiếu nại Excel : Chèn số trang vào một ô cộng một loạt đông đảo ô trong những số ấy có chứa cả lỗi Excel không tự động hóa tính toán sau khi biến đổi số liệu Excel : Xóa phần lớn số 0 ngơi nghỉ đầu ô Excel : tái diễn số tiếp tục Excel : kiếm tìm kiếm các giá trị trả về theo hàng ngang Excel : Gỡ quăng quật những kí tự đặc biệt quan trọng không phải chữ cái Xóa tổng thể công thức chỉ giữ lại giá trị trong tất cả các SheetXem thêm: Thiếu Lâm Tự Truyền Kỳ Thiếu Lâm Tự Phần 2, Truyền Thuyết Thiếu Lâm Tự Phần 2
Hỗ trợ trực tuyến
hotline
04.35141.375
Hỗ trợ kỹ thuật
1088