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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.12.2009, 20:30   #1
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию Изменить сообщение

Здравствуйте
Подскажите как изменить текст сообщения “АААА” на “ББББ” если TextBox1=0
Код:
DopUslov:
                If MsgBox("АААА", _
                    vbYesNo Or 48, " ") = vbNo Then Exit Sub
                Cells(i + 35, 21).Value = CDbl(TextBox1.Text)
segail вне форума Ответить с цитированием
Старый 10.12.2009, 20:46   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,858
По умолчанию

Код:
    If MsgBox(IIf(Val(TextBox1) <> 0, "АААА", "ББББ"), vbYesNo + vbExclamation, " ") = vbNo Then Exit Sub
EducatedFool вне форума Ответить с цитированием
Старый 10.12.2009, 20:52   #3
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

Благодарю.
segail вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сообщение HellMercenariess Свободное общение 1 21.11.2009 04:42
Сообщение... KoBRaAndrey Общие вопросы Delphi 8 02.10.2009 18:56
Сообщение Shevali Общие вопросы Delphi 3 07.06.2009 19:53
Сообщение об ошибке! QWERT1988 Общие вопросы Delphi 4 01.06.2009 17:14