Страница 1 из 1

помогите оптимизировать код макроса создания сводной таблицы

Добавлено: 20 мар 2008, 23:10
SunKiSSka
Доброго времени суток!

Записан с помощью макрорекодера, но с такими вещами никогда не сталкивалась. Подскажите, может кто-нибудь знает вариант поизящнее.


Спасибо!!!!

Re: помогите оптимизировать код макроса создания сводной таблицы

Добавлено: 21 мар 2008, 01:25
VictorM
SunKiSSka, здравствуйте. Как-то, в начале своей жизни на форуме я поднимал тему, посмотрите
http://forum.developing.ru/showthread.php?t=6756
т.е. для начала нужно избавиться от явного выделения листов, диапазонов, ячеек. Да и при составлении и форматировании таблицы макрорекордер пишет много лишнего.
Например, 33 строки кода Range("E4:I56").Select и.т. можно заменить на

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

With Range("E4:I56").Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

Re: помогите оптимизировать код макроса создания сводной таблицы

Добавлено: 21 мар 2008, 01:38
SunKiSSka
VictorM писал(а):...посмотрите
http://forum.developing.ru/showthread.php?t=6756
т.е. для начала нужно избааиться от явного выделения листов, ячеек. Да и при составлении и форматировании таблицы макрорекордер пишет много лишнего.
Спасибо за отклик!

Re: помогите оптимизировать код макроса создания сводной таблицы

Добавлено: 21 мар 2008, 01:48
VictorM
Этот макрос для таблицы из предыдущего поста?
А то чё-то неохота воссоздавать всю таблицу для проверки ;)

Re: помогите оптимизировать код макроса создания сводной таблицы

Добавлено: 21 мар 2008, 08:22
SunKiSSka
VictorM писал(а):Этот макрос для таблицы из предыдущего поста?
А то чё-то неохота воссоздавать всю таблицу для проверки ;)
Да бьюсь все с одним и тем же, просто предполагаю разные варианты решения