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

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отображать только уникальные значения в выпадающем списке. (Макросы/Sub)

Сергей13

Дата: Среда, 13.02.2019, 01:45 | Сообщение № 1

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

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

Сообщений: 344

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

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

Excel 2016

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

К сообщению приложен файл: test.xlsm (13.1 Kb)

Сообщение отредактировал Сергей13 - Среда, 13.02.2019, 01:47

Ответить

Nic70y

Дата: Среда, 13.02.2019, 10:47 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 8759

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

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

Excel 2010

Цитата Сергей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.]

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Среда, 13.02.2019, 10:49

Ответить

Karataev

Дата: Среда, 13.02.2019, 18:33 | Сообщение № 3

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

Ранг: Старожил

Сообщений: 1334

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

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

Excel

См. файл. Предполагается, что проверка данных в "A1" будет создана до запуска макроса. Макрос только изменяет список, а не создает проверку данных.

К сообщению приложен файл: test-kar.xlsm (15.1 Kb)

Ответить

Сергей13

Дата: Среда, 13.02.2019, 22:35 | Сообщение № 4

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

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

Сообщений: 344

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

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

Excel 2016

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

Ответить

Страница 1 из 1
1