Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Дмитрий Ч
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 След.
Подсчет уникальных значений в ListBox
 
#
22.02.2019 10:35:22
Nordheim, отлично! Работает как надо. Огромное спасибо!!!
 
Перейти    
Подсчет уникальных значений в ListBox
 
#
22.02.2019 10:03:23
Nordheim, отличный вариант. Спасибо! А ка сделать чтобы значения в надписях обновлялись по мере наполнения листбокса, сейчас пока не кликнешь не обновляются, все события перепробовал.
Изменено: Дмитрий Ч - 22.02.2019 10:07:22
 
Перейти    
Подсчет уникальных значений в ListBox
 
#
22.02.2019 00:04:33
нужно подсчитать количество уникальных значений в столбце категория: сколько 1, 2, 3, 1*, 2*, 3* и т.д.
 
Перейти    
Подсчет уникальных значений в ListBox
 
#
21.02.2019 23:34:44

Имеется макрос, написан Anchoret. Данный макрос отлично работает и подсчитывает количество уникальных значений в ListBox, значения в который попадают только через свойство RowSource. Подсчет уникальных ведется по последнему столбцу указанного в RowSource диапазона, причем не важно сколько столбцов отображается в ListBox, все равно берет диапазон с листа.Как изменить макрос чтобы подсчет уникальных велся не по последнему столбцу, а например второму столбцу из трех и чтобы данные брал из ListBox2,  который заполняется не через RowSource, а из другого ListBox1. Значения из ListBox1 в ListBox2 передаются двойным кликом. Количество уникальных значений выодится в надписи (см. Frame1)
 
Перейти    
Подсчет количества значений в ListBox
 
#
14.02.2019 09:11:46
Nordheim,спасибо. Но чёт не понял смысл кнопки. Действия у неё нет. Если данные на листе обновить, все равно нужно форму закрыть и открыть чтобы обновился лист бокс. Но это не суть. Нужны просто переменные. Количество уникальных 111 - это переменная n1 (например) ну и т.д.
 
Перейти    
Подсчет количества значений в ListBox
 
#
14.02.2019 08:26:07
Да кол-во укикальных будет всегда равно кол-во текстбоксов. Каждому уникальному соответствует свой текстбокс. Тут смысл даже не в текстбоксах, а в присвоении этим уникальным переменных, т.к. они будут в дальнейшем использоваться.  
 
Перейти    
Подсчет количества значений в ListBox
 
#
14.02.2019 08:11:14
Михаил Витальевич С.,спасибо. Но это немного не то. Вы диапазон берете с листа, а нужно из второго столбца листбокса.
 
Перейти    
Подсчет количества значений в ListBox
 
#
14.02.2019 08:04:43
Цитата
ocet p написал:
А как эти значения должны быть обновлены ?
В листбокс данные попадают из другого листбокса. Значит обновление должно быть по событию изменения значений в листбоксе на форме
 
Перейти    
Подсчет количества значений в ListBox
 
#
14.02.2019 01:59:32
Anchoret, погонял Ваш макрос.Код считает количество первых значений в столбце и заносит их в первый по номеру текстбокс, затем когда встречает другое значение считает их количество и заносит в следующий по номеру текстбокс. Т.е. значения не связаны с текстбоксами. Но значения в листбоксе могут быть произвольными и каждое значение должно попадать в свой текстбокс. Так и не понял как исправить код, чтобы конкретному значению соответствовал свой текстбокс.
 
Перейти    
Подсчет количества значений в ListBox
 
#
14.02.2019 00:57:46
Anchoret, спасибо Вам огромное. А как сделать чтобы значения менялись не по даблклику а при изменении данных в листбоксе
 
Перейти    
Подсчет количества значений в ListBox
 
#
14.02.2019 00:24:33
В данном случае их нужно вывести в тектбоксы на форме
Например переменная n1 - это количество строк типа 111, n2 - соответственно кол-во типа 222
 
Перейти    
Подсчет количества значений в ListBox
 
#
13.02.2019 23:05:16
Здравствуйтуе. В ListBox1 представлен список из двух колонок. Подскажите пожалуйста как подсчитать количество строк каждого типа по второму столбцу и присвоить им переменные.
 
Перейти    
Отображение значений в ListBox по условию
 
#
12.02.2019 00:30:33
vikttur, извините сразу не сообразил. Поместил код в модуль формы. Все заработало, только при каждой фильтрации значения добавлялись к старому списку. Добавил очистку листбокса перед каждой фильтрацией. Теперь все работает так как надо. Большое Вам спасибо, и еще раз извините.
 
Перейти    
Отображение значений в ListBox по условию
 
#
12.02.2019 00:04:45
Для меня в приоритете было разобраться с запуском макроса. А насчет третьего столбца там все ясно вроде было, я и отложил напотом
 
Перейти    
Отображение значений в ListBox по условию
 
#
11.02.2019 23:47:00
Код работает, если фильтровать диапазон, а потом открывть форму. Но у меня фильтр срабатывает по клику на надписи. Вы же сами вчера сказали, что когда листбокс заполнился ему уже пофиг дальнейшая фильтрация. Поэтому нужно поместить макрос в отдельный модуль и вызывать его при иницилизации формы и при фильтрации. Я так и сделал. Смотрите
 
Перейти    
Отображение значений в ListBox по условию
 
#
11.02.2019 23:30:48
сделал так
Код
Sub Massiv()
Dim Defects As Variant
    Defects = Worksheets("Дефекты").Range("A1:E1000").Value
    UserForml.ListBoxl.List = Defects
End Sub
А как теперь условие задать

Цитата
Юрий М написал: А я бы ещё заменил набор Label на радиокнопк
А какая разница?
 
Перейти    
Отображение значений в ListBox по условию
 
#
11.02.2019 23:22:49
vikttur, я сделал как вы говорили вчера. Форма вобще перестала запускаться
 
Перейти    
Отображение значений в ListBox по условию
 
#
11.02.2019 22:29:43

Добрый вечер. Помогите пожалуйста.

Имеется форма в которой значения в верхнем ListBox1 попадают из списка с листа Дефекты. Слева от ListBox имеются надписи Подгруппа 1, Подгруппа 11, 2, 22 и т.д. По клику на Label список на листе фильтруется по соответствующим значениям. Помогие реализовать отображение соответствующих значений списка в  ListBox1 по клику на Label. Может быть автофильтр использовать и не нужно, а как-то задать условие?
 
Перейти    
Отображение в ListBox только видимых строк
 
#
10.02.2019 21:56:45
Ну вот теперь все разъяснили. Все понятно, буду доделывать. vikttur, Большое спасибо, Ваш макрос рабочий
 
Перейти    
Отображение в ListBox только видимых строк
 
#
10.02.2019 21:52:28
Цитата
vikttur написал:
Вы хоть словом обмолвились об этих кнопках?
я не видел разницы каким образом включается автофильтр: вручную или кодом и не хотел лишним загружать вопрос
 
Перейти    
Отображение в ListBox только видимых строк
 
#
10.02.2019 21:48:07
нет вникать не надо. Просто вопрос: когда автофильтр включается вручную - все работает, а кодом - макрос не работает. почему?
 
Перейти    
Отображение в ListBox только видимых строк
 
#
10.02.2019 21:43:45
Это я уже понял, додумаю. посмотрите 20 сообщение
 
Перейти    
Отображение в ListBox только видимых строк
 
#
10.02.2019 21:39:36
В форме есть надписи Подзаголовок1, Подзаголовок11. По клику по ним срабатывает автофильтр. Но почему-то это не влияет на Ваш макрос, а когда открываешь лист и вручную включаешь автофильтр, то Ваш макрос работает. Как так?
 
Перейти    
Отображение в ListBox только видимых строк
 
#
10.02.2019 21:32:55
У меня не работает. И выдает ошибку при двойном клике на листбокс1
 
Перейти    
Отображение в ListBox только видимых строк
 
#
10.02.2019 21:27:56
Цитата
vikttur написал:
Сравните название макроса, который я Вам дал, с названием того, который Вы показываете. Как они связаны?!Какое отношее имеет вэтой код к теме?
Они не связаны. Я же говорю что ошибка в нем появилась когда я добавил Ваш макрос
 
Перейти    
Отображение в ListBox только видимых строк
 
#
10.02.2019 21:25:31
=0. Так эта ошибка появилась когда я добавил код от vikttur, Его код должен заполнять листбокс1 данными с листа Дефекты только видимые строки. Но что-то пошло не так ...
 
Перейти    
Отображение в ListBox только видимых строк
 
#
10.02.2019 21:15:01
добавить третий столбец из листбокс1 в литсбокс2
 
Перейти    
Отображение в ListBox только видимых строк
 
#
10.02.2019 21:06:48
Не могу из буфера файл создать. да ладно там скриншот был такой, чо ошибка возникает еще и в этой процедуре
Код
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) ' добавление дефекта по двойному клику
    i = ListBox1.ListIndex
     
    With ListBox2
        .AddItem ListBox1.List(i, 0)
        .List(.ListCount - 1, 1) = ListBox1.List(i, 1)
        .List(.ListCount - 1, 2) = ListBox1.List(i, 2)
    End With
End Sub
 
Перейти    
Отображение в ListBox только видимых строк
 
#
10.02.2019 20:44:18
И процудура добавления дефекта по двойному клику перестала работать

Изменено: Дмитрий Ч - 10.02.2019 21:09:56
 
Перейти    
Отображение в ListBox только видимых строк
 
#
10.02.2019 20:18:25
вот файл, посмотрите
 
Перейти    
Страницы: 1 2 3 След.
Наверх