Hướng dẫn lấy ra danh sách tên các Sheet và tạo phím tắt đếm số lượng Sheet ẩn, hiện trong Excel

Việc lấy ra danh sách được tên các Sheet hiện có trong File Excel sẽ giúp cho việc kiểm tra và nắm bắt được các Sheet trong File Excel một cách rõ ràng hơn. Trường hợp File của bạn có ít Sheet thì có thể chưa phát sinh nhiều vấn đề nhưng khi số lượng Sheet ngày càng nhiều thì việc nắm bắt được các sheet sẽ trở nên rất cần thiết. Việc lấy ra danh sách tên các Sheet là bước đầu để từ đó có thể giúp cho việc tạo mục lục cho File Excel của bạn.

Để làm điều đó, ta mở trình soạn thảo VBA lên và có dòng Code như sau, ở đây trong File mình có 7 Sheet, thực hiện lặp qua các Sheet này và lần lượt lấy tên các Sheet đó vào Excel

Sub DS_Ws()
Dim j As Integer

For j = 1 To Sheets.Count
Sheet7.Cells(j + 1, 1).Value = Sheets(j).Name
Next j
End Sub

Biến j được khai báo thuộc kiểu Integer  ở trên sẽ chạy từ Sheet đầu tiên tới Sheet cuối cùng trong File Excel của bạn và sau đó thực hiện ghi vào Excel tên của Sheet đó (Sheets(j).Name)

Vừa rồi ta đã thực hiện được 1 Sub để lấy ra danh sách tên của các Sheet hiện có trong Excel một cách khá nhanh chóng, Nếu như bạn muốn mình tạo 1 Function trong VBA để lấy ra tên sheet thì sao.

Nếu như bạn muốn tạo 1 Function để lấy ra tên Sheet hiện tại, ta có Code khá đơn giản như sau:

Function MySheet() As String
MySheet = ActiveSheet.Name
End Function

Sau khi đã Record Macro, trong phần Shortcut key bạn giữ phím Shift và gõ 1 ký tự nào đó để tạo phím tắt (phím tắt đó sẽ không được trùng với bất kỳ phím tắt nào hiện có trong hệ thống), ở mình gõ phím tắt là Ctrl + Shift + M

Dừng việc Record Macro, sau đó ta sẽ mở trình soạn thảo VBA lên và sửa lại đoạn Code thành như sau:

MsgBox “Tong so Sheets la: ” & Sheets.Count

Chỉ cần như vậy thôi là bạn đã lại có thêm 1 phím tắt để biết được trong File Excel của mình có bao nhiêu Sheet rồi, và phím tắt là Ctrl + Shift + M

Cũng với việc Record Macro và phần Shortcut key ở đây mình gõ là Ctrl + Shift + N

Ta sửa lại Code như sau để thực hiện đếm số lượng Sheet đang ẩn trong File Excel.

Bạn có thể hiểu đoạn Code trên như sau: Khai báo 1 biến Ws thuộc đối tượng Worksheet, thực hiện lặp qua tất cả các Sheet trong File Excel và kiểm tra xem Sheet đó có đang ẩn hay không (Ws.Visible = False).

• Nếu không có Sheet nào ẩn (tức j = 0) thì sẽ thông báo không có Sheet nào ẩn với Msgbox,
• Nếu đang ẩn thì sẽ tính và cuối cùng sẽ hiện ra thông báo số Sheet đang ẩn với Msgbox.

Nếu bạn tạo phím tắt giống mình thì cùng ấn Ctrl + Shift  + N để thực hiện

Như vậy bài viết đã hướng dẫn cho bạn cách tạo phím tắt đếm số lượng và cách tạo phím tắt đếm số lượng Sheet ẩn, hiện trong Excel. Chỉ cần vài thao tác đơn giản, bạn đã có thể đếm số lượng một cách nhanh chóng. Chúc các bạn thành công!