Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

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

вы знаете я пришел к выводу и хотел задать вопрос, а так не проще будет?
Код:
'в модуле
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 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Событие 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