Как получить имена листов с помощью VBA в Microsoft Excel

Если вы хотите найти способ получить все имена листов, которые видны, то есть не скрыты.

В этой статье мы узнаем, как получить имена только видимых листов, используя код VBA.

Вопрос): у меня несколько листов в одном файле, и я скрыл листы, которые не хочу, чтобы другие видели; Мне нужен код, который даст мне имена всех видимых листов.

Допустим, у нас есть 5 листов, и мы намеренно скрываем конкретный лист.

Чтобы получить имя видимых листов, нам нужно выполнить следующие шаги:

Щелкните вкладку «Разработчик». В группе «Код» выберите Visual Basic

img1

Скопируйте приведенный ниже код в стандартный модуль

Sub VisibleSheets ()

Dim i как целое число, j как целое число: j = 1

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

Для i = 1 To Sheets.Count

Если Sheets (i) .Visible = -1, то

Ячейки (j, 1) = Листы (i). Имя

j = j + 1

Конец Если

Далее

End Sub

===

img2

  • При первом запуске кода вы получите имена всех листов текущего листа в столбце A

img3

  • Если мы скроем лист Jan, то у нас будет следующий список имен листов

img4

Таким образом, мы можем получить имена всех видимых листов, используя код vba.

image 4