Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Последовательное активирование UserForms / 2 сообщений из 2, страница 1 из 1
26.10.2007, 16:06:17
    #34897966
Alexei Gennadevich
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Последовательное активирование UserForms
Подскажите ошибку, пожалуйста!!!

Есть три 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
26.10.2007, 21:26:23
    #34898773
Rubber
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Последовательное активирование UserForms
Код: 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
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Последовательное активирование UserForms / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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