Всем привет!
Помогите исправить ошибку.
Есть ComboBox1 и 4 кнопки ToggleButton
Нужно сделать:
1. Чтобы при изменении ComboBox1 все ToggleButton отжимались. (это работает)
2. При выборе значений L, S, P в ComboBox1 ToggleButton1 и 2 (+ и М) скрывались. (а это НЕ работает)
Привязанная ячейка к ComboBox1 - А2 на листе Data.
Помогите исправить ошибку.
Есть ComboBox1 и 4 кнопки ToggleButton
Нужно сделать:
1. Чтобы при изменении ComboBox1 все ToggleButton отжимались. (это работает)
2. При выборе значений L, S, P в ComboBox1 ToggleButton1 и 2 (+ и М) скрывались. (а это НЕ работает)
Привязанная ячейка к ComboBox1 - А2 на листе Data.
Код |
---|
Private Sub ComboBox1_Change() ToggleButton1.Value = False ToggleButton2.Value = False ToggleButton3.Value = False ToggleButton4.Value = False If Data.Range("A2") = "L" Or Data.Range("A2") = "S" Or Data.Range("A2") = "P" Then ToggleButton1.Visible = False ToggleButton2.Visible = False Else ToggleButton1.Visible = True ToggleButton2.Visible = True End If End Sub |