Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 22.11.2019, 11:22   #11
DMITRIY_78
Пользователь
 
Регистрация: 11.12.2018
Сообщений: 83
По умолчанию

вы знаете я пришел к выводу и хотел задать вопрос, а так не проще будет?
Код:
'в модуле
Sub пример()
Dim ti As Integer
    For ti = 1 To 5
        If Trim(UserForm1.Controls("TextBox" & ti)) = "" Then UserForm1.Controls("TextBox" & ti).BackColor = &H80C0FF: _
    MsgBox "поле пустое", vbInformation, "информация": Exit Sub
    If Trim(UserForm1.Controls("TextBox" & ti)) > 0 Then UserForm1.Controls("TextBox" & ti).BackColor = &H80000005
    Next ti
Exit Sub
End Sub

'на кнопке
Private Sub CommandButton1_Click()
Call пример
'только вот здесь после проверки НЕ требуется продолжение работы  кода
а все равно срабатывает "MsgBox"
MsgBox "1", vbInformation, "информация"
End Sub
DMITRIY_78 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Событие MouseMove в Image kion3 Общие вопросы Delphi 22 30.03.2014 12:06
Формы С# . Событие MouseMove Serg94 Помощь студентам 3 04.10.2012 09:49
MouseMove Ko$ Помощь студентам 0 14.11.2011 16:26
Класс и MouseMove ZBEP Общие вопросы Delphi 7 07.04.2011 23:02
MouseMove muinmy Помощь студентам 1 28.09.2010 18:05