基于单元格值的Excel VBA报警消息运行列表功能优化问询

首先，先修正你原代码的逻辑漏洞（原代码的If语句缺少闭合的End If，会导致判断逻辑不严谨），再添加H5值变更时的自动记录功能，具体实现如下：

步骤1：优化报警消息显示代码 #

把原代码改成更清晰的Select Case结构，同时补充未知报警编号的提示：

Sub Display_Alarm_Descriptions()
    Dim alarmNumber As Integer, alarmMsg As String
    alarmNumber = Range("H5").Value
    
    Select Case alarmNumber
        Case 0
            alarmMsg = "No Active Alarms"
        Case 1
            alarmMsg = "Proofer Output Failure Safety"
        Case 2
            alarmMsg = "Main Drive Overload"
        Case Else
            alarmMsg = "Unknown Alarm Number" ' 新增未知编号的友好提示
    End Select
    
    Range("K5").Value = alarmMsg
End Sub

步骤2：添加单元格变更触发的记录功能 #

要实现H5值变化时自动记录，需要用到工作表Change事件，操作步骤：右键目标工作表标签→点击「查看代码」，在弹出的工作表模块中粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只响应H5单元格的变更
    If Not Intersect(Target, Range("H5")) Is Nothing Then
        ' 临时禁用事件，防止写入记录时递归触发Change事件
        Application.EnableEvents = False
        
        ' 先更新K5的报警消息
        Display_Alarm_Descriptions
        
        ' 找到下方第一个空行（假设从A列开始记录，可根据需求修改列）
        Dim lastRow As Long
        lastRow = Cells(Rows.Count, "A").End(xlUp).Row + 1
        
        ' 写入记录内容：时间戳、H5新值、对应报警消息
        Cells(lastRow, "A").Value = Now() ' 记录变更时间
        Cells(lastRow, "B").Value = Range("H5").Value ' 记录H5的新值
        Cells(lastRow, "C").Value = Range("K5").Value ' 记录对应的报警消息
        
        ' 恢复事件触发
        Application.EnableEvents = True
    End If
End Sub

额外说明 #

• 如果报警编号可能超过32767，建议把alarmNumber的类型从Integer改成Long，避免溢出。
• 可以给记录时间戳的列（比如A列）设置单元格格式为yyyy-mm-dd hh:mm:ss，让时间显示更规范。
• 记录的列位置可按需调整，比如把A/B/C改成其他列，或者从指定行开始记录。

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