Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.06.2017, 15:21   #1
yuresku
Пользователь
 
Регистрация: 01.06.2011
Сообщений: 72
По умолчанию Не отображаются уникальные значения в листбоксе на форме

Добрый день.
Имеется база товара с повторяющимися данными лист"база" по нажатию на кнопке на листе в листбоксе должны отобразиться уникальные значения.
Вопрос: как подкорректировать код для отображения уникальных значений в листбоксе.
Вложения
Тип файла: rar UnigListBox.rar (23.1 Кб, 20 просмотров)
yuresku вне форума Ответить с цитированием
Старый 15.06.2017, 15:57   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
Sub Extract_Unique()
    Dim vItem, avArr, li As Long
    ReDim avArr(1 To Rows.Count, 1 To 1)
 
    With New Collection
        On Error Resume Next
         For Each vItem In Sheets("база").Range("A2", Sheets("база").Cells(Sheets("база").Rows.Count, 1).End(xlUp)).Value
            .Add vItem, CStr(vItem)
            If Err = 0 Then
                li = li + 1: avArr(li, 1) = vItem
            Else: Err.Clear
            End If
        Next
    End With
    TestForm.ListBox1.List = avArr
    TestForm.Show
End Sub
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 15.06.2017, 16:03   #3
yuresku
Пользователь
 
Регистрация: 01.06.2011
Сообщений: 72
По умолчанию

Aleksandr H.,дякую .
yuresku вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Некорректно отображаются данные в листбоксе yuresku Microsoft Office Excel 8 29.10.2015 11:45
Уникальные значения в строках erika13 Microsoft Office Access 22 06.06.2013 12:48
Уникальные значения Fezdipekla Microsoft Office Access 1 13.05.2010 11:02
Посчитать значения в ЛистБоксе. KOSTIK1 Microsoft Office Excel 3 08.04.2010 19:10
Уникальные значения SwiP SQL, базы данных 6 07.05.2009 23:22