Как да получите имена на листове с помощта на VBA в Microsoft Excel
В случай, че искате да разберете начин, по който можете да получите всички имена на листа, които са видими, т.е.не са скрити.
В тази статия ще научим как да получаваме имена само на видимите листове, използвайки VBA код.
Въпрос): Имам няколко листа в един файл и съм скрил листовете, които не искам другите да виждат; Искам код, който ще ми даде името на всички видими листове.
Нека помислим, че имаме 5 листа и умишлено скриваме определен лист.
За да получим име на видимите листове, трябва да изпълним следните стъпки:
- Кликнете върху раздела Разработчик
- От групата Кодове изберете Visual Basic
Копирайте кода по -долу в стандартния модул
Sub VisibleSheets ()
Dim i като цяло число, j като цяло число: j = 1
Клетки (1, 1) .CurrentRegion.Cells.Clear
За i = 1 към листа
Ако Sheets (i) .Visible = -1 Тогава
Клетки (j, 1) = Листове (i). Име
j = j + 1
Край Ако
Следващия
End Sub
- Първият път, когато стартирате кода, ще получите имената на всички листове в текущия лист в колона А
- Ако скрием листа Jan, ще имаме следния списък с имената на листа
По този начин можем да получим името на всички видими листове, използвайки vba код.
Изтегляне - Как да получите имена на листове с vba - xlsm