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

Вход

Регистрация

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

 

= Мир MS Excel/Отображать только уникальные значения в выпадающем списке. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отображать только уникальные значения в выпадающем списке. (Макросы/Sub)
Отображать только уникальные значения в выпадающем списке.
Сергей13 Дата: Среда, 13.02.2019, 01:45 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте.
Ребята в поисках создать выпадающий список, который-бы отображал уникальные значения (то есть не повторяющиеся), обнаружил только вариант создания через вспомогательную колонку (столбец) с формулами. Вариант неплохой при небольшом количестве данных, но при большом происходит торможение и зависание.
Возможно ли это проделать через макрос, то есть отображать только уникальные значения и заодно не показывать пустые строки?
В тестовом примере показан выпадающий список в ячейке “A1”, созданный макросом.
К сообщению приложен файл: test.xlsm(13.1 Kb)


Сообщение отредактировал Сергей13 - Среда, 13.02.2019, 01:47
 
Ответить
СообщениеЗдравствуйте.
Ребята в поисках создать выпадающий список, который-бы отображал уникальные значения (то есть не повторяющиеся), обнаружил только вариант создания через вспомогательную колонку (столбец) с формулами. Вариант неплохой при небольшом количестве данных, но при большом происходит торможение и зависание.
Возможно ли это проделать через макрос, то есть отображать только уникальные значения и заодно не показывать пустые строки?
В тестовом примере показан выпадающий список в ячейке “A1”, созданный макросом.

Автор - Сергей13
Дата добавления - 13.02.2019 в 01:45
Nic70y Дата: Среда, 13.02.2019, 10:47 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5112
Репутация: 1099 ±
Замечаний: 0% ±

Excel 2013
Цитата Сергей13, 13.02.2019 в 01:45, в сообщении № 1 ()
вспомогательную колонку (столбец) с формулами.
без формул -
копипаст в вспом., удалить дубликаты.
или расширенный фильтр, рекордер (если нужен макрос) сказал так
[vba]
Код
    u = Cells(Rows.Count, 2).End(xlUp).Row
    Range("B1:B" & u).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("C1"), Unique:=True
[/vba][p.s.]а ну да, заголовок добавил для расширенного фильтра[/p.s.]


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)


Сообщение отредактировал Nic70y - Среда, 13.02.2019, 10:49
 
Ответить
Сообщение
Цитата Сергей13, 13.02.2019 в 01:45, в сообщении № 1 ()
вспомогательную колонку (столбец) с формулами.
без формул -
копипаст в вспом., удалить дубликаты.
или расширенный фильтр, рекордер (если нужен макрос) сказал так
[vba]
Код
    u = Cells(Rows.Count, 2).End(xlUp).Row
    Range("B1:B" & u).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("C1"), Unique:=True
[/vba][p.s.]а ну да, заголовок добавил для расширенного фильтра[/p.s.]

Автор - Nic70y
Дата добавления - 13.02.2019 в 10:47
Karataev Дата: Среда, 13.02.2019, 18:33 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 1278
Репутация: 495 ±
Замечаний: 0% ±

Excel
См. файл. Предполагается, что проверка данных в "A1" будет создана до запуска макроса. Макрос только изменяет список, а не создает проверку данных.
К сообщению приложен файл: test-kar.xlsm(15.1 Kb)


Киви-кошелек: 9166309108
Яндекс-деньги: 410014131888288
 
Ответить
СообщениеСм. файл. Предполагается, что проверка данных в "A1" будет создана до запуска макроса. Макрос только изменяет список, а не создает проверку данных.

Автор - Karataev
Дата добавления - 13.02.2019 в 18:33
Сергей13 Дата: Среда, 13.02.2019, 22:35 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Karataev, Здравствуйте.
Да, это то! Примерно это и предполагалось, только теперь, как и где к данному событию листа добавлять дополнительные значения кода или переменные дабы создать еще несколько выпадающих списков?
 
Ответить
СообщениеKarataev, Здравствуйте.
Да, это то! Примерно это и предполагалось, только теперь, как и где к данному событию листа добавлять дополнительные значения кода или переменные дабы создать еще несколько выпадающих списков?

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

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