Дата последнего изменения ячейки

Gomer

Гость

27.03.2012 10:48:11

Добрый день, подскажите можно ли средствами самого эксель (функции) либо vba кода получить дату и время последнего изменения ячейки. т.е. если есть файл где часть ячеек меняется автоматически, а часть вручную, то как то узнать ячейка когда изменилась которая вручную?
Спасибо за внимание.

Guest Гость	#2 27.03.2012 10:56:53 http://www.planetaexcel.ru/tip.php?aid=28

oldy7

Пользователь

Сообщений: 1065 Регистрация: 01.01.1970

Anchoret

27.03.2012 10:57:02

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim iTarget As Range, iCell As Range
Set iTarget = Intersect(Me.Range("A1:A1000"), Target)
If Not iTarget Is Nothing Then
If Not Me.ProtectContents Then
iText$ = Application.UserName & vbLf & Now
For Each iCell In iTarget
iCell.NoteText Text:=iText$
Next
Else
MsgBox "Для создания примечаний снимите защиту листа", , ""
End If
End If
End Sub

Нарыл в яндексе.
Разумеется диапазон A1:A1000 нужно изменить на свой.

Gomer Гость	#4 27.03.2012 12:13:33 Спасибо

Геннадий Гость	#5 27.03.2012 15:45:53 Можна дату ставить в примечании Макрос: Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim cell As Range For Each cell In Target cell.Font.ColorIndex = 3 'Selection ActiveCell Next cell Dim OldText As String, NewText As String For Each cell In Target With cell On Error Resume Next OldText = .Comment.Text If Err <> 0 Then .AddComment NewText = OldText & "Изменено на " & "''" & cell.Text & "''" & _ ". " & Application.UserName & ", " & Now & vbLf .Comment.Text NewText End With Next cell End Sub