Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
balagancha
0 / 0 / 0
Регистрация: 31.01.2017
Сообщений: 11
#1

Переключение списков в combobox - VBA

20.04.2017, 18:42. Просмотров 180. Ответов 1
Метки нет (Все метки)

Доброго времени суток, очень прошу объяснить как сделать так, чтобы при выборе значений из одного combobox в другом combobox оставлялась лишь часть значений. На подобии checkbox, только нужно сделать это в combobox и больше двух значений
0
Вложения
Тип файла: xls combobox.xls (38.5 Кб, 8 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.04.2017, 18:42
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Переключение списков в combobox (VBA):

И снова о связи двух выпадающих списков combobox
Господа знатоки! есть книга с прайс листом товара(важно чтобы она была как...

Занести в строку, определяемой первым ComboBox, значение из второго ComboBox
Здравствуйте! Не могу разобраться. Есть 2-а ComboBox'а, в первом он выбирает...

Access. Значения combobox в зависимости от других combobox
Добрый день! Мне требуется сделать базу данных, но столкнулся с проблемой...

Добавить элемент списка ComboBox из ComboBox'a
Такой вопрос: вот у меня есть комбобокс с возможностью ручного ввода. Как...

Робота с ComboBox (очистка ненужних ComboBox)
задачка вроде не сложная, но не могу придумать решение. есть 5 комбобоксов ...

Переключение в списке
Всем добрый день! Не могу понять как реализовать схему переключения...

1
Vlad999
2755 / 1687 / 497
Регистрация: 02.11.2012
Сообщений: 4,207
21.04.2017, 09:40 #2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ComboBox2_Change()
kr = ComboBox2.ListIndex
ComboBox1.Value = ""
With Sheets("Лист2")
ComboBox1.List = .Range("A2:A" & .Cells(Rows.Count, kr).End(xlUp).Row).Offset(0, kr - 1).Value
End With
End Sub
 
 
Private Sub UserForm_Initialize()
ComboBox1.List = Sheets("Лист2").Range("D2:D10").Value
ComboBox2.List = Array(" ", "список_А", "список_Б", "список_С")
End Sub
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.04.2017, 09:40
Привет! Вот еще темы с решениями:

Переключение между строками
На листе Excel имеется таблица данных, которая содержит столбцы дан-ных: номер...

Переключение между книгами
Открыты 2 книги. Одна - источник данных (название всегда разное). Другая -...

В один combobox нужно вставить номера листов, в другой combobox вставить номера ячеек
Нужна помощь ребят! Задание такоe - в один combobox нужно вставить номера...

Переключение на объект (книга ексель)
Добрый день. по нажатию кнопки в форме VB считываю данные из книги ексель. Код...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru