Điều này hoàn toàn có thể làm cho quy trình hiện nhiều sheet mất rất mất thời hạn, đặc biệt quan trọng nếu bạn muốn hiện tổng thể những sheets trong một workbook. Vì vậy, trong bài viết này, Gitiho sẽ hướng dẫn những bạn 3 cách khác nhau để nhanh gọn hiển thị nhiều sheet đồng thời .
Mục lục
Cách 1 : Câu lệnh hiển thị hàng loạt những Sheet trong VBA
Cách nhanh nhất để hiển thị tất cả các sheet trong Excel là sử dụng macro (VBA). Dòng mã VBA dưới đây sẽ sử dụng vòng lặp For Next Loop để lặp qua từng sheet trong workbook đang hoạt động và hiển thị từng sheet.
For Each ws In Sheets:ws.Visible=True:Next
Bạn hoàn toàn có thể chạy mã này trong hành lang cửa số VB Editor’s Immediate ngay lập tức chỉ trong ba bước đơn thuần :Bước 1 : Trong hành lang cửa số tệp Excel cần hiển thị nhiều sheet đồng thời đang mở, bạn bấm tổng hợp phím Alt + F11 để mở cửa sổ Microsoft Visual Basic for Applications .Bước 2 : Tiếp tục nhấn tổng hợp phím Ctrl + G để mở cửa sổ Immediate .Bước 3 : Copy và dán dòng mã sau vào hành lang cửa số Immediate và nhấn Enter .
For Each ws In Sheets:ws.Visible=True:Next
Hình ảnh dưới đây sẽ cho những bạn thấy cách tiến hành những bước này .
Dòng mã trên sẽ lặp qua toàn bộ những sheet trong workbook và đặt thuộc tính hiển thị của mỗi sheet thành “ True ”. Điều này làm cho mỗi sheet hoàn toàn có thể nhìn thấy, cũng giống như việc bỏ ẩn mỗi sheet .Ký tự dấu hai chấm “ : ” được sử dụng trong mã trên về cơ bản sẽ phối hợp nhiều dòng mã thành một dòng. Điều này làm cho nó hoàn toàn có thể chạy trong hành lang cửa số Immediate ngay lập tức vì hành lang cửa số Immediate chỉ nhìn nhận một dòng mã tại một thời gian .
Cách 2 : Sử dụng macro để hiện nhiều sheets theo vòng lặp
Nếu bạn đang phân vân với dòng mã đó trong cách 1 thì phần này sẽ giúp lý giải rõ hơn. Mã macro bên dưới về cơ bản là cùng một dòng mã như cách 1 ở trên, nhưng nó được chia thành nhiều dòng. Điều này làm cho nó thuận tiện hơn để đọc và hiểu .
Sub Unhide_Multiple_Sheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub
Các dòng trong đoạn mã trên mở màn bằng “ For ” và “ Next ” đại diện thay mặt cho một For-Next Loop tiếp theo. Dòng tiên phong “ For Each ws In ActiveWorkbook. Worksheets ” nhu yếu macro lặp qua từng worksheet trong hàng loạt worksheets của workbook .Dòng đó cũng tham chiếu đến biến “ ws ” và đặt nó đại diện thay mặt cho đối tượng người tiêu dùng worksheet. Điều này có nghĩa là “ ws ” tạm thời đại diện thay mặt cho worksheet hiện tại trong vòng lặp .
Khi dòng mã “ Next ws ” được nhấn, macro sẽ nhảy ngược trở lại dòng mã tiên phong trong vòng lặp và nhìn nhận lại nó. Nó liên tục lặp qua toàn bộ những sheet trong worksheet của workbook ( Activeworkbook. Worksheets ) .Sau đó, tất cả chúng ta hoàn toàn có thể sử dụng “ ws ” bên trong vòng lặp để biến hóa những thuộc tính của worksheet hiện tại. Trong trường hợp này, chúng tôi đang đặt thuộc tính “ Visible ” của sheet ở chính sách hiển thị ( xlSheetVible ). Thuộc tính visible có ba tùy chọn khác nhau để lựa chọn :• xlSheetHidden
• xlSheetVeryHidden
• xlSheetVible
Bạn cũng hoàn toàn có thể đặt thuộc tính thành “ True ”, hoạt động giải trí giống như xlSheetVible .Hiện những sheet có tên đơn cửĐiều gì sẽ xảy ra nếu tất cả chúng ta chỉ muốn hiện những sheet có chứa từ ” pivot ” trong tên sheet ? Trong trường hợp đó tất cả chúng ta hoàn toàn có thể thêm một câu lệnh IF đơn thuần vào macro để chỉ hiện những sheet có chứa tên hoặc văn bản đơn cử .
Sub Unhide_Sheets_Containing()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If InStr(ws.Name, "pivot") > 0 Then
ws.Visible = xlSheetVisible
End If
Next ws
End Sub
Hàm InStr sẽ tìm kiếm văn bản trong một chuỗi và trả về vị trí Open tiên phong của văn bản. Nó là viết tắt của InString và tính năng này tựa như như những hàm SEARCH hoặc FIND trong Excel .Vì vậy, trong trường hợp này, chúng tôi đang tìm kiếm bất kể sheet nào có chứa từ “ pivot ” trong tên sheet. Tham chiếu “ ws.name ” trả về tên của sheet hiện đang được nhìn nhận trong vòng lặp For-Next Loop .Vì vậy, dòng này “ If InStr ( ws. Name, “ pivot ” ) > 0 Then ” về cơ bản cho biết, nếu từ “ pivot ” được tìm thấy trong tên sheet thì hàm hướng dẫn sẽ trả về 1 số ít lớn hơn 0. Câu lệnh IF sẽ đánh giá thành True và dòng mã tiếp theo sẽ được chạy để hiện sheet .Nếu từ “ pivot ” không được tìm thấy trong tên sheet, thì câu lệnh IF sẽ nhìn nhận là False và mã sẽ bỏ lỡ tổng thể những dòng cho đến khi đến dòng “ End If ”. Do đó, sheet hiện đang được nhìn nhận trong vòng lặp sẽ giữ thuộc tính hiển thị hiện tại của nó ( hiển thị hoặc ẩn ) .Mã macro trên hoạt động giải trí tốt nếu bạn cần ẩn và hiện những sheet hàng ngày, hàng tuần hoặc hàng tháng chỉ cho một bảng tài liệu Excel thao tác liên tục. Và nó sẽ chạy mã macro để hiện những sheet đơn cử khi bạn mở workbook để khởi đầu thao tác .Sau khi hoàn tất, hãy chạy cùng một mã nhưng đổi khác thuộc tính hiển thị thành xlSheetHidden để ẩn lại những sheet ( bạn hoàn toàn có thể tạo macro mới cho việc này ) .Tham khảo :
Cách để tạo MENU ẩn hiện Sheet theo ý muốn trong Excel bằng VBA
Xem thêm khóa học tin học văn phòng online Tuyệt đỉnh Excel – để trở thành bậc thầy Excel trong 16 giờ
Bên cạnh đó, để không bỏ lỡ những mẹo và thủ pháp tin học văn phòng có ích khác, hãy theo dõi Gitiho ngay thời điểm ngày hôm nay .
Tài liệu kèm theo bài viết
Unhide Multiple Sheets Macro.xlsmTải xuống
Source: https://expgg.vn
Category: Thông tin