Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / if...then...else / 8 сообщений из 8, страница 1 из 1
26.07.2011, 12:12
    #37367115
-O_o-
-O_o-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
if...then...else
Привет! Ребята подскажите мне насчет этой конструкции.
Пишу вот так вот:
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub ddd()
MsgBox "dddd", vbYesNo, "title"
If vbYes Then
    MsgBox "yes"
    Else: Exit Sub
End If
End Sub
Но первое условие срабатывает, показывает сообщение. Если нажимаю NO , то все равно показывает сообщение и выходит из программы... что не так делаю?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2011, 12:33
    #37367148
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
if...then...else
-O_o-,

Код: plaintext
1.
2.
3.
4.
5.
Dim ret As Integer
ret = MsgBox("dddd", vbYesNo, "title")
If ret =  6  Then
    MsgBox "yes"
    Else: Exit Sub
End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2011, 12:38
    #37367160
-O_o-
-O_o-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
if...then...else
timtim-O_o-,

Код: plaintext
1.
2.
3.
4.
5.
Dim ret As Integer
ret = MsgBox("dddd", vbYesNo, "title")
If ret =  6  Then
    MsgBox "yes"
    Else: Exit Sub
End If

откуда взялось (6)- ???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2011, 12:43
    #37367170
-O_o-
-O_o-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
if...then...else
-O_o-,
все, я понял ))) прошелся при помощи F8. Я не знал что оно по числам разбито... думал ДА/НЕТ и все... Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2011, 12:44
    #37367174
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
if...then...else
-O_o-откуда взялось (6)- ???

MsgBox Function
Displays a message in a dialog box, waits for the user to click a button, and returns an Integer indicating which button the user clicked.
vbYes = 6
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2011, 14:13
    #37367361
Сын вождя
Сын вождя
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
if...then...else
ELSE с двоеточием это метка для перехода GOTO ELSE.
ELSE без двоеточия относится к конструкции IF.
Правильно так:
Код: plaintext
1.
2.
3.
4.
5.
If ... Then
    MsgBox "yes"
Else
    Exit Sub
End If
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2011, 16:17
    #37367654
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
if...then...else
или так
If ... Then MsgBox$ "yes" Else Exit Sub
После MsgBox ставим $, но не у того где есть выбор ДА НЕТ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2011, 16:23
    #37367673
-O_o-
-O_o-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
if...then...else
Всем спасибо. Уже сделал... Теперь бьюсь над вот этим
http://www.sql.ru/forum/actualthread.aspx?tid=867957&pg=2
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / if...then...else / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 393ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2176643]:
 0ms
get settings:
 10ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 60ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 1ms
others: 221ms
total:  393ms
x
x
Закрыть


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