В Функция MsgBox в Excel VBA может вернуть результат, а простой MsgBox - нет.
Ситуация:
Поместите командную кнопку на свой рабочий лист и добавьте следующие строки кода:
1. Сначала мы объявляем переменную с именем answer типа Integer.
Тусклый ответ как целое число
2. Мы используем функцию MsgBox для инициализации ответа переменной с вводом от пользователя.
Функция MsgBox при использовании круглых скобок имеет три аргумента. Первая часть используется для сообщения в окне сообщения. Используйте вторую часть, чтобы указать, какие кнопки и значки вы хотите отображать в окне сообщения. Третья часть отображается в строке заголовка окна сообщения.
answer = MsgBox («Вы действительно хотите очистить лист?», vbYesNo + vbQuestion, «Пустой лист»)
Примечание. Поместите курсор на vbYesNo в редакторе Visual Basic и нажмите F1, чтобы увидеть, какие другие кнопки и значки вы можете использовать. Вместо констант vbYesNo и vbQuestion можно также использовать соответствующие значения 4 и 32.
3. Если пользователь нажимает кнопку «Да», Excel VBA очищает лист. Если пользователь нажимает кнопку «Нет», ничего не происходит. Для этого добавьте следующие строки кода.
Если answer = vb Да Тогда
Cells.ClearContents
Еще
'ничего не делать
Конец, если
4. Щелкните командную кнопку на листе.
5. Щелкните Да.
Результат:
