Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Программирование, связанное с MS Office > Смена шрифта на всех листах в Exel


Автор: Illuminaty 23.3.2005, 20:53
Собственно, SUBJ
Но на всякий случай поясню smile :нужен код, меняющий в документе Exel на всех листах шрифт
Пробовал записать макрос такого типа:
1) Выделить все листы
2) Ctrl+A
3) Смена шрифта
Возникла проблема в том, что в записи участвуют фиксированные листы и если применить к другому документу, то не работает (как надо)

Автор: Illuminaty 23.3.2005, 21:12
зря потревожил - уже разобрался
в редакторе заменил строки
Код

    Sheets(Array("Лист1", "Лист2", "Лист3")).Select
    Sheets("Лист1").Activate

на
Код

    Sheets.Select

и все, вроде, заработало как надо
ЗЫ Обратился сюда, поскольку VB не знаю совсем

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)