Не получается заставить заработать цикл с найденным значением

Идея следующая есть колонка типа 1,1,1,1,2,2,2,2 Я поиском ищу значение 2, вношу в лист бокс и так далее пока не закончится столбец
Собственно вопрос, как правильно подставить значение из rrr в строку
ListBox1.List = Range(Cells(N, 1), Вот на это место).Value
Убил кучу времени, но решения так и не нашел, пробовал разные свойства объектов, пробовал через do... loop
Подскажите в какую сторону думать, где ошибка

0

Что-то я не вполне понял. Вот так чтоль?

0

Сообщение от korvindeson Что-то я не вполне понял. Вот так чтоль? Visual Basic 1 2 3 4 5 6 7 8 9 Sub test() Set wsh = ThisWorkbook.Worksheets(1)   For R = 3 To wsh.Cells(1, 2).End(xlDown).Row      If wsh.Cells(R, 2).Value Like 2 Then ListBox1.AddItem Cells(R, 1)   Next R End Sub

Не, это только для ячейки, немного не то, тот код который я привел, рабочий, но он искал вверх по диапазону от значения которое возвращал поиск (наверное непонятно написал, прикрепляю эксель файл)

0

Что-то типо этого, в общем идея была следующая: надо было выводить в этот лист бокс продажи за день.. Т.е. Ищем в списке все продажи с сегодняшней датой и выводим в лист бокс.... Но от затеи пришлось отказаться, достаточно долго выполняется процедура

Вложения

лента .zip (35.9 Кб, 4 просмотров)

0

Сообщение от pavel_rr с сегодняшней датой

А что в примере считать за дату? С какой целью выводить в листбокс? Может сразу как-то обработать?
А по поводу медленно, можно и резвее сделать (хотя и тот что у вас мгновенно выполняется)

1

Сообщение от korvindeson А что в примере считать за дату? С какой целью выводить в листбокс? Может сразу как-то обработать? А по поводу медленно, можно и резвее сделать (хотя и тот что у вас мгновенно выполняется)

Спасибо за помощь
"А что в примере считать за дату?" Столбец по которому запускается поиск
"С какой целью выводить в листбокс?"
Продавец продает товар из формы (заполняет артикул, цену, дата подставляется автоматом),по нажатию на кнопку появляется запись на листе: дата, артикул, цена, продавец не имеет доступа к листу продаж (от продавца этот лист закрыт специально), следовательно необходимо выводить для продавца список с товаром который он сегодня продал...

Я хотел сделать следующий алгоритм: добавить на форму продаж listbox и загружать в него данные из листа продаж
Но есть одно "но"
на листе продаж ведется учет продаж за все время, лист организован по датам
Ну и чтобы вывести данные в listbox, мне сначала надо найти сегодняшнюю дату (это будет первое значение в лист бокс) , а потом спуститься вниз по столбику до последнего значения, выгружая каждую строку из этого диапазона в listbox...
Т.е. если строк-продаж будет 20 а столибоков 7, то excel этим массивом будет долго заполнять listbox....
Получается, что с функцией listbox.list - листбокс будет все время заново весь массив обновлять дополняя его новой строкой продаж
Все было бы проще если бы listbox.additem работал с диапазоном (чтобы не обновлять все строки, а добавлять только одну), а он только ячейку добавляет =)

Миниатюры

 

0

Совсем забыл... Можно попробовать ведь и через additem каждый столбик по текущей строчке добавлять.... А columnwidth будет с additem работать ?(чтобы столбики ровные были)

0

Вот так?

PS только строчку надо поправить

ListBox1.List = Range(wsh.Cells(r, 1).Address, wsh.Cells(r2, 7).Address).Value
на
ListBox1.List = wsh.Range(wsh.Cells(r, 1).Address, wsh.Cells(r2, 7).Address).Value

Вложения

Форма-ПодсчётПродаж.xls (62.0 Кб, 5 просмотров)

1

ахаха ))) Супер, спасибо
Все так просто!
Что-то я не подумал так раньше сделать ))))
И я честно говоря и не надеялся, что Listbox вне Loop'а заработает....

0