vba 是/否弹出框

Question

我的电子表格中有以下代码。

我希望它做的不是在第 9 列中查找“是”，而是在第 8 列中查找日期。 如果第 8 列中有日期，我希望它显示“是/否”框。如果选择“是”，我希望它运行其余的代码，将该行移动到单独的工作表中。

有什么想法吗？

私有子工作表_更改（ByVal 目标作为范围）

' 检查仅看到一个单元格已更新 如果 Target.CountLarge > 1 则退出 Sub

' 检查第 5 行后的 B 列是否已输入内容并设置为“是” 如果 Target.Column = 9 且 Target.Row > 1 且 Target.Value = "Yes" 那么 应用程序.EnableEvents = False ' 将 B 列复制到 I 以完成下一个可用行中的工作表 范围（单元格（Target.Row，“C”），单元格（Target.Row，“H”））.复制表（“S2”）.Cells（Rows.Count，“C”）.End（xlUp）.Offset (1, 0) ' 复制后删除当前行 行（目标.行）.删除 应用程序.EnableEvents = True 结束如果

结束子

尝试添加 vb yes/no，但它不会遵循代码的其余部分。

Answer 1

添加消息框非常简单：

Dim user_response As Integer
user_response = MsgBox("DO YOU WANT TO PROCEED?", vbQuestion + vbYesNo + vbDefaultButton2, "THIS IS A QUESTION")

If user_response = vbYes Then
    MsgBox "You choose YES"
    ....
Else
    MsgBox "You choose NO"
    ....
End If