VBA -退出MsgBox()

Question

我已经有一段时间没有和VBA合作了，所以我的技能有点生疏。我已经成功地将一个小脚本组合在一起，它将更新我在excel表中的Date Contacted和Date Modified列，如果我要更改A列中的相应单元格，那么对于A列中的所有单元格，我使用数据验证工具设置一个列表。List = A, B, C, D

当选择列表项之一时，脚本应该在Date Contacted (列H)中输入当前日期。如果单元格更改为新项，则消息框将询问用户是否要提交更改。如果是，Date Modified (第一列)将被更新。如果不是，A列应该恢复到原来的self，并且日期列中的任何一列都不应该被更新。

代码中没有bug，但是当提示回答是或否时，单击" no“继续循环回消息框。我被困在圈子里，不知道该怎么逃。

​

​

Private Sub Worksheet_Change(ByVal Target As Range)
' Auto Date
Dim Cell As Range
Dim Answer As Integer

For Each Cell In Target
    If Cell.Column = Range("A:A").Column Then
    
        If Cells(Cell.Row, "H").Value <> "" And Cell.Value <> "" Then
            Answer = MsgBox("Are you sure you want to make these changes?", vbYesNo)
            
            If Answer = vbYes Then
                Cells(Cell.Row, "I").Value = Int(Now)
            Else
                Application.Undo
            End If
                
        Else
            Cells(Cell.Row, "H").Value = Int(Now)
        End If
    End If
Next Cell
End Sub

Answer 1

在通过宏对工作表进行任何更改之前，您需要关闭事件。更改触发事件，当事件发生更改时，它会重新触发事件，从而产生一个循环，或者在您的情况下，触发一个条件循环。

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False
        'Any code that makes changes to worksheet nested inside
    Application.EnableEvents = True

End Sub