如何在Mac上的EXCEL VBA中使用状态栏 [英] How to use statusbar in excel vba on mac

问题描述

我正在尝试设置进度条，以便我可以查看我的SUB是否正在运行我是否已成功冻结了EXCEL。我正在查看其中一个答案here，但它不起作用。

这是我所拥有的：

Dim n As Integer
With Worksheets("Data_History")
    Set starting_cell_range = .Range(find_last_column("Data_History"))
    For n = 0 To 18
        starting_cell_range.Offset(n, 1) = final_array(n)
        Application.StatusBar = "Progress: " & n & " of 18" & Format(n / 18, "0%")

    Next n
    Application.StatusBar = False

End With

它不工作是因为我在Mac上吗？

推荐答案

我假设您有一个Application.DisplayStatusBar，并且它是可见的？尝试在此处添加DoEvent：

....
DoEvents
Application.StatusBar = "Progress: " & n & " of 18" & Format(n / 18, "0%")
....

这篇关于如何在Mac上的EXCEL VBA中使用状态栏的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！