Выполнение макроса во всех листах

[valerij]

Сообщение от Bu$ter

Sub test()

Dim sh As Worksheet


For Each sh In ThisWorkbook.Worksheets

Range("d3").Value = "ТЕСТ"


Next sh

End Sub

Пытаюсь протеститровать этот код... но он НЕ выполняется НА ВСЕХ СТРАНИЦАХ, а только на первой, и на этом цикл прекращается...

Вы забыли добавить
sh.Range("d3").Value = "ТЕСТ"

[Bu$ter]

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

Вы забыли добавить
sh.Range("d3").Value = "ТЕСТ"

Спасибо, точно забыл ))))

[IgorGO]

читаем пост #6 - я описывал варианты, как поправить код, чтобы он начал работать. Кстати описаны не все варианты.

Sub test()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
Range("d3").Value = "ТЕСТ"
Next sh
End Sub

Цикл отличный, спору нет, только дедает совсем не то, что хотелось протестировать.
строка Range("d3").Value = "ТЕСТ" запишет слово ТЕСТ в ячейку d3 АКТИВНОГО В ДАННЫМ МОМЕНТ ЛИСТА. А то, что переменная sh при каждом новом проходе по циклу ссылается на новый лист не имеет к Range("d3").Value = "ТЕСТ" никакого отношения...

[Bu$ter]

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

читаем пост #6 - я описывал варианты, как поправить код, чтобы он начал работать. Кстати описаны не все варианты.



Цикл отличный, спору нет, только дедает совсем не то, что хотелось протестировать.
строка Range("d3").Value = "ТЕСТ" запишет слово ТЕСТ в ячейку d3 АКТИВНОГО В ДАННЫМ МОМЕНТ ЛИСТА. А то, что переменная sh при каждом новом проходе по циклу ссылается на новый лист не имеет к Range("d3").Value = "ТЕСТ" никакого отношения...

Спасибо. Разобрался
Кстати воспользовался вашим советом из 6 поста:

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

Такие есть предлжения:

1) или в теле цикла по листам (For Each sh In Worksheets...) следующей строчкой написать sh.Activate

[КаМММ]

АБАЛДЕТЬ!!!!!
А какой простой был вопрос!

[Bu$ter]

Ребят, ну с макросом вроде разобрался.
Но! Не пойму почему файл разросся аж до 18(!) метров. Когда выполняется мкрос - вся системы виснет. Диспетчер задач показыват что само приложение Excel жрет 100 метров оперативы (при моих 488 метров на борту рабочей машины). А файл подкачки увеличивается до 1,3 (!!!) Ггб.
Подскажите, что это может быть?
И сохраняется минут 10 (((

[SAS888]

Когда выполняется мкрос - вся системы виснет.

А у Вас, случайно, нет процедур, выполняемых по каким-нибудь событиям? Если есть - запрещайте их обработку при выполнении макроса.

[valerij]

Сообщение от Bu$ter

Ребят, ну с макросом вроде разобрался.
Но! Не пойму почему файл разросся аж до 18(!) метров. Когда выполняется мкрос - вся системы виснет. Диспетчер задач показыват что само приложение Excel жрет 100 метров оперативы (при моих 488 метров на борту рабочей машины). А файл подкачки увеличивается до 1,3 (!!!) Ггб.
Подскажите, что это может быть?
И сохраняется минут 10 (((

Какой у Вас проц, на моем ПК(Процессор: Core2 Duo CPU2х2.40 GHz, Память (RAM): 4,00 ГБ) сохраняется за доли секунд, а вот открывается за 6 сек. макрос выполняется 12 сек. и просит открыть файл, после запроса "Выбрать последний файл Скидки_Комкуремтов", Конкуренты.
Может в этом, загвостка?

[EducatedFool]

Не пойму почему файл разросся аж до 18(!) метров

Можете попробовать убрать форматирование строк, но это уменьшит размер файла ненамного (на 10-20 процентов)

В Вашем файле каждый лист, даже если его очистить от данных и форматирования, весит около 1.43 Мб

Проще программно перенести данные из этой книги в новую (пустую)
Это, по идее, должно заметно повлиять на размер файла.

В качестве временной меры можно посоветовать разбить файл на несколько отдельных (по одному листу в каждом)

Когда выполняется мкрос - вся системы виснет

Конечно, тут многое зависит от размера файла, но в определённой степени наблюдаемое явление может быть обусловлено нехваткой ресурсов GDI из-за чрезмерного количества всяких SELECT и ACTIVATE

Попробуйте использовать код из поста #7. У меня, к примеру, этот код демонстрирует более высокое быстродействие, нежели Ваш.

Кроме того, у Вас очень много повторяющихся участков кода.
Если код оптимизировать, это значительно скажется на скорости его выполнения.

Но, безусловно, с размером файла надо тоже что-то решать.