запрос перед виполнением макроса

sergey2303 Пользователь Сообщений: 350 Регистрация: 07.04.2015	#1 28.07.2015 15:49:45 добрий день! нужно что би при запуске макроса отображалась форма с вопросом виполнять макрос или нет, соответственно кнопки на етой форме да и нет

Sanja

Модератор

Сообщений: 19581 Регистрация: 10.01.2013

28.07.2015 15:55:27

Цитата
sergey2303 написал: нужно что би

Так в чем проблема? Что не получилось?

Согласие есть продукт при полном непротивлении сторон

sergey2303 Пользователь Сообщений: 350 Регистрация: 07.04.2015	#3 28.07.2015 15:58:24 нужно отобразить при MsgBox с вопросом и вариантами "Да/Нет".

Sanja

Модератор

Сообщений: 19581 Регистрация: 10.01.2013

28.07.2015 15:58:48

Ладно, не мучайтесь, дарю

Код

Sub Какой_то_макрос()
    Vyp = MsgBox("Я сейчас начну выполняться!" & Chr(13) & "Согласен?", vbExclamation + vbYesNo, "Сообщение макроса")
    If Vyp = vbNo Then Exit Sub
    MsgBox "Поехали!", , "Сообщение макроса"
End Sub

Согласие есть продукт при полном непротивлении сторон

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

28.07.2015 15:59:08

Код
if msgbox("Виполнять макрос или нет?",vbYesNo+vbQuestion)=vbNo then exit sub

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

sergey2303 Пользователь Сообщений: 350 Регистрация: 07.04.2015	#6 28.07.2015 16:04:53 все работает. спасибо

Читают тему