Макрос перегружает систему в плоть до необходимости перезагрузки компьютера

@ГоловнаяБОЛЬ · Регистрация: 12.07.2013

Author24 — интернет-сервис помощи студентам

Начал создавать простейший график и покуда абсолютный дуб в программировании - писал макросы путём записи и повтора всех телодвижений.
Для "красоты" решил все промежуточные итоги вынести на отдельный лист. При работе Макроса ЦП загружается на 100% из-за чего полностью останавливается работа.
Конкретнее процесс который останавливает процесс: на отдельном столбце проставляются даты закладки. Первая дата копируется с первого листа=>копируется во вторую строчку=>объединяются и растягиваю одно значение на ещё 8 строк=>проставляется следующее число и операция повторяется до 31. На 2-3 числе всё останавливается.

Буду очень признателен узнать по мере убывания мои ошибки которые привели к подобному, чтобы избежать их в дальнейшем.

@AntikBantik · 08.05.2015, 13:29

ГоловнаяБОЛЬ, попробуйте сделать все в цикле, у Вас еще очень много условных форматировании, и код я немного не понял

Visual Basic

Sub perekidka()
    j = 2
    For i = Day(Range("b16")) To Day(Range("b18"))
        Sheets("График").Select
        Range(Cells(2, i), Cells(11, i)).Select
        Selection.Copy
        Sheets("Лист1").Select
        Range(Cells(j, 4), Cells(j, 4)).Select
        ActiveSheet.Paste
        j = j + 10
    Next
End Sub

	08.05.2015, 13:29