Перенос цвета ячейки в excel

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

  Допустим ячейка А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

#6

15.12.2010 20:54:53

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

R Dmitry

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

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

Excel,MSSQL,Oracle,Qlik

#7

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

#9

15.12.2010 21:05:53

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

R Dmitry

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

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

Excel,MSSQL,Oracle,Qlik

#10

15.12.2010 21:11:48

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}  

    Все верно. Сколько будет стоить?

Юрий М

Модератор

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

Контакты см. в профиле

Дмитрий, мы честно ждём 2 часа

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

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

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

Юрий М

Модератор

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

Контакты см. в профиле

Ну, раз уж сами сделали, то посмотрите и вариант с макросами.

Юрий М

Модератор

Сообщений: 60586
Регистрация: 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}  

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

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

Юрий М

Модератор

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

Контакты см. в профиле

У меня на Казанском вокзале (Москва, блин!) спёрли электронный кошелёк. Так что первый урок бесплатно

kim

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

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

Игорь

В версии 2007 и выше, это элементарно делается условным форматированием…

Юрий М

Модератор

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

Контакты см. в профиле

А как быть со значениями тогда?

Fagot

Гость

#30

15.12.2010 23:14:25

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

  Спасибо, Юрий!