Како добити имена листова помоћу ВБА у Мицрософт Екцелу
У случају да желите да сазнате начин на који можете добити сва имена листа која су видљива, односно нису скривена.
У овом чланку ћемо научити како добити имена само видљивих листова, користећи ВБА код.
Питање): Имам више листова у једној датотеци и сакрио сам листове које не желим да други виде; Желим шифру која ће ми дати назив свих видљивих листова.
Узмимо у обзир да имамо 5 листова и намерно скривамо одређени лист.
Да бисмо добили назив видљивих листова, морамо да следимо следеће кораке:
- Кликните на картицу Девелопер
- Из групе кодова изаберите Висуал Басиц
Копирајте доњи код у стандардни модул
Суб ВисиблеСхеетс ()
Дим и Ас Интегер, ј Ас Интегер: ј = 1
Ћелије (1, 1) .ЦуррентРегион.Целлс.Цлеар
Фор и = 1 То Схеетс.Цоунт
Ако су листови (и) .Висибле = -1 Тада
Ћелије (ј, 1) = Табеле (и). Име
ј = ј + 1
Крај Ако
Следећи
Енд Суб
- Када први пут покренете код, добићете имена свих листова у тренутном листу у колони А
- Ако сакријемо Јан лист, имаћемо следећу листу назива листова
На овај начин, помоћу вба кода, можемо добити назив свих видљивих листова.
Преузимање - Како доћи до назива листова помоћу вба - клсм