сделать видимым TextBox по нескольким условиям

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

сделать видимым TextBox по нескольким условиям (Макросы/Sub)

Oleg34

Дата: Суббота, 15.09.2018, 19:07 | Сообщение № 1

Группа: Пользователи

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

Сообщений: 21

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

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

Excel 2016

Здравствуйте! На форме есть ComboBox, CheckBox и TextBox. При загрузке формы, на ней только ComboBox и CheckBox. Ставя "флажок" на CheckBox, пытаюсь сразу проверить три условия:
1. что в ComboBox, что то выбрано (то есть поле не пустое)
2. что в ComboBox не выбрана запись "1"
3. что в ComboBox не выбрана запись "3"
В этих случаях TextBox не отображается на форме.
Также TextBox не отображается, если снят "флажок" на CheckBox
То есть TextBox отображается, если в ComboBox выбраны запись "2" или "4" и поднят "флажок" на CheckBox
Что-то мудрил, мудрил((, в трех соснах совсем запутался.

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

Сообщение отредактировал Oleg34 - Суббота, 15.09.2018, 19:08

Ответить

Karataev

Дата: Суббота, 15.09.2018, 19:26 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 1342

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

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

Excel

[vba]

Код

Private Sub CheckBox1_Click()

    If CheckBox1.Value = False Then
        TextBox1.Visible = False
        Exit Sub
    End If

    Select Case ComboBox1.Text
        Case ""
            CheckBox1.Value = False
            MsgBox "Выбирете цифру", vbOKOnly
            ComboBox1.SetFocus
        Case "1", "3"
        Case Else
            Me.TextBox1.Visible = True
    End Select

End Sub

[/vba]

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

Ответить

Oleg34

Дата: Суббота, 15.09.2018, 20:16 | Сообщение № 3

Группа: Пользователи

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

Сообщений: 21

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

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

Excel 2016

Karataev, Спасибо, все оказывается, гораздо проще)))

Ответить

сделать видимым TextBox по нескольким условиям (Макросы/Sub)

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