Ответы Mail
Программирование
Android
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
Системное администрирование
Другие языки и технологии
Лидеры категории
Лена-пена
М.И.
Y.Nine
•••
Искусственный Интеллект
Искусственный Интеллект
Искусственный Интеллект
1 ответ
Override
(366)
2 недели назад
С помощью MsgBox в VBA можно создавать вопросы с кнопками «Да» и «Нет». 13
Синтаксис для создания такого окна сообщения:
variable = MsgBox("Text", vbQuestion + vbYesNo + vbDefaultButton2, "Message Box Title"). 5
Пример кода: 3
Sub MsgBoxYesNo() [3]( https://tr-page.yandex.ru/translate?lang=en-ru&url=https%3A%2F%2Fwww.statology.org%2Fvba-msgbox-yes-no%2F )
' спросить пользователя, хочет ли он перемножить две ячейки [3]( https://tr-page.yandex.ru/translate?lang=en-ru&url=https%3A%2F%2Fwww.statology.org%2Fvba-msgbox-yes-no%2F )
UserResponse = MsgBox("Вы хотите перемножить ячейки A1 и B1?", vbYesNo) [3]( https://tr-page.yandex.ru/translate?lang=en-ru&url=https%3A%2F%2Fwww.statology.org%2Fvba-msgbox-yes-no%2F )
' выполнить действие на основе ответа пользователя [3]( https://tr-page.yandex.ru/translate?lang=en-ru&url=https%3A%2F%2Fwww.statology.org%2Fvba-msgbox-yes-no%2F )
Если UserResponse = vbYes, то [3]( https://tr-page.yandex.ru/translate?lang=en-ru&url=https%3A%2F%2Fwww.statology.org%2Fvba-msgbox-yes-no%2F )
Range("C1") = Range("A1") * Range("B1") [3]( https://tr-page.yandex.ru/translate?lang=en-ru&url=https%3A%2F%2Fwww.statology.org%2Fvba-msgbox-yes-no%2F )
Иначе [3]( https://tr-page.yandex.ru/translate?lang=en-ru&url=https%3A%2F%2Fwww.statology.org%2Fvba-msgbox-yes-no%2F )
MsgBox "Умножение не производилось" [3]( https://tr-page.yandex.ru/translate?lang=en-ru&url=https%3A%2F%2Fwww.statology.org%2Fvba-msgbox-yes-no%2F )
End, если [3]( https://tr-page.yandex.ru/translate?lang=en-ru&url=https%3A%2F%2Fwww.statology.org%2Fvba-msgbox-yes-no%2F )
End Sub [3]( https://tr-page.yandex.ru/translate?lang=en-ru&url=https%3A%2F%2Fwww.statology.org%2Fvba-msgbox-yes-no%2F )
Синтаксис для создания такого окна сообщения:
variable = MsgBox("Text", vbQuestion + vbYesNo + vbDefaultButton2, "Message Box Title"). 5
Пример кода: 3
Sub MsgBoxYesNo() [3]( https://tr-page.yandex.ru/translate?lang=en-ru&url=https%3A%2F%2Fwww.statology.org%2Fvba-msgbox-yes-no%2F )
' спросить пользователя, хочет ли он перемножить две ячейки [3]( https://tr-page.yandex.ru/translate?lang=en-ru&url=https%3A%2F%2Fwww.statology.org%2Fvba-msgbox-yes-no%2F )
UserResponse = MsgBox("Вы хотите перемножить ячейки A1 и B1?", vbYesNo) [3]( https://tr-page.yandex.ru/translate?lang=en-ru&url=https%3A%2F%2Fwww.statology.org%2Fvba-msgbox-yes-no%2F )
' выполнить действие на основе ответа пользователя [3]( https://tr-page.yandex.ru/translate?lang=en-ru&url=https%3A%2F%2Fwww.statology.org%2Fvba-msgbox-yes-no%2F )
Если UserResponse = vbYes, то [3]( https://tr-page.yandex.ru/translate?lang=en-ru&url=https%3A%2F%2Fwww.statology.org%2Fvba-msgbox-yes-no%2F )
Range("C1") = Range("A1") * Range("B1") [3]( https://tr-page.yandex.ru/translate?lang=en-ru&url=https%3A%2F%2Fwww.statology.org%2Fvba-msgbox-yes-no%2F )
Иначе [3]( https://tr-page.yandex.ru/translate?lang=en-ru&url=https%3A%2F%2Fwww.statology.org%2Fvba-msgbox-yes-no%2F )
MsgBox "Умножение не производилось" [3]( https://tr-page.yandex.ru/translate?lang=en-ru&url=https%3A%2F%2Fwww.statology.org%2Fvba-msgbox-yes-no%2F )
End, если [3]( https://tr-page.yandex.ru/translate?lang=en-ru&url=https%3A%2F%2Fwww.statology.org%2Fvba-msgbox-yes-no%2F )
End Sub [3]( https://tr-page.yandex.ru/translate?lang=en-ru&url=https%3A%2F%2Fwww.statology.org%2Fvba-msgbox-yes-no%2F )
Похожие вопросы
так вот, как с помощью нее сделать окошко с ответами "да, нет", но при этом чтобы каждый ответ имел свой ответ. например, при нажатии на "да" идет один текст, а при "нет" - другой