“Application.StatusBar”在Office 2011中工作吗？ [英] Does `Application.StatusBar` work in office 2011?

问题描述

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

  Sub testStastusBar（）
 
 Application.DisplayStatusBar = True 
 Application.StatusBar =Now processing ....
 
 Dim n As Integer 
对于n = 1到10 
 Application.Wait（Now + TimeValue（ 0:00:01））
 Debug.Print n 
下一个n 
 
 Application.StatusBar = False 
 
 End Sub 
  

解决方案

要使其与Excel 2011配合使用，请添加 DoEvents

  Sub testStastusBar（）
 
应用程序。 DisplayStatusBar = True 
 Application.StatusBar =Now processing ....
 
 DoEvents'< ~~添加此
 
 Dim n As Integer 
对于n = 1到10 
 Application.Wait（Now + TimeValue（0:00:01））
 Debug.Print n 
下一个n 
 
 Application.StatusBar = False 
 
 End Sub 
  




I wrote this little macro on my mac using office 2011. I don't see any status bar. Anyone know why this is not working?

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

解决方案

To make it work with Excel 2011, add DoEvents after updating the statusbar.

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

这篇关于“Application.StatusBar”在Office 2011中工作吗？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！