暂停以运行第三方加载项

Question

我将一个宏分成两部分，以便它可以暂停并使用第三方插件来查找股票代码描述。有些代码没有描述和附加回报＆＃34; NTFND＆＃34;如果是这样的话。我可以找到这些证券的替代描述，但我需要附加的公式来运行以识别它们。如果我单独运行Step1然后再运行Step2，则此方法有效。

Sub Macro1()

Application.ScreenUpdating = False

Call Step1 'enters info from holdings sheet including ticker symbols

Application.Calculate

Call Step2 'fixes all the "Not Found" descriptions

Application.ScreenUpdating = True

End Sub

我尝试了计算功能，但似乎并没有为第三方附加公式计算。有没有其他方法可以让我的宏暂停，直到描述公式运行？

我刚试过

Application.Wait (Now + TimeValue("00:00:05"))

和

If Not Application.CalculationState = xlDone Then DoEvents End If

两者都没有。

Answer 1

Application.Wait确实会暂停（在这种情况下为5秒），直到执行下一行代码。

这可能就是你要找的东西：

cpearson.com/excel/ShellAndWait.aspx