В VBA для Excel функция «MsgBox» используется для отображения окна сообщения с дополнительными кнопками и значками. Вот несколько методов с примерами кода:

Метод 1: основное окно сообщения с кнопками «Да» и «Нет»

Dim result As VbMsgBoxResult
result = MsgBox("Do you want to continue?", vbYesNo)
If result = vbYes Then
    ' User clicked "Yes"
    ' Add your code here
Else
    ' User clicked "No"
    ' Add your code here
End If

Dim result As VbMsgBoxResult
result = MsgBox("Do you want to continue?", vbYesNo + vbQuestion, "Custom Title")
If result = vbYes Then
    ' User clicked "Yes"
    ' Add your code here
Else
    ' User clicked "No"
    ' Add your code here
End If

Метод 3: окно сообщения с кнопками «Да» и «Нет» и разными возвращаемыми значениями

Dim result As Integer
result = MsgBox("Do you want to continue?", vbYesNoCancel)
Select Case result
    Case vbYes
        ' User clicked "Yes"
        ' Add your code here
    Case vbNo
        ' User clicked "No"
        ' Add your code here
    Case vbCancel
        ' User clicked "Cancel"
        ' Add your code here
End Select

Метод 4. Окно сообщения с кнопками «Да» и «Нет» и настраиваемыми надписями кнопок

Dim result As VbMsgBoxResult
result = MsgBox("Do you want to continue?", vbYesNo + vbExclamation, "Custom Title", "Custom Yes", "Custom No")
If result = vbYes Then
    ' User clicked "Custom Yes"
    ' Add your code here
Else
    ' User clicked "Custom No"
    ' Add your code here
End If

Метод 5: окно сообщения с кнопками «Да» и «Нет» и кнопкой по умолчанию, установленной на «Нет»

Dim result As VbMsgBoxResult
result = MsgBox("Do you want to continue?", vbYesNo + vbDefaultButton2)
If result = vbYes Then
    ' User clicked "Yes"
    ' Add your code here
Else
    ' User clicked "No"
    ' Add your code here
End If