Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Подсчет уникальных значений в ListBox
 
#1
21.02.2019 23:34:44

Имеется макрос, написан Anchoret. Данный макрос отлично работает и подсчитывает количество уникальных значений в ListBox, значения в который попадают только через свойство RowSource. Подсчет уникальных ведется по последнему столбцу указанного в RowSource диапазона, причем не важно сколько столбцов отображается в ListBox, все равно берет диапазон с листа.Как изменить макрос чтобы подсчет уникальных велся не по последнему столбцу, а например второму столбцу из трех и чтобы данные брал из ListBox2,  который заполняется не через RowSource, а из другого ListBox1. Значения из ListBox1 в ListBox2 передаются двойным кликом. Количество уникальных значений выодится в надписи (см. Frame1)
 
 
 
#2
21.02.2019 23:56:44
допустим у нас есть контейнер с значениями (в математике это называется множество)
из этого множества значений мы можем составить список значений (какие значения встречаются в исходном множестве)
так вот уникальными в этом списке будут ТОЛЬКО те значения, которые встретились в исходном множестве ТОЛЬКО ОДИН РАЗ, все остальные будут повторяющимися
Вам именно эти нужны? уникальные?
или Вы просто не знаете значение слова "уникальные" и используете его потому что нравиться?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#3
22.02.2019 00:04:33
нужно подсчитать количество уникальных значений в столбце категория: сколько 1, 2, 3, 1*, 2*, 3* и т.д.
 
 
 
#4
22.02.2019 02:49:53
нет там уникальных
Код
Sub UniQueCount()
  Dim r&, cnt&
  Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp)).Copy Cells(1, 4)
  Columns(4).RemoveDuplicates 1
  For r = 1 To Cells(Rows.Count, 4).End(xlUp).Row
    If WorksheetFunction.CountIf(Columns(2), Cells(r, 4)) = 1 Then cnt = cnt + 1
  Next
  Columns(4).Clear: MsgBox "Óíèêàëüíûõ " & cnt & " øò."
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#5
22.02.2019 09:15:34
Вариант!
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#6
22.02.2019 10:03:23
Nordheim, отличный вариант. Спасибо! А ка сделать чтобы значения в надписях обновлялись по мере наполнения листбокса, сейчас пока не кликнешь не обновляются, все события перепробовал.
Изменено: Дмитрий Ч - 22.02.2019 10:07:22
 
 
 
#7
22.02.2019 10:14:09
Дык элементарно же.
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#8
22.02.2019 10:35:22
Nordheim, отлично! Работает как надо. Огромное спасибо!!!
 
 
 
Страницы: 1
Наверх