如何在Excel宏的MsgBox中同时显示提示文本与输入单元格区域？

问题分析 #

现有代码存在两个核心问题：一是重复判断每个计算单元格，未关联输入单元格与计算单元格的对应关系；二是无法定位触发提示的输入单元格区域。以下是优化后的代码，实现提示文本+触发区域显示的需求。

修改后的完整代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim inputRng As Range, cell As Range
    Dim calcCell As Range
    Dim errorCells As String
    
    ' 定义监控的输入区域
    Set inputRng = Union(Range("I17:I20"), Range("Q17:Q20"))
    
    ' 避免修改单元格时重复触发事件
    Application.EnableEvents = False
    
    On Error GoTo ResetEvents ' 出错时恢复事件触发
    
    ' 检查触发修改的单元格是否在监控区域内
    If Not Intersect(Target, inputRng) Is Nothing Then
        ' 遍历所有触发修改的单元格
        For Each cell In Intersect(Target, inputRng)
            ' 匹配输入单元格对应的计算单元格：I列→G列，Q列→O列
            Select Case cell.Column
                Case 9 ' I列
                    Set calcCell = Cells(cell.Row, 7) ' G列
                Case 17 ' Q列
                    Set calcCell = Cells(cell.Row, 15) ' O列
            End Select
            
            ' 判断计算值是否小于5
            If calcCell.Value < 5 Then
                ' 收集不符合条件的单元格地址
                errorCells = errorCells & cell.Address(False, False) & ", "
            End If
        Next cell
        
        ' 如果有不符合条件的单元格，统一弹出提示
        If errorCells <> "" Then
            ' 去掉最后多余的逗号和空格
            errorCells = Left(errorCells, Len(errorCells) - 2)
            MsgBox "Sample volume too low! Please increase total volume." & vbCrLf & _
                   "触发区域：" & errorCells
        End If
    End If

ResetEvents:
    ' 恢复事件触发
    Application.EnableEvents = True
End Sub

关键优化点 #

• 关联对应关系：通过列号匹配输入单元格（I/Q列）与计算单元格（G/O列），无需重复写多个If判断
• 批量处理：支持同时修改多个单元格的场景，收集所有违规区域后统一弹窗，避免多次弹出提示框
• 区域显示：通过cell.Address获取触发单元格的地址，拼接后显示在提示文本中
• 事件防护：加入Application.EnableEvents避免循环触发，同时添加错误处理确保事件功能恢复

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