Прошу прощения! Не думал, что здесь все так строго. Буду аккуратней. Вот мучаюсь с решением своей проблемы. Подскажите, пожалуйста, как при двойном клике в ListBox2 выделить на листе ту ячейку, в которой содержится это наименование. При последовательном заполнении ListBox (без пробелов) это не проблема, но в данном случае, ListBox2 заполняется выборочно [vba]
Код
Private Sub ListBox1_Click() List = ListBox1.ListIndex + 1 lr = Cells(Rows.Count, 8).End(xlUp).Row ListBox2.Clear For i = 1 To lr If Cells(i, 8) = List Then ListBox2.AddItem Cells(i, 9) Next i End Sub
[/vba] Спасибо
Прошу прощения! Не думал, что здесь все так строго. Буду аккуратней. Вот мучаюсь с решением своей проблемы. Подскажите, пожалуйста, как при двойном клике в ListBox2 выделить на листе ту ячейку, в которой содержится это наименование. При последовательном заполнении ListBox (без пробелов) это не проблема, но в данном случае, ListBox2 заполняется выборочно [vba]
Код
Private Sub ListBox1_Click() List = ListBox1.ListIndex + 1 lr = Cells(Rows.Count, 8).End(xlUp).Row ListBox2.Clear For i = 1 To lr If Cells(i, 8) = List Then ListBox2.AddItem Cells(i, 9) Next i End Sub
Поясню более подробно: Два ListBox. Слева - заполняется по инициализации формы. Справа, в зависимости от значения в предыдущем. Заполнение ListBox2 должно происходит по коду находящегося в столбце "Н". То есть если в ListBox1 выбрана третья сверху строка, то соответственно те слова код, которых=2, должны отобразиться в ListBox2. В данном случае это "желтый, красный, зеленый". Если выбрана четвертая сверху строка, то соответственно те слова код, которых=3, должны отобразиться в ListBox2. В данном случае это "желтый" и т.д. Количество слов с одинаковым кодом может быть неограничено. Все работает, вот только как выделить на листе ту ячейку, значение которой, собственно и отображено в ListBox2
Цитата
Cells.Find(Me.ListBox2.Value).Select
В этом случае выделяется первое найденное слово.
Поясню более подробно: Два ListBox. Слева - заполняется по инициализации формы. Справа, в зависимости от значения в предыдущем. Заполнение ListBox2 должно происходит по коду находящегося в столбце "Н". То есть если в ListBox1 выбрана третья сверху строка, то соответственно те слова код, которых=2, должны отобразиться в ListBox2. В данном случае это "желтый, красный, зеленый". Если выбрана четвертая сверху строка, то соответственно те слова код, которых=3, должны отобразиться в ListBox2. В данном случае это "желтый" и т.д. Количество слов с одинаковым кодом может быть неограничено. Все работает, вот только как выделить на листе ту ячейку, значение которой, собственно и отображено в ListBox2Dмитрий
В том то и дело что пробовал. Ваш код ищет в ячейке название из ListBox2 и выделяет первое нашедшее. Так при клике в ListBox1 на "КОД1" в ListBox2 появляется "красный" из ячейки Cells(5,9), а надо "красный" из ячейки Cells(12,9) И так далее При клике в ListBox1 на "КОД2" в ListBox2 появляется "желтый" из ячейки Cells(2,9), "зеленый" из ячейки Cells(6,9), "красный" из ячейки Cells(9,9), "зеленый" из ячейки Cells(11,9), "зеленый" из ячейки Cells(13,9). Определяющим параметром для заполнения ListBox2 является не название, а код, находящийся слева в столбце "Н". Этот код уже существует, он не заполняется программно
В том то и дело что пробовал. Ваш код ищет в ячейке название из ListBox2 и выделяет первое нашедшее. Так при клике в ListBox1 на "КОД1" в ListBox2 появляется "красный" из ячейки Cells(5,9), а надо "красный" из ячейки Cells(12,9) И так далее При клике в ListBox1 на "КОД2" в ListBox2 появляется "желтый" из ячейки Cells(2,9), "зеленый" из ячейки Cells(6,9), "красный" из ячейки Cells(9,9), "зеленый" из ячейки Cells(11,9), "зеленый" из ячейки Cells(13,9). Определяющим параметром для заполнения ListBox2 является не название, а код, находящийся слева в столбце "Н". Этот код уже существует, он не заполняется программноDмитрий
Большое Спасибо Про двухстолбцовые листбоксы я как-то и не подумал. А так все работает, я столько времени голову ломал, что мне казалось - сделать подобное точно не получится. В конец запутался. Простите за наглость. Вы мне и так очень помогли, но можно ли сделать так, чтобы и ListBox2 заполнялся снизу вверх???
Большое Спасибо Про двухстолбцовые листбоксы я как-то и не подумал. А так все работает, я столько времени голову ломал, что мне казалось - сделать подобное точно не получится. В конец запутался. Простите за наглость. Вы мне и так очень помогли, но можно ли сделать так, чтобы и ListBox2 заполнялся снизу вверх???Dмитрий