Sub SetStatusBar() '利用状态栏显示提示信息
    Dim blnPreStatus As Boolean, i As Long
    With Application
        blnPreStatus = .DisplayStatusBar '将应用程序状态栏的当前保存在变量blnPreStatus中，以备代码执行结束后恢复原状态
        .DisplayStatusBar = True '设置DisplayStatusBar属性未True,即显示状态栏
        '通过For循环结构在工作表的前10000个单元格中写入随机数，同时通过设置Application对象的StatusBar属性在状态栏中提示当前数据写入的进度
        For i = 1 To 10000
            '.StatusBar = "正在写入第" & i & "个数据，共10000个数据，请稍候..."
            .StatusBar = "正在写入第" & i _
            & "个数据，共10000个数据，请稍候..." '当单独一行放不下一行代码时就应该使用标准的VBA续行符：在一行的结尾，采用空格后跟下划线字符的方式表明代码行延伸到了下一行。
            Cells(i) = Rnd() '写在第一行
            'Cells(1, i) = Rnd() '与上一行代码运行效果一样
            'Cells(i, 1) = Rnd() '写在第一列
        Next i
        MsgBox "写入数据完成。", vbInformation + vbOKOnly, "完成"
        .StatusBar = False '恢复状态栏为系统默认文本
        .DisplayStatusBar = blnPreStatus '恢复状态栏为原显示状态
    End With
End Sub