Да / нет msgbox при выборе элемента списка проверки данных - VBA

Question

Кто-нибудь знает, как я могу использовать этот код для отображения поля «да нет» при щелчке элемента списка из проверки данных в определенном столбце?

В основном в списке они нажимают «Y»и я хочу, чтобы появилось окно «да нет» с просьбой подтвердить, что они хотят «Y».

response = MsgBox("Confirm New Batch Is Beginning", vbYesNo)

If response = vbNo Then
    'do nothing
    Exit Sub
End If

Answer 1

Вы можете использовать worksheet_change evnt. Этот пример будет добавлен в столбец A, если ячейка изменится на «Да», то появится сообщение msgbox. Этот код принадлежит модулю рабочего листа.Щелкните правой кнопкой мыши вкладку листа и выберите «Просмотреть код», который является модулем рабочего листа

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 1 Then    'column 1 is column A
        If Target = "Yes" Then
            Response = MsgBox("Really?", vbYesNo)
            Application.EnableEvents = False
            If Response = vbNo Then
                Target = "No"
            ElseIf Response = vbYes Then
                Target = "Yes"
            End If
        End If
    End If
    Application.EnableEvents = True
End Sub