Создание списка в книге из скрытых листов

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Создание списка в книге из скрытых листов (Макросы/Sub)

ekut

Дата: Суббота, 28.11.2020, 18:33 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 195

Репутация: 3 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте, уважаемые ГУРУ!!!!! Если не трудно, подскажите, что изменить в макросе, чтобы в этом списке увидеть скрытые и нескрытые листы, нажимая на Фамилию в ячейке? Нескрытые открываются, а вот скрытый нет!!!Лист с фамилией Сидоров я скрыла. Спасибо заранее!!!!!!

К сообщению приложен файл: __2.xls (86.5 Kb)

Сообщение отредактировал ekut - Суббота, 28.11.2020, 20:06

Ответить

wild_pig

Дата: Суббота, 28.11.2020, 19:56 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 518

Репутация: 97 ±

Замечаний: 0% ±

2003, 2013

В файле нет макроса, а нет макроса - нет проблемы.

Ответить

ekut

Дата: Суббота, 28.11.2020, 20:05 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 195

Репутация: 3 ±

Замечаний: 0% ±

Excel 2007

Прошу прощения, не тот файл

К сообщению приложен файл: 8444258.xls (86.5 Kb)

Ответить

gling

Дата: Суббота, 28.11.2020, 20:08 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2563

Репутация: 706 ±

Замечаний: 0% ±

2010

Здравствуйте.
В вашем файле нет макросов, в ячейках гиперссылки. Для того чтобы вывести лист из скрытых нужен макрос. Чтобы написать макрос нужно определиться, всегда ли открывать скрытый лист при нажатии на нужную ячейку, задавать ли вопрос о выводе листа из скрытых (ведь есть наверно причина по которой этот лист скрыт от посторонних глаз), возможно нужно будет установить пароль на открытие такого листа, что делать с листом после того как на нем поработали и ушли с него, вновь убирать в скрытые с установкой пароля или оставлять открытым. Это конечно будет другая тема по написанию такого макроса.
При вложении нового файла написанное выша актуально. В файле макрос создающий список листов книги с гиперссылками на листы. Если писать макрос по выводу листа из скрытых то использование гиперссылок не нужно, переход на лист можно прописать в том же макросе. Ещё нужно определиться переходить на другой лист нужно по активации ячейки или по двойному клику на нужную ячейку.

ЯД-41001506838083

Сообщение отредактировал gling - Суббота, 28.11.2020, 20:15

Ответить

wild_pig

Дата: Суббота, 28.11.2020, 20:13 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 518

Репутация: 97 ±

Замечаний: 0% ±

2003, 2013

Второй файл не смотрел но вот вариант:
в модуль книги
[vba]

Код

Private Sub Workbook_Open()
    Dim sd As Object
'----------------------
    Set sd = CreateObject("Scripting.Dictionary")
    For Each sh In ThisWorkbook.Sheets
        sd.Item(sh.Name) = ""
    Next
    With Sheets("Ñïèñîê")
        .Cells(3, 2).Resize(sd.Count, 1) = WorksheetFunction.Transpose(sd.Keys)
    End With
End Sub

[/vba]
в модуль листа "список"
[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    sh = Target.Value
    On Error Resume Next
    With Sheets(sh)
        .Visible = 1
        .Activate
    End With
    Err.Clear
End Sub

[/vba]
активация по двойному щелчку

Ответить

ekut

Дата: Суббота, 28.11.2020, 20:14 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 195

Репутация: 3 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте! Знаете, мне наверное удобно, когда все листы скрыты, но при нажатии на фамилию, появлялся мой скрытый лист и я могла там редактировать, сохранять данные, распечатывать его и, все...Скрытых листов может больше ста.

Ответить

gling

Дата: Суббота, 28.11.2020, 20:19 | Сообщение № 7

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2563

Репутация: 706 ±

Замечаний: 0% ±

2010

Цитата ekut, 28.11.2020 в 20:14, в сообщении № 6 ()

Скрытых листов может больше ста.

А может быть лучше держать все данные в одной скрытой или доступной только вам таблице, а все данные подтягивать в шаблон документа по выбору фамилии. Зачем создавать 100 и более листов, чтобы потом книга открывалась пол часа завесив весь комп?