Excel打开时Workbook_Open宏的MsgBox显示异常问题排查

问题现象 #

文件打开时触发的宏，弹出的MsgBox无标题，且仅显示名称在一行、缺失描述；但在VBA编辑器中手动运行该宏时，所有内容格式正确、标题正常。

问题根源 #

1. Range对象上下文缺失
   在Workbook_Open事件过程中，直接使用Range()会默认指向当前活动工作表，但Excel文件打开时，激活的工作表不一定是你存放数据的目标表，导致获取的单元格内容错误（甚至为空），最终造成描述丢失、格式混乱。

2. MsgBox参数解析异常
   原代码中MsgBox的写法未明确指定第一个参数的命名，在事件过程的特殊环境下，Title:=参数可能未被正确识别，导致弹窗无标题。

修复方案 #

• 所有Range引用必须明确指定所属工作表（替换成你的实际表名），避免依赖活动表。
• 优化Offset的计算逻辑，用直观的列偏移代替依赖行号的动态计算，降低出错概率。
• 修正MsgBox的参数写法，明确使用命名参数Prompt:=和Title:=，确保参数被正确解析。

完整修正代码 #

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Dim DateDueCol As Range
    Dim DateDue As Range
    Dim NotificationMsg As String
    Dim RemindDays As Integer
    
    ' 指定目标工作表，替换成你的实际工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 获取提醒天数，明确指向目标表的B2单元格
    RemindDays = ws.Range("B2").Value
    
    ' 指定到期日期所在的单元格区域，明确归属目标工作表
    Set DateDueCol = ws.Range("F8:F12, I8:I12, L8:L12, O8:O12")

    For Each DateDue In DateDueCol
        ' 检查到期日期是否符合提醒条件
        If Date >= DateDue.Value - RemindDays Then
            ' 获取当前行的名称（同一行的A列，根据实际列调整偏移量）
            Dim ItemName As String
            ItemName = DateDue.Offset(0, -(DateDue.Column - 1)).Value
            ' 获取描述（假设描述在第6行，对应列的位置，根据实际调整）
            Dim ItemDesc As String
            ItemDesc = ws.Cells(6, DateDue.Column - 2).Value
            
            ' 拼接消息内容
            If NotificationMsg = "" Then
                NotificationMsg = ItemName & ":  " & ItemDesc
            Else
                NotificationMsg = NotificationMsg & vbLf & vbLf & ItemName & ":  " & ItemDesc
            End If
        End If
    Next DateDue

    ' 弹出提示框，明确使用命名参数
    If NotificationMsg = "" Then
        MsgBox Prompt:="Records indicate all sub-contractor cover is currently valid.", Title:="Cover OK!"
    Else
        MsgBox Prompt:="The following sub-contractors' cover is missing or about to expire: " & vbNewLine & vbNewLine & NotificationMsg, Title:="Expiry Warning!"
    End If
End Sub

额外说明 #

• 代码中ws = ThisWorkbook.Worksheets("Sheet1")需要替换成你实际存放数据的工作表名称。
• 如果描述的位置不是固定第6行，可根据实际需求调整ws.Cells(6, DateDue.Column - 2)的行号。
• 原代码中The followinging是拼写错误，已修正为The following。

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