редактирование кода листа макросом

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

редактирование кода листа макросом (Макросы/Sub)

henryh

Дата: Понедельник, 15.10.2018, 17:24 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Можно ли как то прописать код, чтобы макрос после создание новой книги с нескольким листами, заходил в код каждого листа и вписывал туда одну и ту же команду для выполнения на этих листах?

Ответить

bmv98rus

Дата: Понедельник, 15.10.2018, 17:39 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4116

Репутация: 769 ±

Замечаний: 0% ±

Excel 2013/2016

Можно, то можно, для этого должны быть включены соответствующие настройки в безопасности, но вот цель сомнительна. Проще просто иметь шаблон и его копировать в новую книгу вместе с кодом.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

_Boroda_

Дата: Понедельник, 15.10.2018, 17:44 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Можно https://yandex.ru/search....&lr=213
Но гораздо проще в той книге, откуда Вы запускаете свой макрос, сделать скрытый (или суперскрытый) пустой лист, в котором заранее прописать нужный макрос. А потом просто перенести этот лист в новую книгу и размножить его сколько нужно раз

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

SLAVICK

Дата: Вторник, 16.10.2018, 12:46 | Сообщение № 4

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата henryh, 15.10.2018 в 17:24, в сообщении № 1 ()

после создание новой книги с нескольким листами, заходил в код каждого листа и вписывал туда одну и ту же команду

так может достаточно не в код листа писать, а в код книги, на соотв. событие с листом:
[vba]

Код

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

[/vba]

Иногда все проще чем кажется с первого взгляда.

Ответить

редактирование кода листа макросом (Макросы/Sub)

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