Все еще воюю с формами... Описываю ситуацию. Есть несколько комбобоксов, в которых выбирается валюта (рубль, доллар или евро, соответственно). Если хоть один из комбобоксов не равен рублю - нужно, чтобы отображался текстбокс, в который будет вводиться курс. Подскажите пожалуйста, как реализовать.
Прописываю отдельно для каждых комбобоксов методом combobox.change(), но это неверно, т.к. если следующий выбрать рублем - оно скроет нужный текстбокс.
Прошу модераторов сильно не пинать. :)
Буду признателен!
Добрый день!
Все еще воюю с формами... Описываю ситуацию. Есть несколько комбобоксов, в которых выбирается валюта (рубль, доллар или евро, соответственно). Если хоть один из комбобоксов не равен рублю - нужно, чтобы отображался текстбокс, в который будет вводиться курс. Подскажите пожалуйста, как реализовать.
Прописываю отдельно для каждых комбобоксов методом combobox.change(), но это неверно, т.к. если следующий выбрать рублем - оно скроет нужный текстбокс.
Private Sub SetTextVisible() TextBox1.Visible = ComboBox1.ListIndex Or ComboBox2.ListIndex End Sub
Private Sub ComboBox1_Click() SetTextVisible End Sub Private Sub ComboBox2_Click() SetTextVisible End Sub
Private Sub UserForm_initialize() With ComboBox1 .AddItem "Руб." .AddItem "$" .AddItem "€" .ListIndex = 0 End With With ComboBox2 .AddItem "Руб." .AddItem "$" .AddItem "€" .ListIndex = 0 End With End Sub
[/vba]
Добрый вечер!
[vba]
Код
Private Sub SetTextVisible() TextBox1.Visible = ComboBox1.ListIndex Or ComboBox2.ListIndex End Sub
Private Sub ComboBox1_Click() SetTextVisible End Sub Private Sub ComboBox2_Click() SetTextVisible End Sub
Private Sub UserForm_initialize() With ComboBox1 .AddItem "Руб." .AddItem "$" .AddItem "€" .ListIndex = 0 End With With ComboBox2 .AddItem "Руб." .AddItem "$" .AddItem "€" .ListIndex = 0 End With End Sub