闪烁的屏幕VBA宏

问题描述 投票:0回答:1

设置

我已经在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 excel-vba
1个回答
0
投票

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

© www.soinside.com 2019 - 2024. All rights reserved.