Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Поиск в ListBox с двух столбцов
 
В файле при нажатии кнопки CommandButton1 и вводе значения в TextBox1 в  ListBox1 отображаются найденные значения
При выбор одного из них происходит выбор (Select) этого значения на листе
А надо тоже, но чтобы в ListBox открывалось два значения, из столбцов С и В (или наоборот).
Мои изыскания не привели к желаемому
Буду благодарен а помощь
Изменено: Геннадий - 29 Ноя 2018 16:12:24
 
Цитата
Поиск в ListBox с двух столбцов
...чтобы в ListBox открывалось два столбца/значения
Так что нужно? Искать или открывать?
 
Простите, вы сами поняли что написали, для меня какой-то сумбур.
"Все гениальное просто, а все простое гениально!!!"
 
Цитата
vikttur написал:
Так что нужно? Искать или открывать?
Тоже что делает макрос, только в ListBox отобразить справа соответствующие данные из столбца В
Изменено: Геннадий - 29 Ноя 2018 16:04:49
 
А что делает макрос, и где этот макрос?
"Все гениальное просто, а все простое гениально!!!"
 
А нажмите кнопку CommandButton1
 
Опишите номально задачу в первом сообщении.
 
справил/описал
Изменено: Геннадий - 29 Ноя 2018 16:13:10
 
Код
ListBox1.AddItem i
            ListBox1.List(j, 1) = Cells(i, 3).Value
            ListBox1.List(j, 0) = Cells(i, 4).Value

и в свойствах листбокса откорректируйте ColumnWidths
выбор в листбоксе не будет работать.
 
поставил
ListBox1.List(j, 1) = Cells(i, 3).Value
ListBox1.List(j, 0) = Cells(i, 2).Value

поставил в ColumnWidths 40 pt;20 pt
а в BoundColumn 2. и в Columnount 2

В итоге есть данные столбца В и строки
и выделяется строка, а не данные столбца В
 
Задача не решаема из-за отсуствия на форуме в данное время знатока
 
Цитата
Геннадий написал: Задача не решаема из-за отсуствия на форуме в данное время знатока
А может она просто никому не интересна? ;) . На данном форуме, после попытки взять 'на слабо', как правило, задачи вообще перестают решаться. Даже такие примитивные как Ваша
Изменено: Sanja - 29 Ноя 2018 18:23:34
Согласие есть продукт при полном непротивлении сторон.
 
Цитата
Геннадий написал:
Задача не решаема из-за отсуствия на форуме в данное время знатока
А вот на "слабо" не нужно брать.
 
в примере от Sanja, параметр Find "ячейка целиком" нужно прописать.
 
Sanja,  спасибо, благодарю
Но я вник и изменил в  ListBox1.List(j, 1) = Cells(i, 2).Value и получил то, что желал в сообщении #1

А вчера поздно просмотрел сообщения и видел файл от Юрий М, и почему то сегодня смотрю, а его нет
В чём причина? Чем вызвано:
Цитата
Юрий М написал:
А вот на "слабо" не нужно брать.
Изменено: Геннадий - 30 Ноя 2018 09:21:23
 
Цитата
V написал:
параметр Find "ячейка целиком"
Да вы правы, сейчас работаю над этим
И вот результат
Set fCl = Columns(3).Find(ListBox1.Value, , xlValues, xlWhole)
Изменено: Геннадий - 30 Ноя 2018 09:48:36
 
Цитата
Геннадий написал:
Чем вызвано
Чем вызвано? А Вы посмотрите, какое Ваше сообщение процитировано в #12 и 13.  И само сообщение Sanja в #12 перечитайте. Знатока нет...
 
Цитата
Юрий М написал:
Знатока нет.
Вот я и считаю Вас, vikttur, Mershik, Sanja,
RAN, Ігор Гончаренко, АlехМ,
Bema, БМВ, Казанский,
Сергей....... знатоками
 
Геннадий, таким образом Вы невольно обижаете других форумчан (
 
Цитата
Юрий М написал:
таким образом Вы невольно обижаете других форумчан
Чем?
наверно я отупел
Изменено: Геннадий - 30 Ноя 2018 13:51:31
 
Если сразу не поняли, то продолжать не вижу смысла.
 
Ваше сообщение воспринято не как констатация факта, а как подначка.
Еще: почитайте, что правила пишут о многократном поднятии темы. Повторное сообщение через  минут можно принять как попытку поднятия темы.
 
Ночью приснился вариант, в столбце сцеплено данные ячеек и с них макросами подтягивает необходимое
Наберите на форме " Вводим поиск" например "17"
и появятся данные, кликните на необходимом № объекта и активирует на листе необходимое
Фактически у меня строк 896, 56  столбцов с данными, и сразу нахожу необходимое
Страницы: 1
Читают тему (гостей: 1)
Наверх