Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Из диапазона в ListBox нескольких значений по условию - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Из диапазона в ListBox нескольких значений по условию (Макросы/Sub)
Из диапазона в ListBox нескольких значений по условию
Dмитрий Дата: Суббота, 15.03.2014, 22:49 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 9 ±
Замечаний: 40% ±

Excel 2010
Добрый вечер! Столкнулся с такого рода проблемой. Есть два ListBox. Слева - заполняется по инициализации формы. Справа, в зависимости от значения в предыдущем. Заполнение ListBox2 должно происходить по коду находящегося в столбце "Н". То есть если в ListBox1 выбрана третья сверху строка, то соответственно те слова код, которых=2, должны отобразиться в ListBox2. В данном случае это "желтый, красный, зеленый". Если выбрана четвертая сверху строка, то соответственно те слова код, которых=3, должны отобразиться в ListBox2. В данном случае это "желтый" и т.д. Количество слов с одинаковым кодом может быть неограничено.
[vba]
Код
For i = 1 To lr
   If Cells(i, 8) = List Then
   ListBox2.RowSource = Cells(i, 9).Address(external:=True)
   End If
   Next i
[/vba]
У меня же получается отобразить только последнее значение найденное циклом. Как можно справиться с такой проблемой???

[admin]Тема закрыта. Причина: Нарушение правил пп.4, 5q[/admin]
К сообщению приложен файл: ListBox.xlsb (15.4 Kb)
 
Ответить
СообщениеДобрый вечер! Столкнулся с такого рода проблемой. Есть два ListBox. Слева - заполняется по инициализации формы. Справа, в зависимости от значения в предыдущем. Заполнение ListBox2 должно происходить по коду находящегося в столбце "Н". То есть если в ListBox1 выбрана третья сверху строка, то соответственно те слова код, которых=2, должны отобразиться в ListBox2. В данном случае это "желтый, красный, зеленый". Если выбрана четвертая сверху строка, то соответственно те слова код, которых=3, должны отобразиться в ListBox2. В данном случае это "желтый" и т.д. Количество слов с одинаковым кодом может быть неограничено.
[vba]
Код
For i = 1 To lr
   If Cells(i, 8) = List Then
   ListBox2.RowSource = Cells(i, 9).Address(external:=True)
   End If
   Next i
[/vba]
У меня же получается отобразить только последнее значение найденное циклом. Как можно справиться с такой проблемой???

[admin]Тема закрыта. Причина: Нарушение правил пп.4, 5q[/admin]

Автор - Dмитрий
Дата добавления - 15.03.2014 в 22:49
ikki Дата: Суббота, 15.03.2014, 23:00 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
[vba]
Код
ListBox2.Clear
  For i = 1 To lr
  If Cells(i, 8) = List Then ListBox2.AddItem Cells(i, 9)
  Next i
[/vba]


помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщение[vba]
Код
ListBox2.Clear
  For i = 1 To lr
  If Cells(i, 8) = List Then ListBox2.AddItem Cells(i, 9)
  Next i
[/vba]

Автор - ikki
Дата добавления - 15.03.2014 в 23:00
Dмитрий Дата: Суббота, 15.03.2014, 23:05 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 9 ±
Замечаний: 40% ±

Excel 2010
Спасибо огромное. Буду пробовать
 
Ответить
СообщениеСпасибо огромное. Буду пробовать

Автор - Dмитрий
Дата добавления - 15.03.2014 в 23:05
Dмитрий Дата: Суббота, 15.03.2014, 23:23 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 9 ±
Замечаний: 40% ±

Excel 2010
Извините, не хочу создавать новую тему, вопрос как мне кажется пустяшный и к тому же касается ListBox. Можно ли заполнить ListBox значениями из диапазона с конца к началу. т.е. последнее значение в диапазоне - первое в ListBox
 
Ответить
СообщениеИзвините, не хочу создавать новую тему, вопрос как мне кажется пустяшный и к тому же касается ListBox. Можно ли заполнить ListBox значениями из диапазона с конца к началу. т.е. последнее значение в диапазоне - первое в ListBox

Автор - Dмитрий
Дата добавления - 15.03.2014 в 23:23
Dмитрий Дата: Суббота, 15.03.2014, 23:43 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 9 ±
Замечаний: 40% ±

Excel 2010
Подскажите еще, пожалуйста, как теперь при клике в ListBox2 выделить ту ячейку в которой содержится этот код на листе
 
Ответить
СообщениеПодскажите еще, пожалуйста, как теперь при клике в ListBox2 выделить ту ячейку в которой содержится этот код на листе

Автор - Dмитрий
Дата добавления - 15.03.2014 в 23:43
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Из диапазона в ListBox нескольких значений по условию (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!