excel - `Application.StatusBar` 是否在 Office 2011 中工作？

Question

我用office 2011在我的mac上写了这个小宏。我没有看到任何状态栏。任何人都知道为什么这不起作用？

Sub testStastusBar()

    Application.DisplayStatusBar = True
    Application.StatusBar = "Now processing...."

    Dim n As Integer
    For n = 1 To 10
        Application.Wait (Now + TimeValue("0:00:01"))
        Debug.Print n
    Next n

    Application.StatusBar = False

End Sub

Answer 1

要使其适用于 Excel 2011，请添加 DoEvents更新状态栏后。

Sub testStastusBar()

    Application.DisplayStatusBar = True
    Application.StatusBar = "Now processing...."

    DoEvents '<~~ Add This

    Dim n As Integer
    For n = 1 To 10
        Application.Wait (Now + TimeValue("0:00:01"))
        Debug.Print n
    Next n

    Application.StatusBar = False

End Sub