如何用VBA关闭屏幕刷新

fsb2048 · 发表于 2007-11-2 12:31

sheet1工作表内某个区域有随机函数，

能不能设计一个按钮，当按下该按钮时才进行计算，直到再次按下才重新产生新的数据。

要求是：在工作簿中所有工作表内按F9时都不会对sheet1工作表进行计算。

Nb90GvbL.rar (5.3 KB, 下载次数: 70)

tony@cq · 发表于 2007-11-2 12:48

建议发到VBA版块中去。

zhenyi85 · 发表于 2007-11-2 13:24

很简单

首先，在workbook open事件中输入：
'把F9键的功能屏蔽掉
Application.OnKey "{F9}", ""

之后，在sheet里画个按钮，按钮click事件中输入：
'重新计算
Application.Calculate

XUZHANCHENG · 发表于 2007-11-2 17:22

发错地方了

fsb2048 · 发表于 2007-11-2 18:44

不能帮我搞一下么，我很笨的！

huiz999 · 发表于 2007-11-2 18:53

首先设置：工具－选项－重新计算－手动计算，以避免工作表打开时重新计算。

PVWV10pu.rar (7.22 KB, 下载次数: 49)

fsb2048 · 发表于 2007-11-2 19:00

QUOTE:

以下是引用huiz999在2007-11-2 18:53:24的发言：

首先设置：工具－选项－重新计算－手动计算，以避免工作表打开时重新计算。

非常感谢，不过您传的附件里，按下按钮会使所有工作表都进行计算，我想要这个宏只对sheet1起作用！

huiz999 · 发表于 2007-11-2 20:03

Sub 重新计算()
Application.ActiveSheet.Calculate
End Sub

fsb2048 · 发表于 2007-11-2 22:18

QUOTE:

以下是引用huiz999在2007-11-2 20:03:11的发言：

Sub 重新计算()
Application.ActiveSheet.Calculate
End Sub

太感谢了，要的就是这个样子的，请欣赏结果！

AlY7ydel.rar (52.53 KB, 下载次数: 309)

[此贴子已经被作者于2007-11-2 22:20:51编辑过]

lenghonghai · 发表于 2007-11-2 12:56

application.ScreenUpdating=False

		自动登录	找回密码
密码			免费注册