选择数据验证列表项时，是/否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