☰

无论数据范围如何，是否自动更新特定单元格中的日期和时间戳（使用或不使用 VBA）？

tag-icon • tag-icon microsoft-excel vba date timestamp auto-updates
无论数据范围如何，是否自动更新特定单元格中的日期和时间戳（使用或不使用 VBA）？

有人能帮我解决这个问题吗？

我有基于特定列和单元格中的类别（按支出）的数据， 即C4:C25，，，F4:F25。I4:I10

但是，我想要特定单元格中的“更新日期和时间戳”，即I23每当我更新上述范围的任何单元格时。

在此处输入图片描述

答案1

以下代码绝对没有经过测试。您需要进行必要的研究才能修复我的错误。

Function InRange(Range1 As Range, Range2 As Range) As Boolean
' returns True if Range1 is within Range2
Dim InterSectRange As Range
Set InterSectRange = Application.Intersect(Range1, Range2)
InRange = Not InterSectRange Is Nothing
Set InterSectRange = Nothing
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
  Set Range1 = Range("C4:C25")
  Set Range2 = Range("F4:F25")
  Set Range3 = Range("I4:I10")
  If InRange(Target.Address, Range1) OR InRange(Target.Address, Range2) OR InRange(Target.Address, Range3) Then
    Range("I23").Value = Now
  End If
End Sub

相关内容