Excel VBA更新单元格中的日期(如果在同一行的单元格范围内有任何更改)
Excel VBA更新单元格中的日期(如果在同一行的单元格范围内有任何更改)
提问于 2016-11-13 20:35:23
如果在F列同一行的单元格中发生任何更改，则在D列的单元格中更新日期的代码：
Private Sub Worksheet_Change(ByVal Target As Range)
' Code to put the date of the latest update following a change in the corresponding cell in column F
Dim WorkRng As Range
Dim rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("F:F"), Target)
xOffsetColumn = -2 'The date is put 2 columns to the left of column F
If Not WorkRng Is Nothing Then
Application.EnableEvents = False
For Each rng In WorkRng
If Not VBA.IsEmpty(rng.Value) Then
rng.Offset(0, xOffsetColumn).Value = Now
rng.Offset(0, xOffsetColumn).NumberFormat = "dd/mm/yyyy"
Else
rng.Offset(0, xOffsetColumn).ClearContents
End If
Next
Application.EnableEvents = True
End If
End Sub现在，我需要修改这段代码，以便在D列的单元格中更新日期，如果在F列到K列的同一行的单元格中有任何更改。
我对VBA知之甚少，如果能帮助我修改代码，我将不胜感激。
回答 1
Stack Overflow用户
回答已采纳
发布于 2016-11-13 21:20:49
这似乎是可行的：
Private Sub Worksheet_Change(ByVal Target As Range)
' Code to put the date of the latest update following a change in the corresponding cell in column F
Dim WorkRng As Range, roww As Long
Dim rng As Range
Set WorkRng = Intersect(Range("F:K"), Target)
If Not WorkRng Is Nothing Then
Application.EnableEvents = False
For Each rng In WorkRng
roww = rng.Row
If Not rng.Value = "" Then
Cells(roww, "D").Value = Now
Cells(roww, "D").NumberFormat = "dd/mm/yyyy"
Else
Cells(roww, "D").ClearContents
End If
Next
Application.EnableEvents = True
End If
End Sub我们只是不使用OFFSET()
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/40578527
复制相关文章
相似问题
腾讯云开发者
