ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как сделать выпадающий список с уникальными данными
7 сообщений из 7, страница 1 из 1
как сделать выпадающий список с уникальными данными
    #39263699
stanna
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stanna
Гость
Есть столбец с дублирующими данными. Необходимо сделать выпадающий список с уникальными данными без создания дополнительных столбцов.
...
Рейтинг: 0 / 0
28.06.2016, 13:04
| Ответить | Цитировать | Написать  
как сделать выпадающий список с уникальными данными
    #39263802
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Да делайте, мы не против, тем более если необходимо. Просто почистите список от дубликатов в источнике данных списка соотв. кодом.
...
Рейтинг: 0 / 0
28.06.2016, 13:52
| Ответить | Цитировать | Написать  
как сделать выпадающий список с уникальными данными
    #39263807
stanna
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stanna
Гость
Akina,
в том то и дело что именно в этом столбце изменять данные запрещено
...
Рейтинг: 0 / 0
28.06.2016, 13:55
| Ответить | Цитировать | Написать  
как сделать выпадающий список с уникальными данными
    #39263882
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
stannaименно в этом столбце изменять данные запрещено
Ну так издевайся над его копией. Сбоку на листе, в скрытом столбце, на другом (скрытом) листе - да хоть в другой книге.
...
Рейтинг: 0 / 0
28.06.2016, 14:50
| Ответить | Цитировать | Написать  
как сделать выпадающий список с уникальными данными
    #39263903
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
stanna,

http://www.excel-university.com/unique-data-validation-drop-down-from-duplicate-table-data/
...
Рейтинг: 0 / 0
28.06.2016, 15:04
| Ответить | Цитировать | Написать  
как сделать выпадающий список с уникальными данными
    #39263989
stanna
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stanna
Гость
big-duke,
спасибо за ссылку
...
Рейтинг: 0 / 0
28.06.2016, 16:15
| Ответить | Цитировать | Написать  
как сделать выпадающий список с уникальными данными
    #39265129
Фотография vikkiv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vikkiv
Участник
stanna,

есть другой вариант: через VBA и в соответствии со спецификой форума - получение уникальных значений через SQL
например у тебя
1) сохранённый и активный лист (иначе ADO подключение не получится)
2) в диапазоне A2:Annn какие-то данные (с заголовком Employees в ячейке A1)
3) создан ComboBox под названием ComboTmp (второй, т.е. Active X Controls а не Form Controls)
тогда следующий VBA код:
1) создаст подключение
2) сделает Select distinct с текущего листа поля [Employees]
3) закинет результат в Array (под названием out)
4) присвоит получившийся результат списку комбобокса ComboTmp
5) назначит ячейку выбранной опции адресу C1 (куда будет скидываться выбранная позиция)
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub rd()
Dim ado As Object, arr() As Variant, out() As Variant: Set ado = CreateObject("ADODB.Recordset")
ado.Open "select distinct[Employees]from[" & ThisWorkbook.ActiveSheet.Name & "$]order by 1", _
"Provider=Microsoft.ACE.OLEDB.12.0;Mode=Read;Data Source=" & ThisWorkbook.FullName & _
";Extended Properties=""Excel 12.0;HDR=YES"";"
'Do Until ado.EOF: Debug.Print ado(0).Value: ado.MoveNext: Loop
arr = ado.GetRows: ReDim out(UBound(arr, 2))
For i = 1 To UBound(arr, 2): out(i) = arr(0, i): Next i
ado.Close: Set ado = Nothing: ActiveSheet.ComboTmp.List = out
ActiveSheet.ComboTmp.LinkedCell = "C1": End Sub

пример даных для диапазона A1:A9:
Employees
Kelly
Anna
Kelly
Olga
Kelly
Olga
Kelly
Olga
...
Рейтинг: 0 / 0
30.06.2016, 03:49
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как сделать выпадающий список с уникальными данными
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=39263699&tid=2173038]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 55ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 279ms
total:  419ms
созд. / загр.: 419ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]