VBA程序卡死

FishC

看起来你的VBA程序在删除行时会卡死，可能是因为在`Worksheet_Change`事件中处理删除行的逻辑不够完善。你已经尝试通过`IsRowDeletion`函数来检测删除行操作，但似乎没有达到预期效果。以下是一些可能的改进建议：

1. **检查`IsRowDeletion`函数的逻辑**：确保该函数能够正确识别删除行的操作。你可以通过在函数中添加调试信息来确认它的行为。

2. **使用`Application.EnableEvents`**：在处理过程中禁用事件，以防止在更改单元格时触发其他事件。确保在代码结束时重新启用事件。

3. **优化`Worksheet_Change`事件的逻辑**：在处理删除行时，可能需要更精确地判断哪些操作需要跳过。

以下是一些具体的修改建议：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     On Error GoTo ErrorHandler
   
3.     Application.EnableEvents = False
   
4.     Application.ScreenUpdating = False
   
5. 
   
6.     ' 你的代码逻辑...
   
7. 
   
8. ErrorHandler:
   
9.     Application.EnableEvents = True
   
10.     Application.ScreenUpdating = True
    
11. End Sub

复制代码

在`Worksheet_Change`事件的开头和结尾分别禁用和启用事件处理，以避免不必要的事件触发。

4. **改进`IsRowDeletion`函数**：确保该函数能够准确识别删除行的情况。你可以通过检查`Target`的行数变化来判断是否是删除操作。

希望这些建议能帮助你解决问题！如果还有其他问题，欢迎继续提问。

以上回复来自 FishC AI 小助理，如未能正确解答您的问题，请继续追问。

FishC

颂风侯 发表于 2024-12-30 09:54
Option Explicit




Private Sub Worksheet_Cha ...

看起来你的VBA代码在删除行时会卡死，可能是因为`IsDeletingRows`函数的逻辑不正确。你可以尝试以下方法来改进代码：

1. **改进`IsDeletingRows`函数**：你可以通过检查`Target`的行数变化来判断是否是删除操作。当前的实现可能无法正确检测删除行。

2. **使用`Application.EnableEvents`**：在处理过程中禁用事件，以防止在更改单元格时触发其他事件。确保在代码结束时重新启用事件。

以下是一些具体的修改建议：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     On Error GoTo ErrorHandler
   
3.     Application.EnableEvents = False
   
4.     Application.ScreenUpdating = False
   
5. 
   
6.     ' 如果是删除行操作，则跳过
   
7.     If IsDeletingRows(Target) Then
   
8.         GoTo ExitHandler
   
9.     End If
   
10. 
    
11.     ' 你的代码逻辑...
    
12. 
    
13. ExitHandler:
    
14.     Application.EnableEvents = True
    
15.     Application.ScreenUpdating = True
    
16.     Exit Sub
    
17. 
    
18. ErrorHandler:
    
19.     ' 错误处理逻辑
    
20.     Resume ExitHandler
    
21. End Sub
    
22. 
    
23. ' 辅助函数，用于检测是否正在进行删除行操作
    
24. Function IsDeletingRows(Target As Range) As Boolean
    
25.     Dim r As Range
    
26.     On Error Resume Next
    
27.     For Each r In Target.Rows
    
28.         If r.EntireRow.Hidden Then
    
29.             IsDeletingRows = True
    
30.             Exit Function
    
31.         End If
    
32.     Next r
    
33.     IsDeletingRows = False
    
34.     On Error GoTo 0
    
35. End Function

复制代码

在`Worksheet_Change`事件的开头和结尾分别禁用和启用事件处理，以避免不必要的事件触发。确保`IsDeletingRows`函数能够准确识别删除行的情况。你可以通过检查`Target`的行数变化来判断是否是删除操作。

希望这些建议能帮助你解决问题！如果还有其他问题，欢迎继续提问。

以上回复来自 FishC AI 小助理，如未能正确解答您的问题，请继续追问。