Функция на Excel VBA MsgBox

Най- Функция MsgBox в Excel VBA може да върне резултата, докато обикновеният MsgBox не може.

Ситуация:

Поставете командния бутон на работния лист и добавете следните кодови редове:

1. Първо, декларираме променлива, наречена отговор от тип Integer.

Dim answer As Integer

2. Използваме функцията MsgBox за инициализиране на променливия отговор с входа от потребителя.

Функцията MsgBox, когато използва скоби, иматри аргумента. Първата част се използва за съобщението в полето за съобщения. Използвайте втората част, за да определите кои бутони и икони искате да се показват в полето за съобщения. Третата част се показва в заглавната лента на полето за съобщения.

answer = MsgBox("Are you sure you want to empty the sheet?", vbYesNo + vbQuestion, "Empty Sheet")

Забележка: Поставете курсора на vbYesNo в редактора на Visual Basic и щракнете върху F1, за да видите кои други бутони и икони можете да използвате. Вместо константи vbYesNo и vbQuestion можете също така да използвате съответните стойности 4 и 32.

3. Ако потребителят кликне върху бутона Да, Excel VBA изпразва листа. Ако потребителят кликне върху бутона "Не", нищо не се случва. Добавете следните кодови линии, за да постигнете това.

If answer = vbYes Then
Cells.ClearContents
Else
"do nothing
End If

4. Щракнете върху командния бутон на листа.

5. Щракнете върху Да.

Резултат: