В этой статье я покажу вам, как можно разработать и использовать Да Нет окно сообщения в VBA в Excel.

Разработка и использование окна сообщений "Да-нет" с помощью Excel VBA (быстрый просмотр)

 Sub Yes_No_Message_Box() Answer = MsgBox("Вам нравится ExcelWIKI?", vbYesNo) If Answer = vbYes Then Range("C3") = Range("C3") + 1 ElseIf Answer = vbNo Then Range("C4") = Range("C4") + 1 End If End Sub 

Скачать Практическое пособие

Скачайте эту рабочую тетрадь для тренировок, чтобы заниматься во время чтения этой статьи.

Обзор кода VBA для разработки и использования окна сообщений "Да-нет" (пошаговый анализ)

Давайте научимся использовать окно сообщения "да-нет на простом примере. окно сообщения задаст вам вопрос, нравится ли вам ExcelWIKI?

Если ваш ответ положительный, вы нажмете кнопку Да в окно сообщения . И если ваш ответ Нет вы нажмете Нет .

Итак, что произойдет после того, как вы нажмете "да" или "нет" в окне окно сообщения ? В активном рабочем листе есть 2 ячейки, содержащие количество людей, которым нравится и не нравится ExcelWIKI. Если вы нажмете кнопку да число в аналогичной ячейке увеличится на единицу.

И если вы ударите нет , число в клетке неприязни увеличится на единицу.

Итак, как выполнить всю эту задачу с помощью VBA код? Легко. Есть 2 основные этапы всего процесса.

• Развитие Да-Нет Блок сообщений
• Использование выходных данных Ящик для сообщений

Я подробно описываю каждый шаг для вашего обучения.

⧪ Шаг 1: Разработка блока сообщений "Да-Нет

Прежде всего, необходимо создать сообщение да-нет коробка в VBA Это легко. Используйте ту же процедуру, что и в обычном окне сообщений, с вопросом об аргументе, наряду с новым аргументом vbYesNo .

Вопрос заключается в следующем, "Нравится ли вам ExcelWIKI?".

 Ответ = MsgBox("Вам нравится ExcelWIKI?", vbYesNo) 

⧪ Шаг 2: Использование вывода окна сообщений

Далее мы выполним задачу, используя окно сообщения выход. Здесь, ячейка C3 содержит количество людей, которым нравится ExcelWIKI, а ячейка C4 содержит количество людей, которым не нравится ExcelWIKI.

Итак, если ответ Да , ячейка C3 увеличится на единицу. И если это Нет , ячейка C4 увеличится на единицу.

Мы будем использовать If-block чтобы выполнить это.

 If Answer = vbYes Then Range("C3") = Range("C3") + 1 ElseIf Answer = vbNo Then Range("C4") = Range("C4") + 1 End If 

Таким образом, полный VBA код будет:

⧭ Код VBA:

 Sub Yes_No_Message_Box() Answer = MsgBox("Вам нравится ExcelWIKI?", vbYesNo) If Answer = vbYes Then Range("C3") = Range("C3") + 1 ElseIf Answer = vbNo Then Range("C4") = Range("C4") + 1 End If End Sub 

Создание макроса для разработки и использования поля сообщений "Да-нет" в Excel

Мы рассмотрели пошаговый анализ кода для разработки и использования окна сообщения "Да-Нет". Теперь давайте посмотрим, как можно создать макрос для запуска этого кода.

⧪ Шаг 1: Открытие окна VBA

Нажмите ALT + F11 на клавиатуре, чтобы открыть Visual Basic окно.

⧪ Шаг 2: Вставка нового модуля

Перейти к Вставка> Модуль на панели инструментов. Нажмите на Модуль . Новый модуль под названием Модуль1 (или что-нибудь другое, в зависимости от вашей прошлой истории) откроется.

⧪ Шаг 3: Ввод кода VBA

Это самый важный шаг. Вставьте заданный VBA код в модуле.

⧪ Шаг 4: Выполнение кода

Нажмите на Run Sub / UserForm инструмент из панели инструментов выше.

Код будет запущен. A окно сообщения спросит вас, нравится ли вам ExcelWIKI или нет, с Да и Нет вариант.

Если вы выберете Да число в ячейке C3 увеличится на единицу. А если вы выберете Нет число в ячейке C4 увеличится на единицу.

Здесь я выбрал да поэтому количество людей, которым нравится ExcelWIKI увеличилась на единицу.

О чем следует помнить

• A окно сообщения в VBA содержит в общей сложности 4 параметры, называемые Подсказка, кнопка, заголовок и Справочный файл Здесь я показал только 2 параметры, Prompt и Кнопка Но если вы хотите открыть для себя Окно сообщений VBA более подробно вы можете ознакомиться по этой ссылке.