Форма "ДА" "НЕТ"с условием!

Вход

Регистрация

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

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

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Форма "ДА" "НЕТ"с условием! (Макросы/Sub)

Форма "ДА" "НЕТ"с условием!

temnoo

Дата: Суббота, 13.05.2017, 11:42 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 57

Репутация: 0 ±

Замечаний: 20% ±

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

Ответить

Karataev

Дата: Суббота, 13.05.2017, 11:51 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1342

Репутация: 535 ±

Замечаний: 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]

Ответить

Форма "ДА" "НЕТ"с условием! (Макросы/Sub)

Страница 1 из 1
1