Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Подсчет количества значений в ListBox
 
#1
13.02.2019 23:05:16
Здравствуйтуе. В ListBox1 представлен список из двух колонок. Подскажите пожалуйста как подсчитать количество строк каждого типа по второму столбцу и присвоить им переменные.
 
 
 
#2
14.02.2019 00:21:57
Цитата
Дмитрий Ч написал:
и присвоить им переменные
значит каким образом ?
в массив, словарь и т. д. ?
 
 
 
#3
14.02.2019 00:24:33
В данном случае их нужно вывести в тектбоксы на форме
Например переменная n1 - это количество строк типа 111, n2 - соответственно кол-во типа 222
 
 
 
#4
14.02.2019 00:55:00
Например так:
Код
Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim a&, DC As Object, arr()
arr = ListBox1.List
Set DC = CreateObject("Scripting.Dictionary")
For a = LBound(arr) To UBound(arr)
  If Not DC.exists(arr(a, UBound(arr, 2))) Then
    DC.Item(arr(a, UBound(arr, 2))) = 1
  Else: DC.Item(arr(a, UBound(arr, 2))) = DC.Item(arr(a, UBound(arr, 2))) + 1
  End If
Next
arr = DC.keys
For a = 0 To UBound(arr)
  Select Case arr(a)
    Case Is = 111: TextBox1 = DC.Item(arr(a))
    Case Is = 222: TextBox2 = DC.Item(arr(a))
    Case Is = 333: TextBox3 = DC.Item(arr(a))
  End Select
Next
End Sub
Изменено: Anchoret - 14.02.2019 08:49:56
 
 
 
#5
14.02.2019 00:57:46
Anchoret, спасибо Вам огромное. А как сделать чтобы значения менялись не по даблклику а при изменении данных в листбоксе
 
 
 
#6
14.02.2019 00:59:53
Дмитрий Ч, выбрать обработчик событий листбокса
 
 
 
#7
14.02.2019 01:33:18
Anchoret, неверные данные попадают в текстовые поля, например увеличьте количество вхождений для "333" и проверьте - это потому, что данные не отсортированы.
 
 
 
#8
14.02.2019 01:59:32
Anchoret, погонял Ваш макрос.Код считает количество первых значений в столбце и заносит их в первый по номеру текстбокс, затем когда встречает другое значение считает их количество и заносит в следующий по номеру текстбокс. Т.е. значения не связаны с текстбоксами. Но значения в листбоксе могут быть произвольными и каждое значение должно попадать в свой текстбокс. Так и не понял как исправить код, чтобы конкретному значению соответствовал свой текстбокс.
 
 
 
#9
14.02.2019 03:02:23
Дмитрий Ч, конкретно для вашего примера:
Код
Sub st()
    Dim Rn As Range
    Set Rn = Range("B2", Cells(Rows.Count, 2).End(xlUp))
    With UserForm1
        .TextBox1.Text = WorksheetFunction.CountIf(Rn, 111)
        .TextBox2.Text = WorksheetFunction.CountIf(Rn, 222)
        .TextBox3.Text = WorksheetFunction.CountIf(Rn, 333)
        .Show 0
    End With
End Sub
 
 
 
#10
14.02.2019 03:48:24
Цитата
Дмитрий Ч написал:
чтобы значения менялись не по даблклику а при изменении данных в листбоксе
А как эти значения должны быть обновлены ?
Из рабочего листа или из списка, что будет предметом изменения ?
В вашем коде есть "UserForm1.Show 0" - поэтому неизвестно, с кода (ListBox1) или с листа ?
 
 
 
#11
14.02.2019 08:04:43
Цитата
ocet p написал:
А как эти значения должны быть обновлены ?
В листбокс данные попадают из другого листбокса. Значит обновление должно быть по событию изменения значений в листбоксе на форме
 
 
 
#12
14.02.2019 08:11:14
Михаил Витальевич С.,спасибо. Но это немного не то. Вы диапазон берете с листа, а нужно из второго столбца листбокса.
 
 
 
#13
14.02.2019 08:17:51
Количество уникальных значений всегда равно количеству TextBox(ов)? Если нет, то по какому алгоритму программе узнать в какой TextBox выводить тот или иной итог?
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#14
14.02.2019 08:26:07
Да кол-во укикальных будет всегда равно кол-во текстбоксов. Каждому уникальному соответствует свой текстбокс. Тут смысл даже не в текстбоксах, а в присвоении этим уникальным переменных, т.к. они будут в дальнейшем использоваться.  
 
 
 
#15
14.02.2019 08:43:16
Можно так.
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#16
14.02.2019 08:51:42
ocet p, согласен.
Дмитрий Ч, см. измененный код выше или вариант от Nordheim,  (а могли бы и сами догадаться)
 
 
 
#17
14.02.2019 09:11:46
Nordheim,спасибо. Но чёт не понял смысл кнопки. Действия у неё нет. Если данные на листе обновить, все равно нужно форму закрыть и открыть чтобы обновился лист бокс. Но это не суть. Нужны просто переменные. Количество уникальных 111 - это переменная n1 (например) ну и т.д.
 
 
 
#18
14.02.2019 09:26:19
Цитата
Дмитрий Ч написал:
Но чёт не понял смысл кнопки
Удалите или добавьте код заполнения списка с листа.
Цитата
Дмитрий Ч написал:
Если данные на листе обновить, все равно нужно форму закрыть и открыть чтобы обновился лист бокс
Данные можно изменять не закрывая форму.
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#19
14.02.2019 09:27:42
Цитата
Дмитрий Ч написал:
Количество уникальных 111 - это переменная n1 (например) ну и т.д.
Для чего переменные если можно брать данные из TextBox(а) - TextBox.Value
Либо сделать массив а не отдельные переменные и работать со значениями массива.
Изменено: Nordheim - 14.02.2019 09:29:27
"Все гениальное просто, а все простое гениально!!!"
 
 
 
Страницы: 1
Наверх