Вывод MsgBox при нажатии на кнопку

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

Вывод MsgBox при нажатии на кнопку (Формулы/Formulas)

vdekameron

Дата: Пятница, 24.10.2014, 11:16 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 177

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

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

Excel 2010

Добрый день. Нашел на форуме пару тем про MsgBox, но нет того, что нужно. Нужно ,при нажатии на кнопку,(которая выполняет определенный макрос) вывести окно с сообщением - "Вы действительно хотите.....и.т.д."

Ответить

Rioran

Дата: Пятница, 24.10.2014, 11:34 | Сообщение № 2

Группа: Авторы

Ранг: Ветеран

Сообщений: 903

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

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

Excel 2013

vdekameron, здравствуйте.

Составил Вам такой учебный пример, думаю что угадал Ваши мысли и будет полезно:

[vba]

Код

Sub Rio_MsgBox_Tester()

Dim A As Byte

A = MsgBox("Вы действительно хотите поиграть?", vbYesNo, "Что же делать?")

If A = vbYes Then MsgBox "Yes"

If A = vbNo Then MsgBox "No"

End Sub

[/vba]

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Ответить

_Boroda_

Дата: Пятница, 24.10.2014, 11:44 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 16895

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Вы так хотели?
[vba]

Код

Sub tt()
If MsgBox("Запустить макрос ''формат С''?", vbYesNo) <> vbYes Then Exit Sub
'Код макроса
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

AndreTM

Дата: Пятница, 24.10.2014, 12:06 | Сообщение № 4

Группа: Друзья

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

Сообщений: 1762

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

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

2003 & 2010

Саша, пятница на дворе?
vbYes = 110₂
vbNo= 111₂
vbOk = 001₂

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Сообщение отредактировал AndreTM - Пятница, 24.10.2014, 13:10

Ответить

_Boroda_

Дата: Пятница, 24.10.2014, 12:21 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 16895

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата AndreTM, 24.10.2014 в 12:06, в сообщении № 4

Саша, пятница на дворе?

Не, просто неохота отвечать на лишние вопросы типа "А что такое 6?". Поэтому, если код идет вовне, то я всегда стараюсь так писать - так понятнее.

Добавлено.
Действительно, пятница!
Андрей, спасибо. Код поправил.

Ответить

vdekameron

Дата: Пятница, 24.10.2014, 12:46 | Сообщение № 6

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

Ранг: Форумчанин

Сообщений: 177

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

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

Excel 2010

Немного не поняли что я хотел. Но я взял код, разобрался, все получилось. Спасибо за то, что направили в нужное русло!

Ответить

Вывод MsgBox при нажатии на кнопку (Формулы/Formulas)

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