Как менять цвет ячейки по цвету другой ячейки - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/Как менять цвет ячейки по цвету другой ячейки - Мир MS Excel

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

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

Как менять цвет ячейки по цвету другой ячейки

Как менять цвет ячейки по цвету другой ячейки

Дата: Вторник, 05.03.2013, 15:10 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 20

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

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

Здравствуйте! Буду очень признателен, если кто-нибудь поможет разобраться, как сделать, что бы при изменении цвета ячейки в таблице 1 менялся цвет у ячейки в таблице 2

К сообщению приложен файл: 5175750.xlsx (10.1 Kb)

Ответить

Дата: Вторник, 05.03.2013, 16:56 | Сообщение № 2

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

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

Сообщений: 19405

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
А в таблице 1 предполагается ячейки вручную красить или, может, с помощью условного форматирования?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Вторник, 05.03.2013, 17:03 | Сообщение № 3

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

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

Сообщений: 4517

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

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

Excel 2003

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

К сообщению приложен файл: 5175750_new.xls (27.5 Kb)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Вторник, 05.03.2013, 17:20

Ответить

Дата: Среда, 06.03.2013, 04:12 | Сообщение № 4

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

Ранг: Новичок

Сообщений: 20

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

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

В первой таблице заливка устанавливается вручную

Цитата (AlexM)

См. пример.
К сообщению приложен файл: 5175750_new.xls(28Kb)

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

Сообщение отредактировал Ambioz - Среда, 06.03.2013, 04:37

Ответить

Дата: Среда, 06.03.2013, 04:38 | Сообщение № 5

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

Ранг: Новичок

Сообщений: 20

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

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

можно пример?

Ответить

Дата: Среда, 06.03.2013, 08:46 | Сообщение № 6

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Цитата (Ambioz)

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

VBA не отслеживает событие изменения цвета

Быть или не быть, вот в чем загвоздка!

Ответить

Матраскин

Дата: Среда, 06.03.2013, 09:24 | Сообщение № 7

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

Ранг: Обитатель

Сообщений: 375

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

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

20xx

Цитата (RAN)

VBA не отслеживает событие изменения цвета

[vba]

Код

If Range("B2").Interior.Color = 65535 Then MsgBox "жёлтый"

[/vba]

в интернете опять кто-то не прав

Ответить

Дата: Среда, 06.03.2013, 09:36 | Сообщение № 8

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

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

Сообщений: 4517

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

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

Excel 2003

Nik, а какое событие запустит макрос с этой проверкой?

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Матраскин

Дата: Среда, 06.03.2013, 09:56 | Сообщение № 9

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

Ранг: Обитатель

Сообщений: 375

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

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

20xx

AlexM,
[vba]

Код

Option Explicit
Dim vValue
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Interior.Color = 65535 Then MsgBox "жёлтый"
End Sub

[/vba]
на скорую руку нарыл что-то такое

в интернете опять кто-то не прав

Ответить

Дата: Среда, 06.03.2013, 10:01 | Сообщение № 10

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

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

Сообщений: 4517

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

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

Excel 2003

Nik,

Цитата (RAN)

VBA не отслеживает событие изменения цвета

Изменение цвета не отслеживается Workbook_SheetChange

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Среда, 06.03.2013, 10:02

Ответить

Матраскин

Дата: Среда, 06.03.2013, 10:03 | Сообщение № 11

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

Ранг: Обитатель

Сообщений: 375

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

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

20xx

AlexM, зато отслеживаются изменения в книге. Я ж не настаиваю, просто вроде работает dry

dry

в интернете опять кто-то не прав

Ответить

Дата: Среда, 06.03.2013, 10:14 | Сообщение № 12

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

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

Сообщений: 4517

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

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

Excel 2003

Цитата (Матраскин)

вроде работает

У меня не работает.
Конечно в книге. Код в вставил в модуль "Эта книга"
Событие наступает при изменении значения в ячейке, а не цвета.

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Среда, 06.03.2013, 10:18

Ответить

Дата: Среда, 06.03.2013, 10:22 | Сообщение № 13

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Матраскин, изменение цвета НЕ РАБОТАЕТ.
Работает изменение значения.
Таки разница?

Можно еще и на кнопку топать. biggrin

biggrin

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Среда, 06.03.2013, 10:23

Ответить

Матраскин

Дата: Среда, 06.03.2013, 10:29 | Сообщение № 14

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

Ранг: Обитатель

Сообщений: 375

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

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

20xx

в интернете опять кто-то не прав

Ответить

Дата: Среда, 06.03.2013, 10:32 | Сообщение № 15

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

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

Сообщений: 4517

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

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

Excel 2003

Цитата (AlexM)

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

Сообщение №3

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Дата: Среда, 06.03.2013, 11:50 | Сообщение № 16

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

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

Сообщений: 4517

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

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

Excel 2003

Цитата (Ambioz)

Не совсем то, что надо

Еще вариант.
Срабатывает на событие Workbook_SheetSelectionChange
В примере макроса не сделана проверка на изменение цвета только в столбце В
Как работает меняете цвет в ячейке и переходите с нее на любую другую.
Код в модуле Эта книга
[vba]

Код

Public adr As String, ci1 As Long, ci2 As Long
Private Sub Workbook_Open()
adr = ActiveCell.Address
ci1 = ActiveCell.Interior.ColorIndex
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
ci2 = Range(adr).Interior.ColorIndex
If ci1 <> ci2 Then Range(adr).Offset(0, 5).Interior.ColorIndex = ci2
adr = Target.Address
ci1 = Target.Interior.ColorIndex
End Sub

[/vba]

К сообщению приложен файл: 5175750_new1.xls (35.0 Kb)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Дата: Среда, 06.03.2013, 11:51 | Сообщение № 17

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

Ранг: Новичок

Сообщений: 20

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

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

А можно как-нибудь функцию CellColor от PLEX применить?

Цитата (AlexM)

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

Ячейки ежедневно окрашиваются вручную, это зависит от внешних факторов, т.е. не известно, какие ячейки окрасятся завтра, послезавтра
Подробно:

Сообщение отредактировал Ambioz - Среда, 06.03.2013, 12:05

Ответить

Дата: Среда, 06.03.2013, 12:12 | Сообщение № 18

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

Ранг: Новичок

Сообщений: 20

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

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

Цитата (AlexM)

Еще вариант.
Срабатывает на событие Workbook_SheetSelectionChange
В примере макроса не сделана проверка на изменение цвета только в столбце В
Как работает меняете цвет в ячейке и переходите с нее на любую другую.
Код в модуле Эта книга

Public adr As String, ci1 As Long, ci2 As Long
Private Sub Workbook_Open()
adr = ActiveCell.Address
ci1 = ActiveCell.Interior.ColorIndex
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
ci2 = Range(adr).Interior.ColorIndex
If ci1 <> ci2 Then Range(adr).Offset(0, 5).Interior.ColorIndex = ci2
adr = Target.Address
ci1 = Target.Interior.ColorIndex
End Sub
К сообщению приложен файл: 5175750_new1.xls(35Kb)

Да, что-то похожее. А где прописан столбец В? Как сделать проверку цвета для нескольких столбцов (B, C, D, E) ?

Ответить

Дата: Среда, 06.03.2013, 12:15 | Сообщение № 19

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

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

Сообщений: 4517

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

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

Excel 2003

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

Цитата (Ambioz)

CellColor от PLEX применить

Уверен, что там то же самое.

Цитата (Ambioz)

А где прописан столбец В

Нигде не прописан.
Если изменить цвет в ячейке, то после перехода окрасится ячейка на 5 столбцов правее.

PS. Возможно у вас не было бы вопросов, если пример файла был по правилам.
Обычно, чтобы понять и помочь - достаточно таблицы на 10-20 строк.
- Но при этом старайтесь сохранить структуру, расположение таблиц, имена листов - аналогично оригиналу.
- Если файл содержит конфиденциальную информацию - просто замените Ваши данные на нейтральные.

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Среда, 06.03.2013, 12:17

Ответить

Дата: Среда, 06.03.2013, 12:24 | Сообщение № 20

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

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

Сообщений: 4517

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

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

Excel 2003

Цитата (Ambioz)

закрашивается ячейка зеленым цветом и ставится дата выполнения

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

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Как менять цвет ячейки по цвету другой ячейки

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

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!