设置
我已经在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数据模型中,该模型运行多个数据透视表和图形。除此之外,还有一个非常简单的宏,...
[已知的Excel中VBA最佳实践可以使您的代码更快。