方法range作用于对象worksheet时失败

Question

方法range作用于对象worksheet时失败
多了就会报错，少的时候没事

Dim oldValue As String
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = Range("C2") Then
       Worksheets("Sheet3").Range("M2") = oldValue
       Worksheets("Sheet3").Range("N2") = Date
         If Worksheets("Sheet3").Range("P2").Value = 1 Then
            Worksheets("G网号").Range("E2")[]([]([]())).Value = Worksheets("G网号").Range("D2").Value
            Worksheets("G网号").Range("D2").Value = Worksheets("Sheet3").Range("M2").Value
         End If
    End If

    If Target = Range("G2") Then
       Worksheets("Sheet3").Range("M6") = oldValue
       Worksheets("Sheet3").Range("N6") = Date
         If Worksheets("Sheet3").Range("P6").Value = 1 Then
            Worksheets("G网号").Range("I2").Value = Worksheets("G网号").Range("H2").Value
            Worksheets("G网号").Range("H2").Value = Worksheets("Sheet3").Range("M6").Value
         End If
    End If

    If Target = Range("K2") Then
       Worksheets("Sheet3").Range("M10") = oldValue
       Worksheets("Sheet3").Range("N10") = Date
         If Worksheets("Sheet3").Range("P10").Value = 1 Then
            Worksheets("G网号").Range("M2").Value = Worksheets("G网号").Range("L2").Value
            Worksheets("G网号").Range("L2").Value = Worksheets("Sheet3").Range("M10").Value
         End If
    End If
    
    If Target = Range("O2") Then
       Worksheets("Sheet3").Range("M14") = oldValue
       Worksheets("Sheet3").Range("N14") = Date
         If Worksheets("Sheet3").Range("P14").Value = 1 Then
            Worksheets("G网号").Range("B5").Value = Worksheets("G网号").Range("P2").Value
            Worksheets("G网号").Range("P2").Value = Worksheets("Sheet3").Range("M14").Value
         End If
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    oldValue = Cells(Target.Row, Target.Column).Value
End Sub
————————————————

                            版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
                        
原文链接：https://blog.csdn.net/qq_50555322/article/details/143360973

Answer 1

你的代码每次对符合条件的单元格进行更改都会触发 Worksheet_Change 事件，如果同时更新多个单元格，则会导致递归调用。尝试在代码运行时暂时禁用事件。

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    ' 你的代码
    Application.EnableEvents = True
End Sub