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

Вход

Регистрация

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

 

= Мир MS Excel/Подгрузка списка в ячейку с выпадающим списком на листе - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подгрузка списка в ячейку с выпадающим списком на листе (Макросы/Sub)
Подгрузка списка в ячейку с выпадающим списком на листе
Raven2009 Дата: Среда, 25.12.2019, 21:56 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 151
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день.

Подскажите пожалуйста. Есть книга, в которой на одном листе есть ячейка с выпадающим списком, а другом - список, на который она ссылается.

Проблема в том, что в рабочем файле список при открытии книги сначала очищается, потом подгружается заново.

В ячейку список попадает через список в проверке данных, но после очередного открытия в выпадающем списке остается только 1 строчка (пример в файле)

Подскажите пожалуйста, что написать в vba, чтобы в ячейку попадал всегда весь список из таблицы? С комбобоксами в форме более-менее понятно, а с таким еще не сталкивался...
К сообщению приложен файл: test.rar(5.3 Kb)
 
Ответить
СообщениеДобрый день.

Подскажите пожалуйста. Есть книга, в которой на одном листе есть ячейка с выпадающим списком, а другом - список, на который она ссылается.

Проблема в том, что в рабочем файле список при открытии книги сначала очищается, потом подгружается заново.

В ячейку список попадает через список в проверке данных, но после очередного открытия в выпадающем списке остается только 1 строчка (пример в файле)

Подскажите пожалуйста, что написать в vba, чтобы в ячейку попадал всегда весь список из таблицы? С комбобоксами в форме более-менее понятно, а с таким еще не сталкивался...

Автор - Raven2009
Дата добавления - 25.12.2019 в 21:56
Michael_S Дата: Среда, 25.12.2019, 22:23 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1956
Репутация: 366 ±
Замечаний: 0% ±

Excel2016
Raven2009, у вас пустой файл в архиве.
Да и не надо файлы архивировать, если их размер не более 100 кб.
 
Ответить
СообщениеRaven2009, у вас пустой файл в архиве.
Да и не надо файлы архивировать, если их размер не более 100 кб.

Автор - Michael_S
Дата добавления - 25.12.2019 в 22:23
_Boroda_ Дата: Среда, 25.12.2019, 22:33 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15946
Репутация: 6201 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
В примере у Вас очень красивый файл. Правда, пустой... :D

По поводу пересоздания списка можно обойтись и без правки макроса. Просто нужно сделать динамический диапазон для списка (Контрл F3)
Я не знаю, как у Вас макрос очищает ячейки, поэтому сделал для максимально "плохого" случая - если он (макрос) не стирает, а удаляет ячейки или строки (еще хуже вариант, если удаляется столбец, но тогда Ваш файл вел бы себя немного иначе)
Есть имя "спис" с формулой
Код
=ИНДЕКС(Лист1!$F:$F;1):ИНДЕКС(Лист1!$F:$F;СЧЁТЗ(Лист1!$F:$F))

А в источнике вып. списка формула
Код
=спис
К сообщению приложен файл: test_15468.xlsx(8.7 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВ примере у Вас очень красивый файл. Правда, пустой... :D

По поводу пересоздания списка можно обойтись и без правки макроса. Просто нужно сделать динамический диапазон для списка (Контрл F3)
Я не знаю, как у Вас макрос очищает ячейки, поэтому сделал для максимально "плохого" случая - если он (макрос) не стирает, а удаляет ячейки или строки (еще хуже вариант, если удаляется столбец, но тогда Ваш файл вел бы себя немного иначе)
Есть имя "спис" с формулой
Код
=ИНДЕКС(Лист1!$F:$F;1):ИНДЕКС(Лист1!$F:$F;СЧЁТЗ(Лист1!$F:$F))

А в источнике вып. списка формула
Код
=спис

Автор - _Boroda_
Дата добавления - 25.12.2019 в 22:33
Raven2009 Дата: Среда, 25.12.2019, 22:45 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 151
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Правда, пустой...


ой. Извиняюсь. Приложил
К сообщению приложен файл: test.xlsm(11.6 Kb)
 
Ответить
Сообщение
Правда, пустой...


ой. Извиняюсь. Приложил

Автор - Raven2009
Дата добавления - 25.12.2019 в 22:45
_Boroda_ Дата: Среда, 25.12.2019, 22:51 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15946
Репутация: 6201 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Тогда еще проще. Технология такая же (см. мой пост выше), но формула другая - у Вас же там умная таблица
К сообщению приложен файл: test_336541.xlsm(10.5 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТогда еще проще. Технология такая же (см. мой пост выше), но формула другая - у Вас же там умная таблица

Автор - _Boroda_
Дата добавления - 25.12.2019 в 22:51
Raven2009 Дата: Среда, 25.12.2019, 22:55 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 151
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
По поводу пересоздания списка можно обойтись и без правки макроса.


Классно, получилось) попробую применить) Спасибо вам))

Если без макроса, отлично)) Забыл про диспетчер имен...
 
Ответить
Сообщение
По поводу пересоздания списка можно обойтись и без правки макроса.


Классно, получилось) попробую применить) Спасибо вам))

Если без макроса, отлично)) Забыл про диспетчер имен...

Автор - Raven2009
Дата добавления - 25.12.2019 в 22:55
Raven2009 Дата: Среда, 25.12.2019, 22:57 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 151
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Вас же там умная таблица


Да, спасибо вам)) сохраню и с формулой тоже))
 
Ответить
Сообщение
Вас же там умная таблица


Да, спасибо вам)) сохраню и с формулой тоже))

Автор - Raven2009
Дата добавления - 25.12.2019 в 22:57
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подгрузка списка в ячейку с выпадающим списком на листе (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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