Макрос для форматирования всех листов с условием - Microsoft Office Excel

Lika_Lika · 14.01.2014, 16:13

Помогите, пожалуйста, с макросом!
Хотелось бы, чтоб он находил в первом листе все ячейки залитые каким то цветом, запоминал их адреса и заливал на всех остальных листах книги ячейки с теми же адресами.

IgorGO · 14.01.2014, 17:18

приблизительно так

Код:

Sub FillAll()
  Dim sh As Worksheet
  Cells.Copy
  For Each sh In Worksheets
    sh.Cells(1).PasteSpecial Paste:=xlPasteFormats
  Next
End Sub

запустите макрос с листа, который является образцом форматирования

Lika_Lika · 14.01.2014, 18:23

Спасибо большое!
Все получилось

IgorGO · 14.01.2014, 18:30

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

выход в этом случае - файл закрыть, не сохраняя.

Lika_Lika · 19.03.2014, 04:04

Вы мне уже очень помогли однажды

Помогите и теперь, если несложно!
Есть 6-7 листов с разными залитыми одним цветом облостями, надо на 7мом листе, не меняя его содержимого, изобразить все залитые облости.
Спасибо заранее

Да! все таблицы идинтичные

14.01.2014, 16:13	#1
Lika_Lika Регистрация: 14.01.2014 Сообщений: 3	Макрос для форматирования всех листов с условием Помогите, пожалуйста, с макросом! Хотелось бы, чтоб он находил в первом листе все ячейки залитые каким то цветом, запоминал их адреса и заливал на всех остальных листах книги ячейки с теми же адресами.

14.01.2014, 17:18	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	приблизительно так Код: `Sub FillAll() Dim sh As Worksheet Cells.Copy For Each sh In Worksheets sh.Cells(1).PasteSpecial Paste:=xlPasteFormats Next End Sub` запустите макрос с листа, который является образцом форматирования Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете Последний раз редактировалось IgorGO; 14.01.2014 в 18:25.

14.01.2014, 18:30	#4
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	аккуратно только. если при старте макроса активным окажется не тот лист... все станут похожи на него, в том числе и образцовый. выход в этом случае - файл закрыть, не сохраняя. Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете Последний раз редактировалось IgorGO; 19.03.2014 в 04:54.

19.03.2014, 04:04	#5
Lika_Lika Регистрация: 14.01.2014 Сообщений: 3	Макрос копирования формата ( PasteSpecial???!!) Хелп Вы мне уже очень помогли однажды Помогите и теперь, если несложно! Есть 6-7 листов с разными залитыми одним цветом облостями, надо на 7мом листе, не меняя его содержимого, изобразить все залитые облости. Спасибо заранее Да! все таблицы идинтичные Последний раз редактировалось Lika_Lika; 19.03.2014 в 04:08.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Макрос для всех листов	albih	Microsoft Office Excel	3	12.04.2012 14:16
Макрос для всех листов	as-is	Microsoft Office Excel	8	10.02.2011 21:15
Макрос Сводной Таблиц для всех листов	Richard123	Microsoft Office Excel	4	21.01.2011 12:53
Макрос для всех листов в книге	Rok	Microsoft Office Excel	5	26.04.2010 08:55
Макрос записанный вручную для всех листов	as-is	Microsoft Office Excel	1	14.03.2010 14:35

14.01.2014, 18:23	#3
Lika_Lika Регистрация: 14.01.2014 Сообщений: 3	Спасибо большое! Все получилось