Копирование цвета ячейки в excel при - Word и Excel - помощь в работе с программами

Мои извинения за повторное открытие этого поста. Я сделал некоторые проблемы с этим, и мои выводы заключаются в следующем.

Допустим, мы используем опцию «Специальная вставка — все с использованием исходной темы», только ваши данные и форматирование из исходного листа будут сохранены, плавающие объекты не будут скопированы. Эта опция будет работать только тогда, когда на этом листе нет плавающих объектов (диаграмм, диаграмм, фигур). VBA:

Cells.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
    , SkipBlanks:=False, Transpose:=False

Чтобы иметь все содержимое, относящееся к листу (включая плавающие объекты), необходимо переместить / скопировать лист в новую / целевую книгу. После этого все цвета изменятся на другую тему, включая цвета диаграмм. Это имеет место даже в том случае, когда цветные паллеты обеих книг одинаковы.

Я приложил файл для игры. Попробуйте скопировать / переместить лист в новую книгу и посмотрите, что произойдет, этот файл создан на платформе Office 2010. Я использую Office 365 на Win8, и эти стандартные цвета меняются на разные оттенки желтого и серого.

Эта проблема отсутствует при использовании книг, созданных с нуля в Office 365, но в файлах, созданных в предыдущих версиях Office, проблема не устраняется при использовании более поздней версии Office.

РЕШЕНИЕ: макет страницы —> Цвета —> Офис 2007-2010

И в VBA:

ActiveWorkbook.Theme.ThemeColorScheme.Load ( _
    "C:Program FilesMicrosoft Office 15RootDocument Themes 15Theme ColorsOffice 2007 - 2010.xml" _
    )

Источник

Содержание

Excel меняется цвет при копировании
Excel меняется цвет при копировании
Цвета ячеек меняются при копировании и вставке в Excel 2010
5 ответов
Excel меняется цвет при копировании

Excel меняется цвет при копировании

Профиль | Отправить PM | Цитировать

Сообщения: 16787
Благодарности: 3226

Сообщения: 94
Благодарности: 0

Конфигурация компьютера
Память: 16 гб
Звук: Realtek High Definition Audio(SST)
Ноутбук/нетбук: LENOVO ThinkBook 15 G2 ITL
» width=»100%» style=»BORDER-RIGHT: #719bd9 1px solid; BORDER-LEFT: #719bd9 1px solid; BORDER-BOTTOM: #719bd9 1px solid» cellpadding=»6″ cellspacing=»0″ border=»0″>

Сообщения: 16787
Благодарности: 3226

Сообщения: 5070
Благодарности: 800

Конфигурация компьютера
Память: 16 гб
Звук: Realtek High Definition Audio(SST)
Ноутбук/нетбук: LENOVO ThinkBook 15 G2 ITL
» width=»100%» style=»BORDER-RIGHT: #719bd9 1px solid; BORDER-LEFT: #719bd9 1px solid; BORDER-BOTTOM: #719bd9 1px solid» cellpadding=»6″ cellspacing=»0″ border=»0″>

Сообщения: 16787
Благодарности: 3226

» width=»100%» style=»BORDER-RIGHT: #719bd9 1px solid; BORDER-LEFT: #719bd9 1px solid; BORDER-BOTTOM: #719bd9 1px solid» cellpadding=»6″ cellspacing=»0″ border=»0″>

Сообщения: 1
Благодарности: 0

Нашёл решение:
1. Создаём копию листа в новую книгу.
2. Выделяем «всё» (Ctrl+A) на листе, с которого сделали копию.
3. Копируем в буфер (Ctrl+C или «правый клик»+»Копировать»).
4. На первой верхней ячейке на копии листа в новой книге «правый клик» —> «Специальная вставка» —> переключатель на «С исходной темой» —> «Ок».

Источник

Excel меняется цвет при копировании

Конфигурация компьютера
Память: 16 гб
Звук: Realtek High Definition Audio(SST)
Ноутбук/нетбук: LENOVO ThinkBook 15 G2 ITL
» width=»100%» style=»BORDER-RIGHT: #719bd9 1px solid; BORDER-LEFT: #719bd9 1px solid; BORDER-BOTTOM: #719bd9 1px solid» cellpadding=»6″ cellspacing=»0″ border=»0″> Читайте также: Huayu rm 1097 пульт универсальный как настроить телевизор

Профиль | Отправить PM | Цитировать

Сообщения: 16787
Благодарности: 3226

Сообщения: 94
Благодарности: 0

Конфигурация компьютера
Память: 16 гб
Звук: Realtek High Definition Audio(SST)
Ноутбук/нетбук: LENOVO ThinkBook 15 G2 ITL
» width=»100%» style=»BORDER-RIGHT: #719bd9 1px solid; BORDER-LEFT: #719bd9 1px solid; BORDER-BOTTOM: #719bd9 1px solid» cellpadding=»6″ cellspacing=»0″ border=»0″>

Сообщения: 16787
Благодарности: 3226

Сообщения: 5070
Благодарности: 800

Конфигурация компьютера
Память: 16 гб
Звук: Realtek High Definition Audio(SST)
Ноутбук/нетбук: LENOVO ThinkBook 15 G2 ITL
» width=»100%» style=»BORDER-RIGHT: #719bd9 1px solid; BORDER-LEFT: #719bd9 1px solid; BORDER-BOTTOM: #719bd9 1px solid» cellpadding=»6″ cellspacing=»0″ border=»0″>

Сообщения: 16787
Благодарности: 3226

» width=»100%» style=»BORDER-RIGHT: #719bd9 1px solid; BORDER-LEFT: #719bd9 1px solid; BORDER-BOTTOM: #719bd9 1px solid» cellpadding=»6″ cellspacing=»0″ border=»0″>

Конфигурация компьютера

Память: 16 гб

Звук: Realtek High Definition Audio(SST)

Ноутбук/нетбук: LENOVO ThinkBook 15 G2 ITL

Читайте также: Microsoft office interop excel office 2016

Цвета ячеек меняются при копировании и вставке в Excel 2010

У нас есть сторонний инструмент, который создает файл Excel (xls, формат 97/2003) и форматирует некоторые ячейки в разные цвета. Когда я копирую диапазон ячеек во вновь созданный файл (формат xlsx, 2007/2010), цвета этих отформатированных ячеек полностью меняются — светло-желтый становится ярко-фиолетовым и т. Д. То же самое происходит, когда я перемещаю / копирую весь лист в новый Учебное пособие.

К компании, которая создала сторонний инструмент, больше нельзя обратиться (вероятно, из бизнеса), поэтому я застрял с исправлением этого поведения в Excel.

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

5 ответов

Щелкните правой кнопкой мыши — Специальная вставка — Все, используя исходную тему

Это должно сохранить исходную тему без изменений. Если это не сработает, вы можете опубликовать пример исходного документа?

Допустим, мы используем параметр «Специальная вставка — все с использованием исходной темы», будут сохранены только ваши данные и форматирование из исходного листа, а плавающие объекты не будут скопированы. Эта опция будет работать только тогда, когда на этом листе нет плавающих объектов (диаграмм, диаграмм, фигур). VBA:

РЕШЕНИЕ: макет страницы —> Цвета —> Офис 2007-2010

Источник

Excel меняется цвет при копировании

Источник

Профиль | Отправить PM | Цитировать

Сообщения: 16787
Благодарности: 3226

Сообщения: 94
Благодарности: 0

Конфигурация компьютера
Память: 16 гб
Звук: Realtek High Definition Audio(SST)
Ноутбук/нетбук: LENOVO ThinkBook 15 G2 ITL
» width=»100%» style=»BORDER-RIGHT: #719bd9 1px solid; BORDER-LEFT: #719bd9 1px solid; BORDER-BOTTOM: #719bd9 1px solid» cellpadding=»6″ cellspacing=»0″ border=»0″>

Сообщения: 16787
Благодарности: 3226

Сообщения: 5070
Благодарности: 800

Конфигурация компьютера
Память: 16 гб
Звук: Realtek High Definition Audio(SST)
Ноутбук/нетбук: LENOVO ThinkBook 15 G2 ITL
» width=»100%» style=»BORDER-RIGHT: #719bd9 1px solid; BORDER-LEFT: #719bd9 1px solid; BORDER-BOTTOM: #719bd9 1px solid» cellpadding=»6″ cellspacing=»0″ border=»0″>

Сообщения: 16787
Благодарности: 3226

» width=»100%» style=»BORDER-RIGHT: #719bd9 1px solid; BORDER-LEFT: #719bd9 1px solid; BORDER-BOTTOM: #719bd9 1px solid» cellpadding=»6″ cellspacing=»0″ border=»0″>

Сообщения: 1
Благодарности: 0

Источник

Adblock
detector

Конфигурация компьютера
Память: 16 гб
Звук: Realtek High Definition Audio(SST)
Ноутбук/нетбук: LENOVO ThinkBook 15 G2 ITL
» width=»100%» style=»BORDER-RIGHT: #719bd9 1px solid; BORDER-LEFT: #719bd9 1px solid; BORDER-BOTTOM: #719bd9 1px solid» cellpadding=»6″ cellspacing=»0″ border=»0″>

Источник

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

В этой статье мы рассмотрим как вручную можно менять цвет ячейки, а так же как прописать в VBA изменение цвета диапазона ячеек или одной выделенной ячейки.

Начнем с простого. На главной панели инструментов ленты находится панель Формата Ячеек:

Для того, чтобы изменить цвет ячейки (диапазона ячеек) нам необходимо выделить ее, после чего на Панели инструментов выбрать необходимый цвет. Так же можно задать другие цвета, выбрав их из палитры. Панель инструментов меняет так же цвет текста, размер шрифта и формат границы ячейки.

Теперь зададим формат ячейки пользуясь контекстным меню, для чего кликнем правой кнопкой мыши на ячейке и в открывшемся списке выберем «Формат Ячеек»:

На вкладке «Заливка» можно выбрать цвет фона и узор.

Рассмотрим несколько иную ситуацию. Допустим вы хотите скопировать цвет ячейки (и формат) с существующей и применить к своим ячейкам. Воспользуемся кнопкой на главной панели «Формат по образцу» («метелочка»):

Таким образом, для того, чтобы скопировать формат необходимо выделить интересующую нас ячейку, нажать на «метелочку» и кликнуть по ячейке, формат которой мы хотим задать.

Аналогичные операции можно описать и в Макросах. Если есть необходимость вставить в код условие, по которому будет меняться формат ячейки или проводиться суммирование ячеек с определенным цветом или шрифтом, то проведя операции копирования формата с записью макроса, можно увидеть что:

Задать цвет ячейке (A1 окрашивается в Желтый):

Sub Макрос2()
Range("A1").Select
With Selection.Interior
.Color = 65535
End With
End Sub

Скопировать формат ячейки (формат A1 копируется на A3):

Sub Макрос1()
Range("A1").Select
Selection.Copy
Range("A3").Select
Selection.PasteSpecial
Application.CutCopyMode = False
End Sub

Теперь комбинируя формат с операторами условия можно написать вычисления (например, суммирование) по условию цвета.

Будем благодарны, если Вы нажмете +1 и/или Мне нравится внизу данной статьи или поделитесь с друзьями с помощью кнопок ниже.

Спасибо.

Источник

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

Допустим ячейка А2 имеет значение 100 и ЖЕЛТУЮ заливку. Вводим в А1 формулу «=А2» и получаем значение 100, но без заливки А1. А надо получить в А1 и значение и тот же цвет заливки что и у А2.
Ну и разумеется, при изменении цвета А2, автоматом меняется цвет А1.

Можно такое сделать?

	Можно, макросом. Но не лучше ли сделать одинаковое условное форматирование для обеих ячеек, чтобы заливка автоматически менялась при изменении значения?

	Если быть более точным, то значения вообще не нужны. Нужен только цвет. Когда одна определенная ячейка меняет цвет, то таже замена происходит и в другой определенной ячейке. А макросом как?

{quote}{login=Fagot}{date=15.12.2010 08:23}{thema=}{post}Если быть более точным, то значения вообще не нужны. Нужен только цвет…{/post}{/quote}
Причем здесь тогда XL? Может хватит двух синхронных светофоров?
Z.
ps И зачем было голову морочить с условиями в первом посте…

{quote}{login=Z}{date=15.12.2010 08:34}{thema=Re: }{post}{quote}{login=Fagot}{date=15.12.2010 08:23}{thema=}{post}Если быть более точным, то значения вообще не нужны. Нужен только цвет…{/post}{/quote}
Причем здесь тогда XL? Может хватит двух синхронных светофоров?
Z.
ps И зачем было голову морочить с условиями в первом посте…{/post}{/quote}

Насчет световоров, хорошая идея. Стоит подумать.
Пока думаю, может быть подскажете, Казанский, по макросам?
Z, прошу прощения за замороченную голову. Казалось бы такой пустяк, а вон как получилось

R Dmitry

Пользователь

Сообщений: 3103
Регистрация: 22.12.2012

Excel,MSSQL,Oracle,Qlik

15.12.2010 20:54:53

А на какое событие вы хотите, вы хотите повесить макрос,
что бы в соседней ячейке изменился цвет?

Спасибо

R Dmitry

Пользователь

Сообщений: 3103
Регистрация: 22.12.2012

Excel,MSSQL,Oracle,Qlik

15.12.2010 20:59:16

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

Спасибо

{quote}{login=R Dmitry}{date=15.12.2010 08:54}{thema=Re: Re: Re: }{post}А на какое событие вы хотите, вы хотите повесить макрос,
что бы в соседней ячейке изменился цвет?{/post}{/quote}

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

R Dmitry

Пользователь

Сообщений: 3103
Регистрация: 22.12.2012

Excel,MSSQL,Oracle,Qlik

15.12.2010 21:05:53

Я же Вам написал, при изменении заливки в ячейке событие не происходит

Спасибо

R Dmitry

Пользователь

Сообщений: 3103
Регистрация: 22.12.2012

Excel,MSSQL,Oracle,Qlik

#10

15.12.2010 21:11:48

если ячейки определенные то можно так конечно

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets(«Лист2»).[d1].Interior.Color = [d1].Interior.Color
End Sub

Спасибо

R Dmitry

Пользователь

Сообщений: 3103
Регистрация: 22.12.2012

Excel,MSSQL,Oracle,Qlik

#11

15.12.2010 21:16:03

Private Sub Worksheet_Activate()
[d1].Interior.Color = Sheets(«Лист1»).[d1].Interior.Color
End Sub
или так этот в модуль Лист2
а тот в модуль Лист1

Спасибо

{quote}{login=R Dmitry}{date=15.12.2010 09:05}{thema=Re: Re: Re: Re: Re: }{post}Я же Вам написал, при изменении заливки в ячейке событие не происходит :({/post}{/quote}

Если я правильно понял, то эксель такого не умеет?
Черт возми! Придется довольствоваться светофорами!
Ладно, сделаем проще. Вот файл.
На листе «Игра» при изменении цифры в верхней ячейки от 2 до 10 должно изменяться содержимое внутреннего квадрата в соответствии с листом «Варианты».
Для любопытных… это покер.
Если получится перенести только цвет, то уже хорошо. Если еще и цифры, то просто супер.

	Пока писал последний пост. Уже пришли Ваши макросы. Большое спасибо! К сожалению с макросами дел тоже не имел и не знаю куда их сувать За отредактированный файл заплачу разумную цену. С уважением, …

	Старый маразматик. Забыл прицепить файл. Сорри!

R Dmitry

Пользователь

Сообщений: 3103
Регистрация: 22.12.2012

Excel,MSSQL,Oracle,Qlik

#15

15.12.2010 21:29:31

{quote}{login=Fagot}{date=15.12.2010 09:24}{thema=}{post}Старый маразматик. Забыл прицепить файл.
Сорри!{/post}{/quote}
т.е. я понимаю при введении цифры от 2 до 10 , данный квадрат раскрашивается, согласно варианту на листе варианты?

Спасибо

R Dmitry

Пользователь

Сообщений: 3103
Регистрация: 22.12.2012

Excel,MSSQL,Oracle,Qlik

#16

15.12.2010 21:36:40

вернусь через 2 часа если никто не сделает значит мое

Спасибо

	{quote}{login=R Dmitry}{date=15.12.2010 09:36}{thema=}{post}вернусь через 2 часа если никто не сделает значит мое :){/post}{/quote} Все верно. Сколько будет стоить?

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле	Дмитрий, мы честно ждём 2 часа

	Блин! Два часа ждать не могу. Я уже сам сделал, без макросов. Вот…

Кстати, кто в покер (Texas Holdem) играет, полезный файл… обозначает силу рук при различном колличестве играющих за столом (от 2 до 10)… такого в инете нет!
Цифры означают отношение силы руки к средней силе руки остальных играющих при всех неизвестных картах до флопа. В левом-нижнем углу одномастные карты, в правом-верхнем одномастные. В итоге правильная игра на префлопе.
Пользуйтесь наздоровье… сам делал.
R Dmitry, заказ некорректный получился
Но раз обещал, заплачу… только руки сильно не выкручивай

	…в правом-верхнем РАЗНОМАСТНЫЕ…

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле	Ну, раз уж сами сделали, то посмотрите и вариант с макросами.

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле	{quote}{login=Fagot}{date=15.12.2010 09:54}{thema=}{post}Блин! Два часа ждать не могу. {/post}{/quote} Нужно уже сдавать?

swoloch Пользователь Сообщений: 25 Регистрация: 01.01.1970	Выложи свой вариант пожалуйста! Без макрасов как тебе удалось?

	{quote}{login=Юрий М}{date=15.12.2010 10:19}{thema=}{post}Ну, раз уж сами сделали, то посмотрите и вариант с макросами.{/post}{/quote} Да! Впечатляет! Вот что значит незамороченная голова Сколько я должен?

{quote}{login=Swoloch}{date=15.12.2010 10:34}{thema=}{post}Выложи свой вариант пожалуйста! Без макрасов как тебе удалось?{/post}{/quote}

Уже выложил.. в посте выше… там где про «два часа ждать не могу»

просто разложил по листам… тупой и еще тупее называется… чего еще проще то?

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле	У меня на Казанском вокзале (Москва, блин!) спёрли электронный кошелёк. Так что первый урок бесплатно

kim Пользователь Сообщений: 3139 Регистрация: 23.12.2012 Игорь	В версии 2007 и выше, это элементарно делается условным форматированием…

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле	А как быть со значениями тогда?

Fagot Гость	#30 15.12.2010 23:14:25 {quote}{login=Юрий М}{date=15.12.2010 10:45}{thema=}{post}У меня на Казанском вокзале (Москва, блин!) спёрли электронный кошелёк. Так что первый урок бесплатно :-){/post}{/quote} Спасибо, Юрий!

Источник

Remove From My Forums

Question
I have a collection of macros that I use to create custom reports from a set of «master» sheets. I use a form to copy a sheet from the master reports into the custom report based on some conditions that the user sets up in the form. There
are some cell fill colors in the master reports that for some reason get changed. This is a new problem that I’m seeing now that I’ve upgraded to Office 2013. This wasn’t an issue when I was using Office 2010.

Displaying the color pallet (by clicking on the fill color tool bar button) shows essentially the same colors as clicking on the same button when working in the custom report, except some of the color columns are shifted around. I think that this shifting
is what is causing my colors to be changed. It’s like the assigned fill colors are mapped by index and somehow the columns are rearranged in the custom worksheet and the color indexes are grabbing different colors because of it.

Any ideas why the available them color pallets are different between the workbooks? I suppose one reason might be is that the master reports workbook was created using 2010 and the custom reports are now being created by 2013 with the sheets being
copied in from the 2010 workbook. If this is the case is there anything I can other than recreating the workbook with the 2013 just to see if it corrects it?

Thanks,

Brad DuBois

Master Report Theme Color Pallet:

Custom Report Theme Color Pallet: