Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/linux/25.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel “Application.StatusBar”是否在office 2011中工作?_Excel_Vba_Macos_Statusbar_Excel 2011 - Fatal编程技术网

Excel “Application.StatusBar”是否在office 2011中工作?

Excel “Application.StatusBar”是否在office 2011中工作?,excel,vba,macos,statusbar,excel-2011,Excel,Vba,Macos,Statusbar,Excel 2011,我用Office2011在mac电脑上写了这个小宏。我没有看到任何状态栏。有人知道为什么这不起作用吗 Sub testStastusBar() Application.DisplayStatusBar = True Application.StatusBar = "Now processing...." Dim n As Integer For n = 1 To 10 Application.Wait (Now + TimeValue("0:0

我用Office2011在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

要使用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
子测试STASTUSBAR()
Application.DisplayStatusBar=True
Application.StatusBar=“正在处理…”

DoEvents'要使其与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
子测试STASTUSBAR()
Application.DisplayStatusBar=True
Application.StatusBar=“正在处理…”

DoEvents'我没有那么多地使用宏。您是在Excel中编写,还是必须使用Visual Basic.NET?似乎是个简单的问题,但我主要使用java和C++,所以宏我没有用那么多。我没有用宏那么多。您是在Excel中编写,还是必须使用Visual Basic.NET?似乎是个简单的问题,但我主要使用java和C++,所以宏我没有用那么多。