vba怎么让状态栏显示提示信息

1、打开Excel，在开发工具栏里点击Visual Basic。

2、在Visual Basic里插入一个新模块，创建一个sub过程。

3、在sub过程中输入：

Dim zs As Boolean, i AsLong

With Application

    zs = .DisplayStatusBar

    .DisplayStatusBar = True 

    For i = 1 To 10000

        .StatusBar = "正在写入第" & i_

        & "个数据，共10000个数据，请稍候..."

        Cells(i, 1) = Rnd() 

    Next i

MsgBox"写入数据完成。", vbInformation + vbOKOnly, "完成"

.StatusBar = False 

.DisplayStatusBar = zs 

End With