Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Быстрый пернос кода листа на другие листы
 
#1
08.01.2013 21:57:29
Доброго времени суток.
Уважаемые фоумчане помогите пожалуйста размножить код.
Написали макрос (лист1/исходный текст), теперь этот код надо быстро скопировать в другие листы, а то ctrl+c и ctrl+v не катит когда много листов.
Может макрос или секрет какой-то есть?
 
 
 
#2
08.01.2013 22:01:37
Для множества листов существует

Код
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)End Sub


(как вариант).  ;)
Изменено: RAN - 08.01.2013 22:04:14
 
 
 
#3
08.01.2013 22:02:13
Цитата
Андрей пишет:
ctrl+c и ctrl+v не катит когда много листов.
Ну, копировать только один раз придётся, а вот Ctrl+v...
В модуле Книги есть событие Workbook_SheetSelectionChange - попробуйте поместить свой код туда
 
 
 
#4
08.01.2013 22:22:30
Спасибо, а ларчик просто открывался.
А если вдруг один лист надо исключить, ну чтоб на нем не выполнялся макрос?
 
 
 
#5
08.01.2013 22:27:41
Проверять имя листа: Если имя листа не равно "ЛистN", то...
 
 
 
#6
08.01.2013 22:36:34
Цитата
Юрий М пишет:
Проверять имя листа: Если имя листа не равно "ЛистN", то...
Если не трудно можете набросать пару строчек, а то я как-то плохо понимать
 
 
 
#7
08.01.2013 22:43:59
Если вы лучше понимать по аглицки, то
Код
If Sheets.Name = "ЛистN" Then Exit Sub
Изменено: RAN - 08.01.2013 22:44:24
 
 
 
#8
08.01.2013 22:49:08
Дзякуй, в смысле спасибо.
Если данные мысли никому не нужны, можно тему закрывать.
 
 
 
Страницы: 1
Наверх