如何合并VBA多个MsgBox为一个，实现批量提示及续/取消操作？

以下是满足需求的修改代码：

Sub CheckUnperformedTests()
    Dim wsDaily As Worksheet
    Dim wsSheet2 As Worksheet
    Dim unperformedTests As String
    Dim i As Integer
    Dim msgResult As VbMsgBoxResult
    
    ' 定义工作表对象
    Set wsDaily = ThisWorkbook.Worksheets("DailyReport")
    Set wsSheet2 = ThisWorkbook.Worksheets("Sheet2")
    
    ' 检查DailyReport的F8是否包含"DCT"
    If InStr(wsDaily.Range("F8").Value, "DCT") > 0 Then
        ' 初始化未执行测试的字符串
        unperformedTests = ""
        
        ' 循环检查G34到G36单元格
        For i = 34 To 36
            If IsEmpty(wsSheet2.Range("G" & i).Value) Then
                ' 收集对应的E列测试名称，用换行分隔
                unperformedTests = unperformedTests & "- " & wsSheet2.Range("E" & i).Value & vbCrLf
            End If
        Next i
        
        ' 如果有未执行的测试，弹出汇总对话框
        If unperformedTests <> "" Then
            msgResult = MsgBox("以下测试未执行：" & vbCrLf & vbCrLf & unperformedTests, _
                vbOKCancel + vbInformation, "测试检查提示")
            
            ' 点击取消则退出子程序
            If msgResult = vbCancel Then
                Exit Sub
            End If
        End If
    End If
    
    ' 这里写后续要执行的子程序代码
    MsgBox "继续执行后续操作..."
End Sub

代码关键点说明 #

• 收集测试项：用字符串变量unperformedTests汇总所有未执行的测试名称，通过vbCrLf实现换行显示
• 灵活检查范围：使用循环遍历G34到G36，后续需要扩展检查范围时，只需修改循环的起止数字即可
• 按钮逻辑处理：通过vbOKCancel参数让MsgBox显示「继续」（OK）和「取消」按钮，根据返回值vbCancel判断是否退出
• 工作表对象化：提前定义工作表对象，避免重复调用ThisWorkbook.Worksheets，提升代码可读性和执行效率

内容的提问来源于stack exchange，提问作者Ranjan Sapkota