Связанные комбобоксы

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Связанные комбобоксы (Макросы/Sub)

Revengencer

Дата: Понедельник, 21.09.2015, 20:46 | Сообщение № 1

Группа: Проверенные

Ранг: Новичок

Сообщений: 34

Репутация: 13 ±

Замечаний: 0% ±

Excel 2016

Здравствуйте. Помогите разобраться с комбобоксами.

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

Прилагаю файл (там будет понятнее показано, что мне нужно).

Вообще я видел одно решение похожей задачи с созданием комбобоксов, но в моем случае обращаться нужно уже к имеющимся комбобоксам, и как-то у меня самого ничего не получилось.

К сообщению приложен файл: Lists.xlsm (14.1 Kb)

Сообщение отредактировал Revengencer - Понедельник, 21.09.2015, 20:49

Ответить

buchlotnik

Дата: Понедельник, 21.09.2015, 22:15 | Сообщение № 2

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

заменил элементы формы на Activex получилось так: [vba]

Код

Private Sub ComboBox1_Change()
     If ComboBox1 <> ComboBox2 And ComboBox1 <> ComboBox3 Then ComboBox4 = "---"
End Sub

Private Sub ComboBox2_Change()
     If ComboBox2 <> ComboBox1 And ComboBox2 <> ComboBox3 Then ComboBox4 = "---"
End Sub

Private Sub ComboBox3_Change()
     If ComboBox3 <> ComboBox1 And ComboBox3 <> ComboBox2 Then ComboBox4 = "---"
End Sub

Private Sub ComboBox4_Change()
    If ComboBox4 <> "---" Then
     ComboBox1 = ComboBox4
     ComboBox2 = ComboBox1
     ComboBox3 = ComboBox1
     ComboBox4 = ComboBox1
     End If
End Sub

[/vba]

К сообщению приложен файл: Lists-2-.xlsm (28.9 Kb)

Сообщение отредактировал buchlotnik - Понедельник, 21.09.2015, 22:39

Ответить

Revengencer

Дата: Понедельник, 21.09.2015, 22:48 | Сообщение № 3

Группа: Проверенные

Ранг: Новичок

Сообщений: 34

Репутация: 13 ±

Замечаний: 0% ±

Excel 2016

buchlotnik, спасибо.
А с элементами управления такое в принципе можно делать?

Ответить

KSV

Дата: Вторник, 22.09.2015, 14:33 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

Репутация: 255 ±

Замечаний: 0% ±

Excel 2013

так? [vba]

Код

Private Sub List_Change()
     If Range(Application.Caller) <> [D9] Then [D9] = 5
End Sub

Private Sub ListCom_Change()
     If [D9] <> 5 Then
         [C4] = [D9]
         [C5] = [D9]
         [C6] = [D9]
     End If
End Sub

[/vba]

К сообщению приложен файл: Lists_.xlsm (20.8 Kb)

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Ответить

Revengencer

Дата: Вторник, 22.09.2015, 19:41 | Сообщение № 5

Группа: Проверенные

Ранг: Новичок

Сообщений: 34

Репутация: 13 ±

Замечаний: 0% ±

Excel 2016

KSV,
супер. Спасибо.
Списки из элементов управления формы покрасивее, чем в элементах ActiveX, поэтому и макрос под них хотелся)

Сообщение отредактировал Revengencer - Вторник, 22.09.2015, 19:44

Ответить

Связанные комбобоксы (Макросы/Sub)

Страница 1 из 1
1