Cách mở sheet ẩn trong excel
Bạn đang xem: Cách mở sheet ẩn trong excel
vào Excel không tồn tại tính năng Unhide toàn bộ những Sheet sẽ đặt ẩn , nhưng các bạn vẫn ao ước làm cố kỉnh nào để thực hiện được câu hỏi này ?Cách thức như sau
Mở file Excel đang có tương đối 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 để open sổ Microsoft Visual Basic .
Bấm thực đơn Insert > Module , các bạn 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 lại Excel và chạy macro mang tên gọi UnhideAllSheets
Tuy nhiên vì chưng một lí bởi vì nào đó bạn có nhu cầu 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 & sSheetName
Msgres = MsgBox(sMessage, vbYesNo)
If Msgres = vbYes Then wsSheet.Visible = xlSheetVisible
kết thúc If
Next wsSheet
End Sub
Và bạn chỉ cần chạy macro UnhideSomeSheets
Họ và tên *
Email của chúng ta *
lời nhắn *
Các tin khác
Excel : Đổi chữ cái đầu tiên thành viết hoa không thay đổi những phần còn sót lại Excel : Tìm giá bán trị phệ nhất với nhiều điều khiếu nại Excel : Chèn số trang vào một trong những ô cùng một loạt đầy đủ ô trong các số đó có cất 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 đông đảo số 0 sinh hoạt đầu ô Excel : tái diễn số liên tục Excel : kiếm tìm kiếm các giá trị trả về theo mặt hàng ngang Excel : Gỡ quăng quật những kí tự quan trọng đặc biệt không phải vần âm Xóa toàn bộ công thức chỉ còn lại giá trị trong toàn bộ các SheetHỗ trợ trực tuyến
hotline
04.35141.375
Hỗ trợ kỹ thuật
1088