为什么执行这段代码EXCEL会关机重启

rayhen · 发表于 2023-2-27 08:59

本帖最后由 rayhen 于 2023-2-28 13:44 编辑

是代码问题呢?还是其他原因造成的

您的帮忙不胜感激

zjzyj · 发表于 2023-2-27 21:50

是进入死循环了吧？Worksheet_Change触发程序运行，程序运行引起表内变化，再触发程序运行，然后就停不下来了。不知道是不是这样引起？

Application.EnableEvents = False '关闭事件响应，这句加在程序开头
Application.EnableEvents = True '开启事件响应，这句加在程序末尾
试试

tanglf188 · 发表于 2023-2-28 10:43

二楼说得对，进入死循环了，也可以加个判断条件试试：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sheetName As String
sheetName = ActiveSheet.Name
If Left(sheetName, 1) = "Q" Then
If Range("A55").Value <> Replace(sheetName, "Q_", "") Then Range("A55").Value = Replace(sheetName, "Q_", "")
ElseIf Left(sheetName, 1) = "S" Then
If Range("I6").Value <> Replace(sheetName, "SVR_", "") Then Range("I6").Value = Replace(sheetName, "SVR_", "")
Else
Range("A55").Value = ""
Range("I6").Value = ""
End If
End Sub

复制代码

rayhen · 发表于 2023-2-28 13:44

老师您們超级棒棒棒

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

[已解决] 为什么执行这段代码EXCEL会关机重启

评分

评分