В тази статия ще научим функцията MsgBox в Excel VBA, Следват настройките на аргументите на бутоните на msgbox vba:
| Постоянен | Стойност | Описание |
| vbOKСамо | 0 | Покажете само бутона OK. |
| vbOKОтказ | 1 | Покажете бутоните OK и Cancel. |
| vbAbortRetryIgnore | 2 | Покажете бутоните Прекъсване, Повторен опит и Игнориране. |
| vbДаНеОтказ | 3 | Покажете бутоните Да, Не и Отказ. |
| vbДа Не | 4 | Бутони Да и Не на дисплея. |
| vbRetryCancel | 5 | Покажете бутоните за повторен опит и отмяна. |
| vbCritical | 16 | Показване на икона за критично съобщение. |
| vb Въпрос | 32 | Покажете иконата на предупредителната заявка. |
| vbExclamation | 48 | Показване на иконата на предупредително съобщение. |
| vbИнформация | 64 | Показване на иконата за информационно съобщение. |
| vbDefaultButton1 | 0 | Първият бутон е по подразбиране. |
| vbDefaultButton2 | 256 | Вторият бутон е по подразбиране. |
| vbDefaultButton3 | 512 | Третият бутон е по подразбиране. |
| vbDefaultButton4 | 768 | Четвъртият бутон е по подразбиране. |
| vbApplicationModal | 0 | Модално приложение; потребителят трябва да отговори на полето за съобщения, преди да продължи работата в текущото приложение. |
| vbSystemModal | 4096 | Модална система; всички приложения са спрени, докато потребителят отговори на полето за съобщения. |
| vbMsgBoxHelpButton | 16384 | Добавя бутона за помощ към полето за съобщения |
| VbMsgBoxSetForeground | 65536 | Указва прозореца на полето за съобщения като прозорец на преден план |
| vbMsgBoxRight | 524288 | Текстът е подравнен вдясно |
| vbMsgBoxRtlReading | 1048576 | Указва, че текстът трябва да се показва като четене отдясно наляво в еврейските и арабските системи |
Нека видим как полето за съобщения vba може да помогне на потребителя да изтрие цялото съдържание на клетките в текущия работен лист.
Следва моментна снимка на данните:
Трябва да следваме следните стъпки:
- Кликнете върху раздела Разработчик
- От групата Кодове изберете Visual Basic
- Нека вмъкнем команден бутон
- Въведете следния код в текущия модул на работен лист:-
Опция Изрично
Private Sub CommandButton1_Click ()
Затъмнен отговор Като цяло число
answer = MsgBox ("Искате ли да изтриете всички клетки в текущия лист?", vbДаНе + vbQuestion, "Изтриване на всички клетки")
Ако отговор = vbДа Тогава
Cells.ClearContents
Иначе
'не прави нищо
Край Ако
End Sub
- Когато щракнем върху бутона Command, ще се появи следният подкана
- Щракнете върху бутона Да, за да изтриете всички клетки.
- Резултатът ще бъде както следва
По този начин можем да изтрием всички клетки с помощта на командния бутон в Excel VBA.
Кутия за съобщения за изтегляне в Excel VBA