我的代码为啥很晃，能晃快一分钟，才停止晃动，能不能帮忙改下

mkm-_7605

我的代码为啥很晃，每次激发一下 能晃快一分钟，才停止晃动，而且关的时候也是转很长时间，还关不了。惭愧啊
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Range("N2") = Format(Date, "yyyy年mm月dd日")

Range("O4:O13") = Format("=IFERROR(L4*N4,"""")")

[A4:A13] = ["'"&A4:A13] '
[B4:B13] = ["'"&B4:B13]
[e4:E13] = ["'"&E4:E13]
[F4:F13] = ["'"&F4:F13]

ActiveSheet.Range("L:O").EntireColumn.AutoFit '仅针对第a到p列进行列宽自动调整
'第一部分：自动调整行高
For i = 1 To [A18].End(xlUp).Row
Rows(i).AutoFit
Rows(i).RowHeight = Rows(i).RowHeight + 7 '自动调整行高之后增加3MM高度
Next i
End If
If Target.Address = "$Q$2" Then
'第二部分：隐藏空白行
k = ActiveSheet.Range("a17").End(xlUp).Row
For i = 1 To k
If Range("a" & i) = "" And Range("h" & i) = "" Then
Rows(i).Hidden = True
End If
Next
'第三部分：自动调整到一页
With ActiveSheet.PageSetup '自动把要打印的内容浓缩到一页
.Zoom = False
.FitToPagesWide = 1 '页面缩放：调整为1页高
.FitToPagesTall = 1 '页面缩放：调整为1页宽

End With
End If
End Sub

liulang0808

供参考。。。。。。

杨建营

加上Application.ScreenUpdating = False,关闭屏幕刷新

崔晓丹

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Column = 1 Then
...
...

Application.ScreenUpdating = True
End Sub

大灰狼1976

不是应该暂停事件响应吗Application.EnableEvents

mkm-_7605

崔晓丹 发表于 2024-5-20 14:04
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.C ...

还是关的时候，卡的关不住，根死机一样

yjh_27

可同时 暂停 事件响应、屏幕刷新

崔晓丹

那还要再加一个公式自动重算关闭

mythqiu

先 Application.EnableEvents=false

最后再打开，如果不这样，Change事件不停的发生，导致程序不停调用。Change事件一定要先关闭动作感应

mkm-_7605

老是提示溢出。我哪里写错了