我的 VBA 代码不断使我的文件崩溃并导致它不响应

Question

如果我从工作表的下拉列表中选择“-”，此代码会导致我的文件崩溃。当选择“是”时会实现时间戳，但是当我选择“-”时它会崩溃。我错过了什么？

下拉列表包含 2 个选项：

-，是的

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo Handler
If ActiveCell.Value = "Yes" Then
    ActiveCell.Offset(0, 1) = Format(Now(), "dd-mm-yyyy hh:mm")
    
ElseIf ActiveCell.Value = "-" Then
    ActiveCell.Offset(0, 1) = ""
    
End If
Handler:


End Sub

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
    
    On Error GoTo Handler
    Application.EnableEvents = False
    If ActiveCell.Value = "Yes" Then
        ActiveCell.Offset(0, 1) = Format(Now(), "dd-mm-yyyy hh:mm")
        
    ElseIf ActiveCell.Value = "-" Then
        ActiveCell.Offset(0, 1) = ""
        
    End If
Handler:
    
    Application.EnableEvents = True
End Sub