Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Форма "ДА" "НЕТ"с условием! - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Форма "ДА" "НЕТ"с условием! (Макросы/Sub)
Форма "ДА" "НЕТ"с условием!
temnoo Дата: Суббота, 13.05.2017, 11:42 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 60% ±

Excel 2007
Добрый день. Есть макрос
[vba]
Код
Sub Какой_то_макрос()
Vyp = MsgBox("Материала нет в наличии. Хотите продолжить?" & Chr(13) & "Согласен?", vbExclamation + vbYesNo, "Сообщение макроса")
If Vyp = vbNo Then Exit Sub
End Sub
[/vba]
Как добавить в него условия выпадения этой формы с выбором ДА или НЕТ

Например:

При значении ячейки H7=1, то это меню пропускается и сразу выполняется другой макрос. а если значение ячейки H7="" (пусто) то сначала идет запрос выше представленного макроса.


Сообщение отредактировал temnoo - Суббота, 13.05.2017, 11:45
 
Ответить
СообщениеДобрый день. Есть макрос
[vba]
Код
Sub Какой_то_макрос()
Vyp = MsgBox("Материала нет в наличии. Хотите продолжить?" & Chr(13) & "Согласен?", vbExclamation + vbYesNo, "Сообщение макроса")
If Vyp = vbNo Then Exit Sub
End Sub
[/vba]
Как добавить в него условия выпадения этой формы с выбором ДА или НЕТ

Например:

При значении ячейки H7=1, то это меню пропускается и сразу выполняется другой макрос. а если значение ячейки H7="" (пусто) то сначала идет запрос выше представленного макроса.

Автор - temnoo
Дата добавления - 13.05.2017 в 11:42
Karataev Дата: Суббота, 13.05.2017, 11:51 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 834
Репутация: 311 ±
Замечаний: 0% ±

Excel
[vba]
Код
Sub Какой_то_макрос()
    If Range("H7").Value = "" Then
        If MsgBox("Материала нет в наличии. Хотите продолжить?" & Chr(13) & "Согласен?", _
                vbExclamation + vbYesNo, "Сообщение макроса") = vbNo Then
            Exit Sub
        End If
    End If
End Sub
[/vba]


 
Ответить
Сообщение[vba]
Код
Sub Какой_то_макрос()
    If Range("H7").Value = "" Then
        If MsgBox("Материала нет в наличии. Хотите продолжить?" & Chr(13) & "Согласен?", _
                vbExclamation + vbYesNo, "Сообщение макроса") = vbNo Then
            Exit Sub
        End If
    End If
End Sub
[/vba]

Автор - Karataev
Дата добавления - 13.05.2017 в 11:51
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Форма "ДА" "НЕТ"с условием! (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!