Како генерисати листу скривених табела помоћу ВБА
Листове радне свеске можете учинити невидљивим помоћу команде "Формат - Лист - Сакриј". Тада је и даље могуће приступити садржају табеле помоћу формуле, али табела више није видљива.
Ако вам је потребна листа свих скривених радних листова у активној радној свесци, можете користити следећи макро:
Суб ЛистХидденТаблесОн ()
Дим Табле као радни лист, НевТабле као радни лист
Дим ЦуррентМаппе Ас Воркбоок
Дим и Ас Интегер
Подесите ЦуррентМаппе = АцтивеВоркбоок
Сет НеуеТабелле = Воркбоокс.Адд.Схеетс (1)
За сваку табелу у ЦуррентМаппе.Ворксхеетс
Ако је Табле.Висибле = Фалсе Тада
и = и + 1
НевТабле.Целлс (и, 1) .Валуе = Табле.Наме
Крај Ако
Следећа табела
Енд Суб
Макро се провлачи кроз све радне листове и проверава својство Видљиво. Ако није задовољан, ради се о скривеној табели. Затим се назив листа преноси на листу.
Макро наводи имена свих скривених радних листова у табели у новој радној свесци.
Слика приказује резултат макроа када у активној радној свесци постоје три скривена радна листа: „Скривено“, „Скривено“ и „Невидљиво“.
Савет: Ако желите да знате како да уносите и покрећете макрое у Екцелу, овде ћете пронаћи кратак опис:
ввв.екцелдаили.де/екцел-макрос-вба/артикел/д/со-хабен-сие-макрос-ин-екцел-еин.хтмл
