powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как сделать выпадающий список с уникальными данными
7 сообщений из 7, страница 1 из 1
как сделать выпадающий список с уникальными данными
    #39263699
stanna
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть столбец с дублирующими данными. Необходимо сделать выпадающий список с уникальными данными без создания дополнительных столбцов.
...
Рейтинг: 0 / 0
как сделать выпадающий список с уникальными данными
    #39263802
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да делайте, мы не против, тем более если необходимо. Просто почистите список от дубликатов в источнике данных списка соотв. кодом.
...
Рейтинг: 0 / 0
как сделать выпадающий список с уникальными данными
    #39263807
stanna
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Akina,
в том то и дело что именно в этом столбце изменять данные запрещено
...
Рейтинг: 0 / 0
как сделать выпадающий список с уникальными данными
    #39263882
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
stannaименно в этом столбце изменять данные запрещено
Ну так издевайся над его копией. Сбоку на листе, в скрытом столбце, на другом (скрытом) листе - да хоть в другой книге.
...
Рейтинг: 0 / 0
как сделать выпадающий список с уникальными данными
    #39263903
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
как сделать выпадающий список с уникальными данными
    #39263989
stanna
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
big-duke,
спасибо за ссылку
...
Рейтинг: 0 / 0
как сделать выпадающий список с уникальными данными
    #39265129
Фотография 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
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как сделать выпадающий список с уникальными данными
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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