在office组件中，或者在大部分的软件中，都有一个状态栏来显示当前的操作的一些信息。这样用户就能知道正在操作的是什么情况。

当我们在执行一些操作时，可能因为公式多，代码复杂等原因导致执行时间太长，这样在状态栏上显示一些信息可以让用户知道现在还是在执行操作的过程。

详细源码：

Sub DisplayMessageOnStatusbar()

    Application.DisplayStatusBar = True '显示状态栏

    Application.StatusBar = "正在运行程序，请稍后……" '状态栏显示信息

'    5秒钟后恢复默认状态栏

    Application.Wait Now + TimeValue("00:00:10")

    Application.StatusBar = False '关闭状态栏

End Sub