VBA卡死

颂风侯

excel的单元格数值变化执行相关sub，但是删除行不执行sub，这个怎么实现？现在删除行就卡死

FishC

要在Excel中实现单元格数值变化时执行相关的Sub，但在删除行时不执行，可以使用Worksheet的事件处理程序。以下是一个简单的实现思路：

1. 使用`Worksheet_Change`事件来检测单元格的变化。
2. 在事件中判断变化是否是由于行删除引起的。

以下是一个示例代码，展示如何实现这一点：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     On Error GoTo ErrorHandler
   
3.     Application.EnableEvents = False
   
4. 
   
5.     ' 检查是否是单元格数值变化
   
6.     If Not Intersect(Target, Me.Range("A1:Z100")) Is Nothing Then
   
7.         ' 执行相关的Sub
   
8.         Call YourSub
   
9.     End If
   
10. 
    
11. ErrorHandler:
    
12.     Application.EnableEvents = True
    
13. End Sub
    
14. 
    
15. Private Sub Worksheet_BeforeDelete(ByVal Target As Range)
    
16.     ' 在这里可以处理删除行的逻辑
    
17. End Sub
    
18. 
    
19. Sub YourSub()
    
20.     ' 你的Sub代码
    
21. End Sub

复制代码

在这个例子中，`Worksheet_Change`事件用于检测单元格的变化，而`Worksheet_BeforeDelete`事件可以用于处理删除行的逻辑。确保在处理事件时禁用事件以防止递归调用导致卡死。

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