Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Создание списка в книге из скрытых листов - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание списка в книге из скрытых листов (Макросы/Sub)
Создание списка в книге из скрытых листов
ekut Дата: Суббота, 28.11.2020, 18:33 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 123
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте, уважаемые ГУРУ!!!!! Если не трудно, подскажите, что изменить в макросе, чтобы в этом списке увидеть скрытые и нескрытые листы, нажимая на Фамилию в ячейке? Нескрытые открываются, а вот скрытый нет!!!Лист с фамилией Сидоров я скрыла. Спасибо заранее!!!!!!
К сообщению приложен файл: __2.xls(86.5 Kb)


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

Автор - ekut
Дата добавления - 28.11.2020 в 18:33
wild_pig Дата: Суббота, 28.11.2020, 19:56 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 508
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
В файле нет макроса, а нет макроса - нет проблемы.
 
Ответить
СообщениеВ файле нет макроса, а нет макроса - нет проблемы.

Автор - wild_pig
Дата добавления - 28.11.2020 в 19:56
ekut Дата: Суббота, 28.11.2020, 20:05 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 123
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Прошу прощения, не тот файл
К сообщению приложен файл: 8444258.xls(86.5 Kb)
 
Ответить
СообщениеПрошу прощения, не тот файл

Автор - ekut
Дата добавления - 28.11.2020 в 20:05
gling Дата: Суббота, 28.11.2020, 20:08 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2229
Репутация: 556 ±
Замечаний: 0% ±

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


ЯД-41001506838083

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

Автор - gling
Дата добавления - 28.11.2020 в 20:08
wild_pig Дата: Суббота, 28.11.2020, 20:13 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 508
Репутация: 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]
активация по двойному щелчку
 
Ответить
СообщениеВторой файл не смотрел но вот вариант:
в модуль книги
[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]
активация по двойному щелчку

Автор - wild_pig
Дата добавления - 28.11.2020 в 20:13
ekut Дата: Суббота, 28.11.2020, 20:14 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 123
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - ekut
Дата добавления - 28.11.2020 в 20:14
gling Дата: Суббота, 28.11.2020, 20:19 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 2229
Репутация: 556 ±
Замечаний: 0% ±

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


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

Автор - gling
Дата добавления - 28.11.2020 в 20:19
ekut Дата: Суббота, 28.11.2020, 20:25 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 123
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Макрос вставила!!! Работает, но лист становится не скрытым, а мне бы нужно, чтобы опять становился скрытым при нажатии на список
 
Ответить
СообщениеМакрос вставила!!! Работает, но лист становится не скрытым, а мне бы нужно, чтобы опять становился скрытым при нажатии на список

Автор - ekut
Дата добавления - 28.11.2020 в 20:25
ekut Дата: Суббота, 28.11.2020, 20:35 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 123
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Видите ли, как таковой шаблон и не сделать, в каждой карточке разное количество строк. Ну наверное не 100 листов ;) ;) ;) , это я переборщила!!!
 
Ответить
СообщениеВидите ли, как таковой шаблон и не сделать, в каждой карточке разное количество строк. Ну наверное не 100 листов ;) ;) ;) , это я переборщила!!!

Автор - ekut
Дата добавления - 28.11.2020 в 20:35
gling Дата: Суббота, 28.11.2020, 22:54 | Сообщение № 10
Группа: Друзья
Ранг: Старожил
Сообщений: 2229
Репутация: 556 ±
Замечаний: 0% ±

2010
Вставьте это в модуль каждого листа который надо скрывать.[vba]
Код
Private Sub Worksheet_Deactivate()
    Me.Visible = 0
End Sub
[/vba]
Вариант в файле.
К сообщению приложен файл: _2.xls(80.5 Kb)


ЯД-41001506838083
 
Ответить
СообщениеВставьте это в модуль каждого листа который надо скрывать.[vba]
Код
Private Sub Worksheet_Deactivate()
    Me.Visible = 0
End Sub
[/vba]
Вариант в файле.

Автор - gling
Дата добавления - 28.11.2020 в 22:54
ekut Дата: Воскресенье, 29.11.2020, 07:57 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 123
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо большое! Да, Вы правы, для больших файлов не подойдет. Но меня пока все устраивает! Еще раз спасибо!


Сообщение отредактировал ekut - Воскресенье, 29.11.2020, 07:57
 
Ответить
СообщениеСпасибо большое! Да, Вы правы, для больших файлов не подойдет. Но меня пока все устраивает! Еще раз спасибо!

Автор - ekut
Дата добавления - 29.11.2020 в 07:57
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание списка в книге из скрытых листов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!