Worksheet_Calculate

[vik85]

Здравствуйте. Помогите плз.
У меня программка собирает статистические данные из нета в эксель.
на листе "таймер" происходит деление на часы, минуты и секунды
на листе "счетчик" есть некий счетчик который считает кол-во поступивших данных за минуту. Мне нужно чтоб по окончании минуты счетчик сбрасывался.
я сделал так:
создал еще один лист "Сброс счетчика" и в нем сделал ссылку на минуты и на листе написал так
Private Sub sheet_Calculate()
WorksheetSheets("Запрос данных").Cells(3, 8) = "2"
End Sub
на лист "запрос данных" поступают данные и он же содержет счетчик.
У меня же происходит то что он почему-то смотрит на лист "таймер",по крайней мере я так думаю, потому что он сбрасывает счетчик каждую секунду.
подскажите что не так

[motorway]

По этому описанию довольно сложно понять, но если у вас в счетчике идет проверка времени, то можно проверять, равно ли число секунд 00, и сбрасывать счетчик в случае "да"

[vik85]

Я делал так чтоб отталкиваться от секунд, но если данных за минуту собирается много + большое кол-во формул на листе подвешивают эксель, и момент когда секунды становятся 00 бывает проходит незамеченным, от сюда счетчик не сбросился - данных стало еще больше- и они же перетирают нужные формулы

[motorway]

А обновление экрана и автопересчет формул отключены у вас?

[vik85]

Настройки стоят по умолчанию за исключением некоторых. Что даст отключение авто обновления экрана и авто пересчета формул? Если это так важно, плз подскажите как сделать (офис 2007)

[motorway]

В случае большого кол-ва ячеек, значения которых меняются, отключение этих функций значительно сокращает время работы макроса.
В начале его вставьте

Application.EnableEvents=False
Application.ScreenUpdating=False
Application.Calculation=xlCalculationManual

В конце

Application.EnableEvents=True
Application.ScreenUpdating=True
Application.Calculation=xlCalculationAutomatic

[vik85]

спасибо, попробую