暫停運行第三方加載項

Question

我將宏分為兩部分，以便可以暫停並使用第三方加載項來查找股票代碼描述。 有些代碼沒有說明，並且在這種情況下，附件返回“ NTFND”。 我可以找到這些證券的替代描述，但是我需要使用附加組件中的公式來進行識別。 如果我分別運行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

我嘗試了calculate函數，但似乎無法為第三方附加公式進行計算。 有沒有其他方法可以讓我的宏暫停，直到描述公式運行完畢？

我剛試過

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