0

下午好 StackOverflow 帮派,

我目前正在完全自动化我的 VBA 脚本,但是我遇到了一点小问题。我的脚本的以下部分采用特定单元格中的日期,并将其翻译到脚本的更远位置。这部分脚本的目的是在检测到单元格发生更改时完全运行下面的其他宏。它在第一次运行时有效,但在我第二次对其进行更改时会删除位于 A1 中的日期。关于为什么会发生这种情况的任何想法,或者有人在查看此问题时发现了结构性错误?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Me.Range("A1")) Is Nothing Then Exit Sub
    Application.EnableEvents = False 'to prevent endless loop

    Call Execute

    MsgBox "The Date Has Changed!"

    Application.EnableEvents = True

End Sub
4

0 回答 0