У овом чланку ћемо научити функцију МсгБок у Екцелу ВБА, Следе поставке параметара дугмади мсгбок вба:
| Цонстант | Вредност | Опис |
| вбОКОнли | 0 | Прикажите само дугме ОК. |
| вбОКЦанцел | 1 | Прикажите дугмад ОК и Цанцел. |
| вбАбортРетриИгноре | 2 | Прикажите дугмад Прекини, Покушај поново и Занемари. |
| вбИесНоЦанцел | 3 | Прикажите дугмад Да, Не и Откажи. |
| вбИесНо | 4 | Прикажите дугмад Да и Не. |
| вбРетриЦанцел | 5 | Прикажите дугмад Понови и Откажи. |
| вбЦритицал | 16 | Прикажите икону критичне поруке. |
| вбКуестион | 32 | Прикажите икону упита упозорења. |
| вбЕкцламатион | 48 | Прикажите икону поруке упозорења. |
| вбИнформатион | 64 | Прикажите икону поруке са информацијама. |
| вбДефаултБуттон1 | 0 | Прво дугме је подразумевано. |
| вбДефаултБуттон2 | 256 | Друго дугме је подразумевано. |
| вбДефаултБуттон3 | 512 | Треће дугме је подразумевано. |
| вбДефаултБуттон4 | 768 | Четврто дугме је подразумевано. |
| вбАпплицатионМодал | 0 | Модална апликација; корисник мора да одговори на оквир за поруку пре него што настави рад у тренутној апликацији. |
| вбСистемМодал | 4096 | Систем модал; све апликације су обустављене све док корисник не одговори на оквир за поруку. |
| вбМсгБокХелпБуттон | 16384 | Додаје дугме за помоћ у оквир за поруку |
| ВбМсгБокСетФорегроунд | 65536 | Одређује прозор оквира за поруке као прозор предњег плана |
| вбМсгБокРигхт | 524288 | Текст је поравнат удесно |
| вбМсгБокРтлРеадинг | 1048576 | Наведени текст треба да се приказује као читање здесна налево на хебрејском и арапском систему |
Погледајмо како оквир за поруку ВБА може помоћи кориснику у брисању свих садржаја ћелија на тренутном радном листу.
Следи снимак података:
Морамо да следимо следеће кораке:
- Кликните на картицу Девелопер
- Из групе кодова изаберите Висуал Басиц
- Убацимо командно дугме
- Унесите следећи код у тренутни модул радног листа:-
Опција Експлицитно
Приватна под -командаБуттон1_Цлицк ()
Затамњен одговор као цео број
ансвер = МсгБок ("Да ли желите да избришете све ћелије на тренутном листу?", вбИесНо + вбКуестион, "Делете алл целлс")
Ако је одговор = вбДа
Целлс.ЦлеарЦонтентс
Иначе
'не ради ништа
Крај Ако
Енд Суб
- Када кликнемо на дугме Цомманд, појавиће се следећи упит
- Кликните на дугме Да да бисте избрисали све ћелије.
- Резултат ће бити следећи
На овај начин можемо избрисати све ћелије помоћу командног дугмета у Екцел ВБА.
Оквир за преузимање порука у Екцел ВБА