При разработке макросов или приложений VBA часто необходимо запросить у пользователя подтверждение перед выполнением определенных действий. Один из распространенных способов добиться этого — использовать окно сообщения, в котором отображается сообщение с подтверждением и которое позволяет пользователю выбирать между различными вариантами. В этой статье мы рассмотрим пять различных методов отображения окна подтверждения в VBA, а также примеры кода для каждого метода.

Метод 1: использование функции MsgBox
Функция MsgBox — это встроенная функция VBA, которая отображает окно сообщения с настраиваемыми кнопками и значками. Чтобы создать окно с подтверждением с помощью этого метода, вы можете использовать следующий пример кода:

Sub Method1()
    Dim response As VbMsgBoxResult
    response = MsgBox("Are you sure you want to proceed?", vbYesNo + vbQuestion, "Confirmation")

    If response = vbYes Then
        ' Code to execute if user clicks Yes
    Else
        ' Code to execute if user clicks No or closes the message box
    End If
End Sub

Метод 2: использование пользовательской формы
Другой способ отобразить окно сообщения с подтверждением — создание пользовательской пользовательской формы в VBA. Этот метод обеспечивает большую гибкость с точки зрения проектирования и настройки. Вот пример того, как вы можете создать пользовательскую форму для подтверждения:

Sub Method2()
    Dim response As VbMsgBoxResult
    response = MsgBoxForm.ShowConfirmation("Are you sure you want to proceed?")

    If response = vbYes Then
        ' Code to execute if user clicks Yes
    Else
        ' Code to execute if user clicks No or closes the message box
    End If
End Sub

Метод 3: использование функции InputBox
Функция InputBox также может использоваться для создания окна сообщения с подтверждением в VBA. Хотя в первую очередь он предназначен для получения входных данных от пользователя, его можно перепрофилировать для отображения подтверждающего сообщения. Вот пример:

Sub Method3()
    Dim response As String
    response = InputBox("Are you sure you want to proceed?", "Confirmation")

    If response = "Yes" Then
        ' Code to execute if user confirms by typing "Yes"
    Else
        ' Code to execute if user cancels or provides a different response
    End If
End Sub

Метод 4: использование пользовательской функции
Вы можете создать пользовательскую функцию, которая отображает окно сообщения с подтверждением и возвращает логическое значение, указывающее выбор пользователя. Вот пример:

Function ShowConfirmation(message As String) As Boolean
    Dim response As VbMsgBoxResult
    response = MsgBox(message, vbYesNo + vbQuestion, "Confirmation")

    If response = vbYes Then
        ShowConfirmation = True
    Else
        ShowConfirmation = False
    End If
End Function
Sub Method4()
    If ShowConfirmation("Are you sure you want to proceed?") Then
        ' Code to execute if user clicks Yes
    Else
        ' Code to execute if user clicks No or closes the message box
    End If
End Sub

Метод 5. Использование ленты или элемента управления «Кнопка».
Если вы работаете с надстройкой Excel или настраиваемой лентой, вы можете добавить элемент управления «Кнопка», при нажатии на который будет появляться окно с подтверждением. Вот пример использования кнопки на ленте:

Sub Method5()
    ' Code for ribbon button click event
    If MsgBox("Are you sure you want to proceed?", vbYesNo + vbQuestion, "Confirmation") = vbYes Then
        ' Code to execute if user clicks Yes
    Else
        ' Code to execute if user clicks No or closes the message box
    End If
End Sub

В этой статье мы рассмотрели пять различных способов отображения окна подтверждения в VBA. Каждый метод имеет свои преимущества и может быть выбран в зависимости от конкретных требований вашего проекта. Используя эти методы, вы можете улучшить взаимодействие с пользователем и обеспечить подтверждение важных действий перед выполнением.