如何在现有可用的Excel VBA宏中添加Yes/No消息框分支逻辑

很容易搞定这个需求！我们只需要借助VBA的MsgBox函数获取用户选择，再根据选择分支执行逻辑就行。下面是修改后的完整代码，已经把确认弹窗和分支逻辑整合进去了：

Sub Submit_Details()
    ' 弹出Yes/No确认弹窗，获取用户选择
    Dim userChoice As VbMsgBoxResult
    userChoice = MsgBox("确认要提交数据吗？", vbYesNo + vbQuestion, "提交确认")
    
    ' 根据用户选择分支执行
    If userChoice = vbYes Then
        Dim shDrug As Worksheet
        Dim shLogging As Worksheet
        Dim iCurrentRow As Integer
        Dim sDrugName As String
        Set shLogging = ThisWorkbook.Sheets("Logging")
        sDrugName = shLogging.Range("G11").Value
        Set shDrug = ThisWorkbook.Sheets(sDrugName)
        iCurrentRow = shDrug.Range("A" & Application.Rows.Count).End(xlUp).Row + 1
        With shDrug
            .Cells(iCurrentRow, 1) = Format([Now()], "DD-MMM-YYYY HH:MM:SS")
            .Cells(iCurrentRow, 2) = shLogging.Range("G7")
            .Cells(iCurrentRow, 3) = shLogging.Range("G8")
            .Cells(iCurrentRow, 4) = shLogging.Range("G9")
            .Cells(iCurrentRow, 5) = shLogging.Range("G10")
            .Cells(iCurrentRow, 6) = shLogging.Range("G12")
            .Cells(iCurrentRow, 7) = shLogging.Range("G13")
        End With
        shLogging.Range("G7, G8, G9, G10, G11, G12, G13").Value = ""
        MsgBox "Data submitted successfully!"
    Else
        ' 用户选择No时的提示
        MsgBox "请先完成验证步骤才能继续提交。", vbExclamation, "操作终止"
    End If
End Sub

关键部分说明： #

• MsgBox("确认要提交数据吗？", vbYesNo + vbQuestion, "提交确认")：生成一个带Yes/No按钮和问号图标的弹窗，第三个参数是弹窗标题，你可以根据实际需求修改提示文本。
• 用VbMsgBoxResult类型的变量userChoice存储用户的选择结果，方便后续判断。
• 通过If...Else分支实现逻辑分流：用户选Yes就执行原有宏的全部代码；选No就弹出提示并终止宏的执行。

这样修改后就能完美实现你想要的功能啦！

内容的提问来源于stack exchange，提问作者Joshua Jacobs