Cách lấy tên trang tính bằng VBA trong Microsoft Excel

Trong trường hợp bạn muốn tìm ra cách có thể giúp bạn có được tất cả các tên của trang tính có thể nhìn thấy được tức là không bị ẩn.

Trong bài viết này, chúng ta sẽ tìm hiểu cách chỉ lấy tên của các trang tính hiển thị bằng mã VBA.

Câu hỏi): Tôi có nhiều trang tính trong một tệp & tôi đã ẩn các trang tính mà tôi không muốn người khác nhìn thấy; Tôi muốn một mã sẽ cung cấp cho tôi tên của tất cả các trang tính có thể nhìn thấy.

Hãy xem chúng tôi có 5 trang tính và chúng tôi cố tình ẩn một trang tính cụ thể.

Để có được tên của các sheet hiển thị, chúng ta cần làm theo các bước sau:

Nhấp vào tab Nhà phát triển Từ nhóm Mã, chọn Visual Basic

img1

Sao chép đoạn mã dưới đây trong mô-đun chuẩn

Sub VisibleSheets ()

Dim i As Integer, j As Integer: j = 1

Ô (1, 1) .CurrentRegion.Cells.Clear

Đối với i = 1 To Sheets.Count

If Sheets (i) .Vible = -1 Then

Cells (j, 1) = Sheets (i) .Name

j = j + 1

Kết thúc Nếu

Tiếp theo

End Sub

===

img2

  • Lần đầu tiên khi bạn chạy mã, bạn sẽ nhận được tên của tất cả các trang tính trong trang tính hiện tại trong cột A

img3

  • Nếu chúng ta ẩn trang tính Jan thì chúng tôi sẽ có danh sách tên trang tính sau

img4

Bằng cách này, chúng tôi có thể lấy tên của tất cả các trang tính có thể nhìn thấy, sử dụng mã vba.

image 4