DDE с задержкой

[sart21]

Люди добрые!
Помогите, не могу разобраться, что не так в коде, получаю котировки через DDE, но их так много, что за одну секунду пишеться 4-5 строк, цель макроса такова, что бы выставить паузу желаемой длинны, прикрутил форму в которой выставляется время задержки, котировки накапливаются на другом листе, при этом Excel висит, может кто подскажет и другие пути решения задачи

[EducatedFool]

В Вашем проекте можно заменить код:

i = Worksheets("Накопительный").UsedRange.Rows.Count
Worksheets("Накопительный").Cells(i + 1, 2).Value = Worksheets("Исходный").Cells(2, 2).Value
Worksheets("Накопительный").Cells(i + 1, 3).Value = Worksheets("Исходный").Cells(3, 2).Value

' много-много одинаковых строк

Worksheets("Накопительный").Cells(i + 1, 54).Value = Worksheets("Исходный").Cells(54, 2).Value
Worksheets("Накопительный").Cells(i + 1, 55).Value = Worksheets("Исходный").Cells(55, 2).Value

на код

    Dim СледующаяЯчейка As Range ' ищем первую незаполненную ячейку во втором столбце
    Set СледующаяЯчейка = Worksheets("Накопительный").Cells(Rows.Count, 2).End(xlUp).Offset(1)

    Worksheets("Исходный").Range("b2:b55").Copy ' копируем диапазон

    СледующаяЯчейка.PasteSpecial xlPasteValues, , , True ' вставляем с транспонированием

    СледующаяЯчейка.Previous = Time ' в 1 столбец пишем время

То есть, исходный диапазон копируется, а вставка производится с транспонированием.
Так будет работать побыстрее...

но их так много, что за одну секунду пишеться 4-5 строк, цель макроса такова, что бы выставить паузу желаемой длинны

Так в чём проблема? Код Вы написали правильно.
Ставим в поле на форме интервал 0,2 вместо 1, и макрос будет записывать по 5 строк в секунду.

Может, Вам надо отслеживать событие обновления данных на листе, вместо запуска макроса с постоянным интервалом?

[sart21]

Спасибо за совет по оптимизации кода, счас попробую переписать, проблемку Вы не поняли, во время исполнения макроса Excel зависает, не реагирует ни на какие команды, при этом котировки записываются, и время я выставляю 5 секунд, так как при маленьком таймфрейме 1 сек пишеться слишком много информации

[sart21]

Всё таки распишу подробней, котировки поступают через DDE на лист "Исходный" Запись поступающих котировок производится на лист "Накопительный" при выставлении паузы в 5 секунд производится запись на лист "Накопительный" со смещением ячеек вниз, вроде всё работает, но Excel , зависает при работе не реагирует ни одна кнопка, кроме моей формы, где стоит нажать "СТОП" и EXCEL ачинает реагировать

[EducatedFool]

во время исполнения макроса Excel зависает, не реагирует ни на какие команды

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

Найдите среди свойств формы свойство ShowModal, и установите его в False
И будет Вам счастье

[sart21]

Ещё раз спасибо, как настрою выложу рабочую форму, может кому пригодиться.

[NAN]

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

Ещё раз спасибо, как настрою выложу рабочую форму, может кому пригодиться.

Я при такой-же проблеме вставил в цикл DoEvents, процессор стал загружен на 25%, остальные проги работают.

[norvik]

[/QUOTE]

Может, Вам надо отслеживать событие обновления данных на листе, вместо запуска макроса с постоянным интервалом?[/QUOTE]

Извиняюсь, а вы не могли бы подсказать как поменять код, чтобы запись шла именно так, то есть по мере каждого обновления полученных значений? Может ли макрос отслеживать сам факт получения новых
значений с дде сервера, если они идентичны ранее полученным величинам и поступили с большой скоростью, например 30 раз
за 50 миллисекунд?

[EducatedFool]

Да, может.
Примеров таких макросов на форуме множество.

Например, здесь: http://www.programmersforum.ru/showthread.php?t=40744

Суть: пишем в любую ячейку формулу, ссылающуюся на обновляемый по DDE диапазон,
и обрабатываем событие пересчёта формул Worksheet_Calculate