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