jcst.net
当前位置:首页 >> ExCEl vBA运行时,总时闪个不停,用什么方法变为静态 >>

ExCEl vBA运行时,总时闪个不停,用什么方法变为静态

Application.ScreenUpdating = False '关闭屏幕刷新 Application.ScreenUpdating = True '打开屏幕刷新 这个要成对使用

程序前加上: Application.Calculation = xlManual 程序结束前加上: Application.Calculation = xlAutomatic 也就是说,程序运行时设置EXCEL计算方式为“手动重算”,结束时再恢复“自动重算”。

select和activate用Application.ScreenUpdating 是屏蔽不了的 把代码中的select,activate去掉,例如, Range("B15").Select ActiveCell.FormulaR1C1 = "=A2" 改成Range("B15").FormulaR1C1 = "=A2"

其实很简单,在这段代码前面(也就是sub的下一行)输入 Application.EnableCancelKey = xlDisabled 这样就不会提示代码被中断了。

重装系统和OFFICE吧,2010是最稳定的版本,直接使用不会有问题,乱拷贝文件会导致系统崩溃的。

在程序前面加一句 Application.ScreenUpdating = False 可关闭屏幕刷新 在后面退出程序前再加 Application.ScreenUpdating = True 可打开屏幕刷新

头里加上Application.ScreenUpdating = False,末尾加上Application.ScreenUpdating = True Private Sub CommandButton1_Click() Dim i As Integer Application.ScreenUpdating = False For i = 2 To 26 If Sheets(i).Visible = True Then Sheet...

Private Sub Worksheet_Change(ByVal Target As Range)If Target.Row > 5 And Target.Column = 3 Then'在这里写代码,整个代码要放在sheet 模块中 ,放在sheet1 ,sheet1生效,酱紫的End IfEnd Sub

步骤如下: 1.sheet1中有个名为main的宏,需要Excel启动时自动运行 2.双击Thisworkbook,选择workbook,选择Open事件,会自动出现2段代码 3.在代码中间添加如下代码: 4.关闭保存,再打开Excel表格式,就会自动运行sheet1中的main宏了

i = Range("b65536").End(xlUp).Row - 9 '在已使用区域最末一行添加 是这一行的问题. 如果Range("b65536").End(xlUp).Row 小于或等于9 的话. i 就小于=0 了 这样 对于下面的 Cells(i, 2).EntireRow.Insert 来说 就会产生错误. 因为cells对象要求...

网站首页 | 网站地图
All rights reserved Powered by www.jcst.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com