应用程序.ScreenUpdating = true不更新屏幕

Question

我有一个excel表格，我做一些数据加载。同时，我打开屏幕更新:

Application.ScreenUpdating = False

打开后:

Application.ScreenUpdating = True

但问题是，屏幕仍然是冻结的。这只是在最近几天突然发生在一些客户的机器上。

当我删除两个screenupdate - line时，一切正常。

有人知道这个现象并知道解决办法吗?

Answer 1

我们公司也有同样的问题，但只是在几台机器上。我注意到问题发生在32位excel上，编译号为2206 16.0.15330.20144

至少有这个问题的人有这个excel版本。在我的64位和2206 16.0.15330.20216版本上，一切都运行顺利。你能检查一下你的版本吗?

可能修复将强制更新excel或更改为64位版本。

编辑:我可以确认在一台计算机上重新安装excel到64位修复问题。另一个今天刚开始工作，我没有干扰。不幸的是，我还没能找到一个可靠的解释，为什么这种情况会发生在一些电脑上。

Answer 2

也许标题应该是"无法重新启用ScreenUpdating">

标明版本信息是个好主意，然而，我的两台电脑都在运行下面的版本，但只有一台有问题。

• 32位版本。
• 产品版本206 16.0.15330.20230

建议这个回复,其他线程被引用来支持我们的语句。显然，微软认为这是一个编码问题，因为在Microsoft.com域名上发现的线程说要来Stack Overflow。

从Stack Overflow的角度来看，我认为解决方案是注释掉所有的"应用程序"。ScreenUpdating = True">

第一个线程确认了我之前的帖子中提到的测试。

july 11 2022 01:54 PMhttps://techcommunity.microsoft.com/t5/excel/screen-updating-set-to-true-but-screen-does-not-update/m-p/3570457

这个完全没有帮助:
发布于7月11日晚些时候https://www.qandeelacademy.com/questions/application-screenupdating-true-does-not-update-screen

在这个线程中微软说来Stack Overflow寻求帮助。2022年7月3日开幕https://answers.microsoft.com/en us/msoffice/forum/all/applicationscreenupdating——真的——不——work/8df869d5 df4d - 4 a08 - 9 -沛富- 674 bc4768191

Answer 3

BennoDual，

我所尝试的是重新启动计算机。到目前为止，最简单的修复方法是注释掉所有的"Application"。ScreenUpdating = False"语句。留下"= True"语句。

我很高兴不是"只有我"。而且，由于这现在是一个已知的问题，我的解决方案是等待，并每天测试修复。对我来说，这个问题出现在7月10日星期日下午3:30左右。它在前一天晚上起作用，我想甚至在周日早上也起作用。

这是我在确定问题后的测试。

创建新的Excel工作簿后，选择单元格C3，执行以下代码，然后检查Sheet1。

双击A1，输入&;aaa"结果:A1为空。名称框显示单元格A1已被选中。公式栏显示&;aaa"C3仍有轮廓

往下滚动，双击A1，然后输入"bbb"结果:细胞呈空状。姓名框显示A137。

我可以使用Ctrl+UpArrow和Ctrl+DownArrow在A1和A137之间跳转。两者仍然是空的，但公式栏证明不是这样的。

有效地模拟"应用程序"。ScreenUpdating = True"要求关闭所有当前打开的Excel工作簿。不仅仅是那个"= False"被处决。

Sub Testing()
Dim booValue As Boolean
booValue = Application.ScreenUpdating
Debug.Print booValue    'Result is True
Application.ScreenUpdating = False
booValue = Application.ScreenUpdating
Debug.Print booValue    'Result is False
Application.ScreenUpdating = True
booValue = Application.ScreenUpdating
Debug.Print booValue    'Result is True
End Sub

Answer 4

我之前也有同样的问题。我重新安装了微软办公软件。然后，重新启动，它工作。我刚从他们的门户下载了微软办公软件。请重新安装。

我的Excel版本是2305 build 16501.20196点击运行)。当前频道

康拉德