闪烁的屏幕VBA宏

Question

设置

我已经在excel中创建了一个报告，该报告将API中的数据提取到PowerPivot数据模型中，该模型运行多个数据透视表和图形。同时，还有一个非常简单的宏可以更新整个工作簿，因此可以提取新数据。

问题

当我按下为宏创建的按钮时，报表内的标题，文本框和图像开始闪烁，一旦处理完成，它们就会消失，仅在按下它们时才会显示。它们似乎被隐藏了。

我正在寻找一种解决此问题的方法-一直在搜寻几种方法来解决此问题，但似乎没有用

尝试过的解决方案

我已经尝试了几种解决方案，并且将我的代码插入如下所示的内容中，并且也将其简单地包裹在Application.ScreenUpdating周围>

Sub startcode()
     Application.ScreenUpdating = False
     Call myrunningsub()
     Application.ScreenUpdating = True
End Sub

Sub myrunningsub()
    'MY CODE HERE
End Sub
我也对此进行了测试：

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETREDRAW = &HB
Sub DataRefresh()
    SendMessage Application.hwnd, WM_SETREDRAW, 0&, 0&
   MY CODE HERE
    SendMessage Application.hwnd, WM_SETREDRAW, 1&, 0&        
End Sub
我的代码

Sub workbook_refreshAll()

Sheets("Employee Analysis").Range("J5") = ""

ActiveWorkbook.RefreshAll

Sheets("Employee Analysis").Range("J5").Select
ActiveCell.Formula = "=today()"

End Sub

设置我已经在excel中创建了一个报告，该报告将API中的数据提取到PowerPivot数据模型中，该模型运行多个数据透视表和图形。除此之外，还有一个非常简单的宏，...

Answer 1

[已知的Excel中VBA最佳实践可以使您的代码更快。