MsgBox 确认运行结束

Question

我想在运行结束时插入一个 MsgBox 以通知脚本已完成。 即使运行仍在进行，使用此代码我也会收到消息。 有人能帮帮我吗？

提前致谢

Sub UPDATE_db_pivot() 'Variable Declaration
        Msgbox "Ricorda di aggiornare le date del 'Periodo di Osservazione' presenti nel foglio 'Cover'", vbExclamation
        ActiveWorkbook.RefreshAll
        Sheets("DIREZIONE Summary").Select
        ActiveWindow.SmallScroll Down:=-15
        Range("C85").Select
        ActiveWorkbook.RefreshAll
        Sheets("PRB_DataBase").Select
        Cells.Select
        Cells.EntireColumn.AutoFit
        Range("E270").Select
        Msgbox "Aggiornamento completato!", vbInformation 
End Sub

Answer 1

解决了取消选中后台刷新数据以禁用它。