Условие для сообщения.

  • Автор темы segail
  • Дата начала
S

segail

#1
Здравствуйте
Подскажите как изменить текст сообщения ”АААА” на ”ББББ” если TextBox1=0
<!--shcode--><pre><code class='vb'>DopUslov:
If MsgBox("АААА", _
vbYesNo Or 48, " ") = vbNo Then Exit Sub
Cells(i + 35, 21).Value = CDbl(TextBox1.Text)[/CODE]
 

vital

Больной Компом Детектед
29.01.2006
2 432
33
#2
if TextBox1.text="0" then - Вы ЭТО имели ввиду?
If MsgBox("BBBB", _
vbYesNo Or 48, " ") = vbNo Then Exit Sub
Cells(i + 35, 21).Value = CDbl(TextBox1.Text)
else
If MsgBox("АААА", _
vbYesNo Or 48, " ") = vbNo Then Exit Sub
Cells(i + 35, 21).Value = CDbl(TextBox1.Text)
 
A

alex777

#3
Код:
re = IIf(Textbox1 = 0, "AAAA", "BBBB")
If MsgBox(re, vbYesNo Or 48, " ") = vbNo Then Exit Sub
 
S

segail

#6
Я сегодня зануда: поясни-ка, в VB одновременно может быть

(последнее используется в выражении - CDbl(TextBox1.Text))
Короче нужно было так. Код работает что надо?
Код:
If MsgBox(IIf(Val(TextBox1) <> 0, "АААА", "ВВВВ"), vbYesNo + vbExclamation, "Информационное сообщение") = vbNo Then Exit Sub