当Sheet1中C13数值大于F19时弹出模态对话框实现方法

可以通过Excel的VBA宏实现这个需求，具体操作如下：

• 打开目标Excel文件，右键点击Sheet1的标签，选择「查看代码」，打开VBA编辑器。
• 在弹出的代码窗口中，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当C13或F19单元格内容变化时触发校验
    If Not Intersect(Target, Range("C13,F19")) Is Nothing Then
        ' 先确认两个单元格均为有效数值，避免空值或文本导致错误
        If IsNumeric(Range("C13").Value) And IsNumeric(Range("F19").Value) Then
            If Range("C13").Value > Range("F19").Value Then
                ' 弹出模态警告对话框，锁定操作直到用户点击确定
                MsgBox "Sheet1的C13单元格数值大于F19单元格数值，请修正！", vbCritical + vbOKOnly, "数值校验错误"
                ' 可选：自动撤销错误修改，避免错误数据留存
                Application.EnableEvents = False
                Target.Undo
                Application.EnableEvents = True
            End If
        End If
    End If
End Sub

代码说明： #

• Worksheet_Change事件会在Sheet1的单元格内容变化时自动触发。
• Intersect函数用于判断修改的单元格是否为C13或F19，避免无意义的校验。
• IsNumeric确保两个单元格都是数值类型，防止非数值内容引发运行错误。
• MsgBox默认就是模态对话框，会强制用户处理警告后才能继续操作Excel。
• 可选的Target.Undo可以直接撤销错误修改，你也可以根据需求替换为清空C13或设置默认值的代码。

注意事项： #

• 保存文件时需选择.xlsm格式（启用宏的工作簿），否则代码无法保存。
• 打开文件时需要启用宏，否则校验功能不会生效。

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