为什么我遇到堆栈溢出错误

Question

我遇到了以下代码的Stack Overflow问题。 错误发生在Set rngToCheck = Range("GenLoanAmount")并且我不确定为什么因为似乎没有足够的事情会导致该问题。 此代码确实有效，因此如果社区认为有必要，我会将其发布在Code Review上。 谢谢你看看。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngToCheck As Range
    Set rngToCheck = Range("GenLoanAmount")


    If Not Intersect(Target, Me.Range("FloodIns")) Is Nothing Then
        If Intersect(Target, Me.Range("FloodIns")) = "Y" Or Intersect(Target, Me.Range("FloodIns")) = "y" Then FloodEmail.Show
    End If

    If Not Intersect(Target, Me.Range("FloodInsAct")) Is Nothing Then
        If Intersect(Target, Me.Range("FloodInsAct")) = "Y" Or Intersect(Target, Me.Range("FloodInsAct")) = "y" Then FloodActEmail.Show
    End If

    If Not Intersect(Target, rngToCheck) Is Nothing Then
        If Intersect(Target, rngToCheck) Then
            rngToCheck.NumberFormat = "$#,##0.00"
        End If
    End If

    If Not Intersect(Target, Me.Range("genCloseDate")) Is Nothing Then
        If Intersect(Target, Me.Range("genCloseDate")) <> vbNullString Then FundDateCalc
    End If


End Sub

Answer 1

此过程处理Worksheet.Change事件，只要单元格在该工作表上发生更改，Excel就会触发该事件。

处理程序更改该工作表上的单元格（或调用在该工作表上进行更改的代码），因此是可重入的。 在过程开始时禁用事件，并在它结束之前重新启用它们，以避免递归，直到调用堆栈不能再使用它（即直到出现“堆栈溢出”错误）。

Dim wasEnabled As Boolean
wasEnabled = Application.EnableEvents

Application.EnableEvents = False

'...code...

Application.EnableEvents = wasEnabled