excel - 在自定义函数中更新状态栏

Question

我有一个自定义函数 (UDF)，有时需要一段时间才能运行。工作表设置为仅手动刷新。我想在函数运行时在状态栏中显示进度。

在 subs Application.StatusBar works 中。

在函数 Application.StatusBar 内似乎不起作用。我已经逐行浏览了代码。状态栏不会更新，也不会抛出任何错误。

有什么东西会阻止状态栏使用功能吗？

我在 Win10 上运行 Excel 2016。

显示代码，以及来自周围编程的上下文:

Function getCost(parameters)

dim variables
dim bOldStatusBar as Boolean

<web query begins>
bOldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "Calculating prices between " & Origin & " and " & Destination & "."
DoEvents

<clicking buttons in IE>
Application.StatusBar = "Starting Data Import..."

<clicking buttons in IE>
Application.StatusBar = "Macro 20% Complete"

etc...

<clicking buttons in IE>
Application.StatusBar = "Macro 100% Complete"
Application.StatusBar = False
Application.DisplayStatusBar = bOldStatusBar

End Function

Answer 1

只需在更新状态栏后添加 DoEvents。