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

Вход

Регистрация

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

 

= Мир MS Excel/Отбор уникальных значений в поле листбокса на форме. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отбор уникальных значений в поле листбокса на форме. (Макросы/Sub)
Отбор уникальных значений в поле листбокса на форме.
parovoznik Дата: Четверг, 25.07.2019, 21:00 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 328
Репутация: 18 ±
Замечаний: 0% ±

Excel 2007
Добрый вечер.
имеется форма поиска по первым буквам. Поиск работает,но мне нужно ,что бы при инициализации формы в листбоксе отображались уникальные значения.
Возможно ли подкорректировать имеющейся код.
Заранее благодарен.
К сообщению приложен файл: 2845099.xlsm(25.0 Kb)
 
Ответить
СообщениеДобрый вечер.
имеется форма поиска по первым буквам. Поиск работает,но мне нужно ,что бы при инициализации формы в листбоксе отображались уникальные значения.
Возможно ли подкорректировать имеющейся код.
Заранее благодарен.

Автор - parovoznik
Дата добавления - 25.07.2019 в 21:00
wild_pig Дата: Четверг, 25.07.2019, 22:44 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 505
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
[vba]
Код
Private Sub UserForm_Initialize()
    Dim a()
    Dim i&
'-----------------------
    With Sheets("Справочник")
        a = .Range(.Cells(2, 6), .Cells(.UsedRange.Rows.Count, 6)).Value
    End With
    With CreateObject("Scripting.Dictionary")
        For i = 2 To UBound(a)
            If a(i, 1) <> "" Then .Item(a(i, 1)) = ""
        Next
        Me.List_РезультатыПоиска.List = .Keys
    End With
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Private Sub UserForm_Initialize()
    Dim a()
    Dim i&
'-----------------------
    With Sheets("Справочник")
        a = .Range(.Cells(2, 6), .Cells(.UsedRange.Rows.Count, 6)).Value
    End With
    With CreateObject("Scripting.Dictionary")
        For i = 2 To UBound(a)
            If a(i, 1) <> "" Then .Item(a(i, 1)) = ""
        Next
        Me.List_РезультатыПоиска.List = .Keys
    End With
End Sub
[/vba]

Автор - wild_pig
Дата добавления - 25.07.2019 в 22:44
parovoznik Дата: Пятница, 26.07.2019, 06:26 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 328
Репутация: 18 ±
Замечаний: 0% ±

Excel 2007
wild_pig, благодарю за помощь :) ,но теперь ПОИСК не работает. :(
 
Ответить
Сообщениеwild_pig, благодарю за помощь :) ,но теперь ПОИСК не работает. :(

Автор - parovoznik
Дата добавления - 26.07.2019 в 06:26
wild_pig Дата: Пятница, 26.07.2019, 06:39 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 505
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
но теперь ПОИСК не работает

Бывает.
Какой смысл в списке уникальных при запуске формы, если потом надо поиск с отображением всех дублей.
 
Ответить
Сообщение
но теперь ПОИСК не работает

Бывает.
Какой смысл в списке уникальных при запуске формы, если потом надо поиск с отображением всех дублей.

Автор - wild_pig
Дата добавления - 26.07.2019 в 06:39
parovoznik Дата: Пятница, 26.07.2019, 06:41 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 328
Репутация: 18 ±
Замечаний: 0% ±

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

Автор - parovoznik
Дата добавления - 26.07.2019 в 06:41
wild_pig Дата: Пятница, 26.07.2019, 23:47 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 505
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
Вариант
К сообщению приложен файл: test.xlsm(26.8 Kb)
 
Ответить
СообщениеВариант

Автор - wild_pig
Дата добавления - 26.07.2019 в 23:47
parovoznik Дата: Суббота, 27.07.2019, 22:19 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 328
Репутация: 18 ±
Замечаний: 0% ±

Excel 2007
wild_pig, спасибо.сейчас не могу протестировать , а завтра отпишусь.Мобилка не открывает файлы с макросами. :(
 
Ответить
Сообщениеwild_pig, спасибо.сейчас не могу протестировать , а завтра отпишусь.Мобилка не открывает файлы с макросами. :(

Автор - parovoznik
Дата добавления - 27.07.2019 в 22:19
parovoznik Дата: Понедельник, 29.07.2019, 10:04 | Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 328
Репутация: 18 ±
Замечаний: 0% ±

Excel 2007
wild_pig, Здорово получилось. Спасибо. Буду разбираться. hands
 
Ответить
Сообщениеwild_pig, Здорово получилось. Спасибо. Буду разбираться. hands

Автор - parovoznik
Дата добавления - 29.07.2019 в 10:04
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отбор уникальных значений в поле листбокса на форме. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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