Как доработать код ?

[zander]

Имеется код, который работает и полностью устраивает - фиксирует время внесения данных в ячейку, но работает он только если вводить данные руками, а если данные меняются в результате вычесления то макрос не работает, а собственно это один из важных моментов.

Простая замена Worksheet_Change на Worksheet_Calculate естесвенно не работает
Private Sub Worksheet_Change (ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C8:C100")) Is Nothing Then
With Target(1, 2)
.Value = Now
.EntireColumn.AutoFit
End With
End If
End Sub

[EducatedFool]

В случае с Worksheet_Change всё намного проще, поскольку он получает в качестве параметра изменённую ячейку (ByVal Target As Range)

Worksheet_Calculate же не сообщает, какая ячейка пересчиталась...

Остаётся одно - по каждому событию Worksheet_Calculate проверять, произошли ли интересующие Вас изменения в нужных ячейках (для этого, возможно, придётся где-то сохранять старые значения ячеек диапазона, чтобы было с чем сравнивать), и на основании этой проверки уже что-то делать.

а если данные меняются в результате вычесления

Вы имеете ввиду вычисления при помощи макроса, или формул?

[zander]

Сообщение от EducatedFool

В случае с Worksheet_Change всё намного проще, поскольку он получает в качестве параметра изменённую ячейку (ByVal Target As Range)

Worksheet_Calculate же не сообщает, какая ячейка пересчиталась...

Остаётся одно - по каждому событию Worksheet_Calculate проверять, произошли ли интересующие Вас изменения в нужных ячейках (для этого, возможно, придётся где-то сохранять старые значения ячеек диапазона, чтобы было с чем сравнивать), и на основании этой проверки уже что-то делать.


Вы имеете ввиду вычисления при помощи макроса, или формул?

вычисления ведутся путем формул применяемых к данным получаемым по DDE. Те. по DDE получаем данные в ячейку, с помощью формул обрабатываем и в другой ячейке имеем результат. Потом цикл повторяется и результат выводится в ячейку строчкой ниже, и так далее. и в каждой из строчек хотелось бы иметь время выведения данных в каждой стрке

[EducatedFool]

Посмотрите пример кода здесь:
http://www.programmersforum.ru/showp...81&postcount=5

Ну и здесь тоже:
http://www.programmersforum.ru/showp...60&postcount=7

Должно получиться что-то вроде этого:

Private Sub Worksheet_Calculate()
    Dim shIn As Worksheet: Set shIn = ThisWorkbook.Worksheets("вход записи")
    Dim shOut As Worksheet: Set shOut = ThisWorkbook.Worksheets("КупляПродажа")

    If Me.[a1].Value >= Me.[a2].Value Then
        For i = Me.[a2].Value To Me.[a1].Value
            Me.[a2] = i
            shIn.Rows(i).Cells(11) = Now ' пишем время в 11-й столбец
        Next
    End If
    shIn.Columns(11).AutoFit
End Sub