如何在指定Range:D7:J30范围插入内容时触发msgBox弹窗

该需求完全可以实现，借助Excel VBA的Worksheet_Change工作表变更事件即可完成，核心逻辑是通过撤销、重做操作获取单元格编辑前后的内容，只有从空值变为非空值（即插入/输入内容的场景）时才触发弹窗，删除/清空内容的场景直接跳过。

具体操作步骤 #

• 打开需要设置功能的Excel文件，按下Alt + F11快捷键调出VBA编辑器
• 在左侧项目资源管理器面板中找到目标工作表，双击打开该工作表对应的代码编辑窗口
• 将下方的VBA代码完整粘贴到代码编辑窗口中即可

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义需要监测的单元格区间
    Dim MonitorRange As Range
    Set MonitorRange = Me.Range("D7:J30")
    
    ' 编辑区域不在监测范围内直接退出
    If Application.Intersect(Target, MonitorRange) Is Nothing Then Exit Sub
    
    ' 临时禁用事件，避免后续操作重复触发事件
    Application.EnableEvents = False
    
    Dim cell As Range
    ' 遍历所有被编辑的单元格
    For Each cell In Application.Intersect(Target, MonitorRange)
        ' 撤销、重做操作获取变更前后的单元格内容
        Application.Undo
        Dim oldVal As Variant
        oldVal = cell.Value
        Application.Redo
        
        ' 仅原来为空、现在不为空的插入内容场景触发弹窗
        If oldVal = "" And cell.Value <> "" Then
            MsgBox "你已在D7:J30区间内插入新内容", vbInformation, "操作提示"
            ' 如需单次编辑只弹一次提示，取消下方Exit For的注释即可
            ' Exit For
        End If
    Next cell
    
    ' 恢复事件启用
    Application.EnableEvents = True
End Sub

注意事项 #

• 代码仅对当前粘贴的工作表生效，如需多个工作表生效，可分别在对应工作表的代码窗口粘贴代码，或者将逻辑迁移到工作簿级别的Workbook_SheetChange事件中
• 文件需要保存为xlsm（启用宏的工作簿）格式，否则关闭文件后代码会丢失
• 打开文件时需要选择启用宏，功能才能正常运行
• 可根据需要自行修改MsgBox后的提示文本内容

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