Скорость выполнени кода отличается в разы

[rdva]

Написал большой (экранов пятнадцать) макрос , заметил, что к концу выполнение циклов, аналогичных применяемым в начале макроса, вроде бы замедляется. Провел эксперимет:
Добавил в конец " большого макроса"цикл удаление пробелов:

Код: Выделить всё


    With Worksheets("price.ru")
        For rwindex = 2 To .Range("A65535").End(xlUp).Row
            .Cells(rwindex, 1) = Trim(.Cells(rwindex, 1))
        Next rwindex
    End With


Запустил - на 5000 строк время выполнения ~3 минуты

Создал новую книгу, скопировал туда этот столбец с пробелами, все остальные книги закрыл, запустил макрос состоящий из одного этого цикла:

Код: Выделить всё

Sub aaa()
    With Worksheets("Лист1)
        For rwindex = 2 To .Range("A65535").End(xlUp).Row
            .Cells(rwindex, 1) = Trim(.Cells(rwindex, 1))
        Next rwindex
    End With
End Sub

И глаза вылезли на лоб - время выполнения ~3 секунды!
Почему происходит такое замедление?
Памяти свободной навалом: Машина - P4 2,8 Mhz, 1Gb ОЗУ, Excel 2003

[Чудовище под кроватью]

With Worksheets("Лист1)

Прямо так и запустил?

А вообще - много чего может влиять:
1) События ведь небось не отключаешь?
2) Обновление экрана тоже?
3) Да еще и формул, наверное, напрописывал?

[rdva]

Очепятка, сорри.

1. Что такое события?
2. Обновления экрана отключаю - результат не меняется. Как было 20 минут, так и осталось.
3. Формулы есть, но не то чтобы много. Хотя много-мало - понятия относительные.

Попробовал сейчас открыть книгу с "большим макросом" (кстати долго она что-то открывается, секунд 40-60) и запустил "короткий макрос" в отдельной книге - короткий опять выполняется три минуты. Закрываю книгу с большим макросом - короткий выполняется 3 секунды.

[Чудовище под кроватью]

rdva

1. Что такое события?

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

3. Формулы есть, но не то чтобы много. Хотя много-мало - понятия относительные.

Я это к тому, что при изменении содержимого ячейки, формулы будут сразу пересчитываться (если их не отключить, конечно). 5000 ячеек - 5000 рекалькуляций. Хотя все равно странно. Формулы не могут давать ТАКИХ задержек. Тут надо код смотреть. А лучше сам файл.

[uhm]

Формулы МОГУТ давать "таких задержек". Поставь в книге много ВПР'ов по большой таблице - и попробуй потом поработать при автоматическом пересчете формул

Перед циклом:

Application.Calculation = xlCalculationManual
Application.Screenupdating=False

После цикла - xlCalculationAutomatic и True соответственно.

[Чудовище под кроватью]

Формулы МОГУТ давать "таких задержек". Поставь в книге много ВПР'ов по большой таблице - и попробуй потом поработать при автоматическом пересчете формул

задержка в 20 минут?! Что за конфигурация компа?

[rdva]

АЛИЛУЙЯ! Продвинутый гуру uhm не зря называется таковым! После Application.Calculation = xlCalculationManual время выполнения меньше минуты.
Спасибо!

[alibek]

Размеры файлов какие?

[Genyaa]

Поделюсь своим наболевшим... до кучи...

Я довольно часто использую разные макросы, которые формируют какие-то новые списки данных из других списков (происходит преобразование структуры, проверка корректности и т.д. с переносом данных из одних листов другие, формул очень мало или совсем нет)...

Так вот, что я заметил... если я в течение сеанса работы с Екселем редактировал процедуры макросов, то выполнение любых макросов после этого может в разы (если не в десятки разов) медленнее, чем если бы я выполнял эти же макросы с теми же данными в первом сеансе работы Екселя до редактирования макросов.

[alibek]

А не обращал внимания на команду "Компилировать"?

[Чудовище под кроватью]

Genyaa
Аналогично.

[Genyaa]

А не обращал внимания на команду "Компилировать"?

О! да, нужно проверить.. может поможет... спасибо. не думал, что это как-то связано... да и забыл, что есть такая команда