Excel 工作表\u更改在特定限制后停止保存更改

Excel 工作表\u更改在特定限制后停止保存更改,excel,vba,Excel,Vba,我试图在我的工作表中记录变化。我的主要监控区域是G9:H69,但我需要100个读数,所以我给了它范围G9:H6127,完成100。但它没有记录在G&H 3608单元之后的任何变化。这意味着它只有50个读数 我已经尝试了我能做的一切,但没有为我工作。你说的“我需要100次阅读”是什么意思?我认为这是有限度的。尝试显示RCELL的地址,查看最后一行是否为6127或更少。此外,尝试一步一步地运行,以找出问题所在。如果有限制,那么最好将单元格写入数组。 Private Sub Worksheet_Cha

我试图在我的工作表中记录变化。我的主要监控区域是G9:H69,但我需要100个读数,所以我给了它范围G9:H6127,完成100。但它没有记录在G&H 3608单元之后的任何变化。这意味着它只有50个读数


我已经尝试了我能做的一切,但没有为我工作。

你说的“我需要100次阅读”是什么意思?我认为这是有限度的。尝试显示RCELL的地址,查看最后一行是否为6127或更少。此外,尝试一步一步地运行,以找出问题所在。如果有限制,那么最好将单元格写入数组。
Private Sub Worksheet_Change(ByVal Target As Range)

    Const Scope = "G9:H6127" ' monitoring area

    Static oData As New Dictionary
    Dim rCells As Range
    Dim oCell
    Dim dDelta

    Set rCells = Application.Intersect(Target, Target.Parent.Range(Scope))
    If Not rCells Is Nothing Then
        For Each oCell In rCells
            With oCell
                dDelta = oData(.Address)
                    .Offset(0, 60).Value = dDelta
                    oData(.Address) = .Value
            End With
        Next
    End If

End Sub