如何在mac上使用excel vba中的statusbar

我试图build立一个进度条，所以我可以看到如果我的子运行，如果我设法冻结excel。 我正在看这里的答案之一，但它不工作。

这是我有：

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上工作？

Answer 1

我假设你有一个Application.DisplayStatusBar，它是可见的？ 尝试在这里添加DoEvents：

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