дата последнего обновления диапазона, хранящегося в одной ячейке excel

Итак, у меня есть этот лист excel, где у меня есть диапазон A2:A3, я хотел бы знать, могу ли я хранить последнее время обновления этого конкретного диапазона в ячейке, скажем, в B1? Меня действительно знают в мире VBA. Буду очень признателен за любую помощь:)

2 2
excel

2 ответа:

  • щелкните правой кнопкой мыши вкладку листа
  • Код Вида
  • скопируйте и вставьте код ниже
  • altf11 назад в Excel

code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Range
Set rng1 = Intersect([a2:a3], Target)
If rng1 Is Nothing Then Exit Sub
Application.EnableEvents = False
[b1] = Format(Now(), "dd-mm-yyyy hh:mm:ss")
Application.EnableEvents = True
End Sub
1

' этот макрос был записан для обновления последней измененной даты / времени на каждом A2: D43415 'Дата последнего изменения, примененная к колонке F.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rInt As Range
Dim rCell As Range
Dim tCell As Range
Dim tColInt As Integer

tColInt = 6 'Column Index, Example: A=1, B=2, ...... ,Z=26


Set rInt = Intersect(Target, Range("A2:D43415")) 'Change cell range
 If Not rInt Is Nothing Then
    For Each rCell In rInt
        Set tCell = Cells(rCell.Cells.Row, tColInt)
        If IsEmpty(tCell) Or Not IsEmpty(tCell) Then
            tCell = Now
            tCell.NumberFormat = "dd/mm/yyyy h:mm:ss AM/PM" 'Custom Format
        End If
    Next
 End If
End Sub

Щелкните, чтобы увидеть Вывод

0