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