Sub TestStatusBarColor()
    Dim i As Integer

    ' --- 第一阶段：观察初始状态 ---
    ' 此时还没有修改状态栏
    MsgBox "【步骤 1/3】" & vbCrLf & vbCrLf & _
           "请现在看一眼 Excel 左下角的状态栏。" & vbCrLf & _
           "它应该是【白色/灰白色】的，显示'就绪'。" & vbCrLf & vbCrLf & _
           ">>> 准备好观察变色了吗？点击确定开始写入文字。", vbInformation, "初始状态检查"

    ' --- 第二阶段：写入自定义内容 ---
    ' Excel 应该会在这一行代码执行的瞬间，改变状态栏样式
    For i = 1 To 5
        Application.StatusBar = "【正在测试】状态栏底色变了吗？计数: " & i

        ' 强制刷新界面，确保你能看到变化
        DoEvents

        ' 暂停 1 秒，让你有时间观察
        Application.Wait (Now + TimeValue("0:00:01"))
    Next i

    ' --- 第三阶段：暂停在修改状态，再次确认 ---
    MsgBox "【步骤 2/3】" & vbCrLf & vbCrLf & _
           "代码正在运行中，状态栏内容已被修改。" & vbCrLf & _
           "请看左下角：底色是否变成了【深绿色】或【深灰色】？" & vbCrLf & _
           "文字是否变成了不易辨认的细黑体？" & vbCrLf & vbCrLf & _
           ">>> 点击确定后，我将重置状态栏。", vbExclamation, "接管状态检查"

    ' --- 第四阶段：重置 ---
    Application.StatusBar = False ' 这一句是关键，False 代表交还控制权给 Excel

    MsgBox "【步骤 3/3】" & vbCrLf & vbCrLf & _
           "测试结束。状态栏应该已经恢复为【白色/灰白色】的'就绪'状态。", vbInformation, "恢复状态检查"

End Sub