Создание списка листов
DarkDark
Дата: Среда, 03.06.2020, 15:30 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация:
0
±
Замечаний:
0% ±
Excel 2019
Здравствуйте. Помогите создать на первом листе выпадающий список листов книги в котором будут названия каждого листа кроме 1 и при выборе листа происходил переход на него и если можно чтобы при добавлении новых листов они автоматом сами включались в этот список.
Здравствуйте. Помогите создать на первом листе выпадающий список листов книги в котором будут названия каждого листа кроме 1 и при выборе листа происходил переход на него и если можно чтобы при добавлении новых листов они автоматом сами включались в этот список. DarkDark
Сообщение отредактировал DarkDark - Среда, 03.06.2020, 15:36
Ответить
Сообщение Здравствуйте. Помогите создать на первом листе выпадающий список листов книги в котором будут названия каждого листа кроме 1 и при выборе листа происходил переход на него и если можно чтобы при добавлении новых листов они автоматом сами включались в этот список. Автор - DarkDark Дата добавления - 03.06.2020 в 15:30
gling
Дата: Среда, 03.06.2020, 15:46 |
Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2519
Репутация:
674
±
Замечаний:
0% ±
2010
ЯД-41001506838083
Ответить
DarkDark
Дата: Четверг, 04.06.2020, 07:13 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация:
0
±
Замечаний:
0% ±
Excel 2019
Здравствуйте. Посмотрите Здесь может это надо?
Нет это немного не то, хотелось бы получить выпадающий список в котором отражались листы книги и при их выборе осуществлялся переход на выбранный лист
Здравствуйте. Посмотрите Здесь может это надо?
Нет это немного не то, хотелось бы получить выпадающий список в котором отражались листы книги и при их выборе осуществлялся переход на выбранный листDarkDark
Ответить
Сообщение Здравствуйте. Посмотрите Здесь может это надо?
Нет это немного не то, хотелось бы получить выпадающий список в котором отражались листы книги и при их выборе осуществлялся переход на выбранный листАвтор - DarkDark Дата добавления - 04.06.2020 в 07:13
gling
Дата: Четверг, 04.06.2020, 08:03 |
Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2519
Репутация:
674
±
Замечаний:
0% ±
2010
Так создайте на базе этого списка ячейку с выпадающим списком, предположим в ячейке A1, а в модуль листа вставьте код[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Sheets(Target.Value).Activate End If End Sub
[/vba]
Так создайте на базе этого списка ячейку с выпадающим списком, предположим в ячейке A1, а в модуль листа вставьте код[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Sheets(Target.Value).Activate End If End Sub
[/vba]gling
ЯД-41001506838083
Ответить
Сообщение Так создайте на базе этого списка ячейку с выпадающим списком, предположим в ячейке A1, а в модуль листа вставьте код[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Sheets(Target.Value).Activate End If End Sub
[/vba]Автор - gling Дата добавления - 04.06.2020 в 08:03
and_evg
Дата: Четверг, 04.06.2020, 08:15 |
Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 452
Репутация:
78
±
Замечаний:
0% ±
Excel 2007
Ответить
Nic70y
Дата: Четверг, 04.06.2020, 08:21 |
Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 8706
Репутация:
2260
±
Замечаний:
0% ±
Excel 2010
ЮMoney 41001841029809
Ответить
AlexM
Дата: Четверг, 04.06.2020, 09:00 |
Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4448
Репутация:
1094
±
Замечаний:
0% ±
Excel 2003
Из своей копилки. Выпадающий список названий листов и гиперссылки
Из своей копилки. Выпадающий список названий листов и гиперссылки AlexM
К сообщению приложен файл:
_____.xls
(60.5 Kb)
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Ответить
Сообщение Из своей копилки. Выпадающий список названий листов и гиперссылки Автор - AlexM Дата добавления - 04.06.2020 в 09:00
DarkDark
Дата: Четверг, 04.06.2020, 09:58 |
Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация:
0
±
Замечаний:
0% ±
Excel 2019
Из своей копилки. Выпадающий список названий листов и гиперссылки К сообщению приложен файл: _____.xls(60.5 Kb)
Вот то что нужно, только никак не могу разобраться как применить к моему файлу так как крайне слаб в этом.
Из своей копилки. Выпадающий список названий листов и гиперссылки К сообщению приложен файл: _____.xls(60.5 Kb)
Вот то что нужно, только никак не могу разобраться как применить к моему файлу так как крайне слаб в этом.DarkDark
Ответить
Сообщение Из своей копилки. Выпадающий список названий листов и гиперссылки К сообщению приложен файл: _____.xls(60.5 Kb)
Вот то что нужно, только никак не могу разобраться как применить к моему файлу так как крайне слаб в этом.Автор - DarkDark Дата добавления - 04.06.2020 в 09:58
AlexM
Дата: Четверг, 04.06.2020, 10:07 |
Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4448
Репутация:
1094
±
Замечаний:
0% ±
Excel 2003
Смотрите в диспетчере имен Ctrl+F3 Там две именованные формулы. Их помещаете в диспетчер имен своего файла. Формула, которая создает список на листе в столбце К В проверке данных список с источником формулойКод
=СМЕЩ($K$2;;;СУММ(Ч($K$2:$K$99<>"")))
В модуле листа вставить код макроса[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Sheets(Target.Value).Select End Sub
[/vba]В модуль листа попадаете нажав правой кнопкой по ярлычку листа - исходный текст
Смотрите в диспетчере имен Ctrl+F3 Там две именованные формулы. Их помещаете в диспетчер имен своего файла. Формула, которая создает список на листе в столбце К В проверке данных список с источником формулойКод
=СМЕЩ($K$2;;;СУММ(Ч($K$2:$K$99<>"")))
В модуле листа вставить код макроса[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Sheets(Target.Value).Select End Sub
[/vba]В модуль листа попадаете нажав правой кнопкой по ярлычку листа - исходный текст AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Сообщение отредактировал AlexM - Четверг, 04.06.2020, 10:08
Ответить
Сообщение Смотрите в диспетчере имен Ctrl+F3 Там две именованные формулы. Их помещаете в диспетчер имен своего файла. Формула, которая создает список на листе в столбце К В проверке данных список с источником формулойКод
=СМЕЩ($K$2;;;СУММ(Ч($K$2:$K$99<>"")))
В модуле листа вставить код макроса[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Sheets(Target.Value).Select End Sub
[/vba]В модуль листа попадаете нажав правой кнопкой по ярлычку листа - исходный текст Автор - AlexM Дата добавления - 04.06.2020 в 10:07
DrMini
Дата: Четверг, 04.06.2020, 10:08 |
Сообщение № 10
Группа: Проверенные
Ранг: Старожил
Сообщений: 1609
Репутация:
195
±
Замечаний:
0% ±
Excel LTSC 2024 RUS
Перекладываю в свою. Думаю пригодится. Просто гениально.
Перекладываю в свою. Думаю пригодится. Просто гениально.DrMini
Ответить
Сообщение Перекладываю в свою. Думаю пригодится. Просто гениально.Автор - DrMini Дата добавления - 04.06.2020 в 10:08
DarkDark
Дата: Четверг, 04.06.2020, 10:47 |
Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация:
0
±
Замечаний:
0% ±
Excel 2019
Излишнее цитирование удалено администрацией - это нарушение п.5j Правил форума Что я делаю не так у меня просто пропадает список
Излишнее цитирование удалено администрацией - это нарушение п.5j Правил форума Что я делаю не так у меня просто пропадает списокDarkDark
Сообщение отредактировал китин - Пятница, 05.06.2020, 16:08
Ответить
Сообщение Излишнее цитирование удалено администрацией - это нарушение п.5j Правил форума Что я делаю не так у меня просто пропадает списокАвтор - DarkDark Дата добавления - 04.06.2020 в 10:47
AlexM
Дата: Четверг, 04.06.2020, 12:55 |
Сообщение № 12
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4448
Репутация:
1094
±
Замечаний:
0% ±
Excel 2003
1. Небольшая ошибочка в формуле создания списка. 2. В макросе не указана ячейка со списком 3. В имени листов не должно быть пробелов
1. Небольшая ошибочка в формуле создания списка. 2. В макросе не указана ячейка со списком 3. В имени листов не должно быть пробелов AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Ответить
Сообщение 1. Небольшая ошибочка в формуле создания списка. 2. В макросе не указана ячейка со списком 3. В имени листов не должно быть пробелов Автор - AlexM Дата добавления - 04.06.2020 в 12:55
DarkDark
Дата: Четверг, 04.06.2020, 13:40 |
Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация:
0
±
Замечаний:
0% ±
Excel 2019
Излишнее цитирование удалено администрацией - это нарушение п.5j Правил форума Спасибо большое.
Сообщение отредактировал китин - Пятница, 05.06.2020, 16:09
Ответить
Сообщение Излишнее цитирование удалено администрацией - это нарушение п.5j Правил форума Спасибо большое.Автор - DarkDark Дата добавления - 04.06.2020 в 13:40
AlexM
Дата: Четверг, 04.06.2020, 16:31 |
Сообщение № 14
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4448
Репутация:
1094
±
Замечаний:
0% ±
Excel 2003
DarkDark , Зачем вы меня, для меня цитируете? Я свои сообщения помню, да и прочесть могу, если что.
DarkDark , Зачем вы меня, для меня цитируете? Я свои сообщения помню, да и прочесть могу, если что.AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Ответить
Сообщение DarkDark , Зачем вы меня, для меня цитируете? Я свои сообщения помню, да и прочесть могу, если что.Автор - AlexM Дата добавления - 04.06.2020 в 16:31
DarkDark
Дата: Пятница, 05.06.2020, 15:32 |
Сообщение № 15
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация:
0
±
Замечаний:
0% ±
Excel 2019
Простите. Просто очень редкий гость форумов.
Простите. Просто очень редкий гость форумов. DarkDark
Ответить
Сообщение Простите. Просто очень редкий гость форумов. Автор - DarkDark Дата добавления - 05.06.2020 в 15:32