powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Последовательное активирование UserForms
2 сообщений из 2, страница 1 из 1
Последовательное активирование UserForms
    #34897966
Alexei Gennadevich
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подскажите ошибку, пожалуйста!!!

Есть три Combobox. Последние два имеют свойство Enabled=False. Такой алгоритм:
1. После того как Combobox1.Value>"" активируется Combobox2 (Combobox2.Enabled=true);
2. После того как Combobox2.Value>"" активируется Combobox3 (Combobox3.Enabled=true).

Но вот такая проблема: надо чтобы если Combobox2 становится неактивным (значения в ComboBox1 стираются) неактивным становился бы и Combobox3.

У меня был следующих код (макрос, скрипт - не знаю в чем различия):

Private Sub ComboBox1_Change()
If ComboBox1.Value > "" Then
ComboBox2.Enabled = True
Else
ComboBox2.Enabled = False
End If
End Sub

Private Sub ComboBox2_Change()
If ComboBox2.Enabled=True And ComboBox2.Value > "" Then
ComboBox3.Enabled = True
Else
ComboBox3.Enabled = True
End If
End Sub

Однако у меня получается, что когда я стираю значения из ComboBox1 неактивным становится только ComboBox2, хотя надо чтобы таким же становился и ComboBox3.

Так вот в чем вопрос, господа знатоки: где ошибка?
...
Рейтинг: 0 / 0
Последовательное активирование UserForms
    #34898773
Rubber
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub ComboBox1_Change()
    If ComboBox1.Value <> "" Then
        ComboBox2.Enabled = True
    Else
        ComboBox2.Value = "": ComboBox2.Enabled = False
        ComboBox3.Value = "" :ComboBox3.Enabled = False
    End If
End Sub

Private Sub ComboBox2_Change()
    If ComboBox2.Value <> "" Then
        ComboBox3.Enabled = True
    Else
        ComboBox3.Value = "": ComboBox3.Enabled = False
    End If
End Sub
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Последовательное активирование UserForms
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]