Как зафиксировать событие (изменение) в книге?

[ЕленаС]

Например: Ехсел постоянно обновляет данные, часть из них изменяется, часть остается прежними.
Как зафиксировать событие(изменение) с помощью формулы в определенной ячейке, по времени и количеству? Зафиксированое событие должно оставаться неизменным, новое добавляться.
Спасибо за ответы!!!

[EducatedFool]

Вряд ли это можно реализовать при помощи формул...
Зато с использованием макросов - запросто.

Прикрепите к сообщению пример файла, укажите, изменения каких ячеек необходимо ослеживать, куда (в какие ячейки) заносить результаты изменений. (приведите пример - скажем, при изменении ячейки F4 в следующую свободную ячейку столбца H записываем текущее время, и новое значение ячейки F4 )

Чем больше будет подробностей - тем быстрее получите ответ.

[ЕленаС]

Смотреть примечания в изменяемых ячейках

[EducatedFool]

Вот весь макрос:

Const КонтролируемыйДиапазон = "b2:b6"

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range(КонтролируемыйДиапазон)) Is Nothing Then
        Dim cell As Range, newcell As Range, x As Range: Set cell = Target.Previous
        ' ищем соответствующий столбец
        Set x = Rows(1).Find(cell.Value)
        If x Is Nothing Then MsgBox "Столбец с фамилией " & cell & " не найден", vbCritical, "Ошибка": Exit Sub
        ' нашли нужный столбец
        Set newcell = x.EntireColumn.Cells(Rows.Count).End(xlUp).Offset(1)
        newcell = Now: newcell.Next = Target
    End If
End Sub

Изменения можно вносить только в первую строку макроса (изменять границы отслеживаемого диапазона)

(добавлено)
Забыл, что ячейки изменяются не вручную, а с помощью формул. (пока что макрос отрабатывает только при ручном изменении значений в ячейках)
Попробую сейчас переделать макрос.
Будет намного проще, если Вы прикрепите к сообщению оригинальный файл (с формулами)

Пример во вложении:

[EducatedFool]

Вот вариант макроса, отслеживающий изменения, вносимые при помощи формул:

Const КонтролируемыйДиапазон = "b2:b6"

Private Sub Worksheet_Calculate()
    Application.ScreenUpdating = False
    Dim cell As Range, newcell As Range, x As Range, CellCopy As Range

    For Each cell In Range(КонтролируемыйДиапазон).Cells
        Set CellCopy = cell.EntireRow.Cells(Columns.Count)
        If cell <> CellCopy Then
            ' запоминаем новое значение
            CellCopy = cell
            ' ищем соответствующий столбец
            Set x = Rows(1).Find(cell.Previous.Value)
            If x Is Nothing Then MsgBox "Столбец с фамилией " & cell.Previous & " не найден", vbCritical, "Ошибка": Exit Sub
            ' нашли нужный столбец
            Set newcell = x.EntireColumn.Cells(Rows.Count).End(xlUp).Offset(1)
            newcell = Now: newcell.Next = cell
        End If
    Next cell
End Sub

На листе с именем "изменения при помощи формул" поизменяйте значения в желтых ячейках.

Копии значений хранятся в последних ячейках тех же строк (ячейки IV2:IV6)
По значениям в этих ячейках определяется, произошли ли изменения в наблюдаемом диапазоне.
Если эти ячейки будут мешаться при печати, можно сделать у них цвет шрифта белым.

Пример во вложении:

[ЕленаС]

Большое спасибо! Сейчас попробую

[ЕленаС]

Если я захочу изменить диапазон данных, что мне надо делать?

Я еще один пример... Как его реализовать с помощью ваших формул?

И если можно, напишите пожалуйста коментарии, что, где и как надо изменять

[ЕленаС]

====Будет намного проще, если Вы прикрепите к сообщению оригинальный файл (с формулами)====
Оригинальный файл находится на другом компьютере в сети... Мой файл постоянно извлекает оттуда внешние данные. Переодичность я сама назначаю, либо вручную, либо автоматом...
Если компьютер с данными отключен, выскакивает ошибка

[3BEPOBOY]

EducatedFool
разъясните пожалуйста немного подробнее пример вашего последнего кода.

Я сам програмировал раньше только на делфи, сейчас поставили задачу написать макрос на VBA, который будет фиксировать факт изменения файла. То есть если кто-то зашел в файл и актуализировал его, информация со временем последнего изменения должна заноситься в журнал(другой файл). Я немного поразбирался на выходных с VBA, научился создавать, редактировать файлы, запускать макросы, создавать кнопки, разобрался с процедурами, функциями... почитал про Range. Уже вроде все слова в вашем коде знакомые, но в "жонглирование" переменными Range пока не въеду.

И еще вопрос, подскажите пожалуйста какой-нибудь сайт типа DelphiBasic или книгу, где можно смотреть описание стандартных конструкций? а то с английским не очень, справку не всегда понять выходит.

[vikttur]

Сохранение данных при открытии книги (часть процедуры в ЭтаКнига):

With Worksheets("лог") 'запись в журнал
iRwsLog = .Cells(Rows.Count, "B").End(xlUp).Row
i = iRwsLog + 1 'первая пустая строка после заполненных
.Cells(i, 2).Value = Now 'дата, время
.Cells(i, 3).Value = CreateObject("WScript.Network").Com puterName 'имя компьютера
Application.UserName' имя пользователя
End With
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True