Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/зависимость цвета ячеек от цвета других ячеек - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » зависимость цвета ячеек от цвета других ячеек (Макросы/Sub)
зависимость цвета ячеек от цвета других ячеек
АлександрРВТ Дата: Воскресенье, 05.08.2018, 21:27 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте, нужна помощь.

есть макрос;

[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("C1:C10").Interior.Color = Range("A1:A10").Interior.Color
End Sub
[/vba]

Как сделать зависимость C2 от A2, C3 от A3, C4 от A4 и т.д.

Заранее благодарен.
 
Ответить
СообщениеЗдравствуйте, нужна помощь.

есть макрос;

[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("C1:C10").Interior.Color = Range("A1:A10").Interior.Color
End Sub
[/vba]

Как сделать зависимость C2 от A2, C3 от A3, C4 от A4 и т.д.

Заранее благодарен.
Автор - АлександрРВТ
Дата добавления - 05.08.2018 в 21:27
RAN Дата: Воскресенье, 05.08.2018, 21:30 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Если цвет разный, с ячейками нужно работать поштучно
[vba]
Код
Range("C2").Interior.Color = Range("A2").Interior.Color
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеЕсли цвет разный, с ячейками нужно работать поштучно
[vba]
Код
Range("C2").Interior.Color = Range("A2").Interior.Color
[/vba]
Автор - RAN
Дата добавления - 05.08.2018 в 21:30
АлександрРВТ Дата: Воскресенье, 05.08.2018, 21:33 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
RAN, цвет будет один
 
Ответить
СообщениеRAN, цвет будет один
Автор - АлександрРВТ
Дата добавления - 05.08.2018 в 21:33
Karataev Дата: Воскресенье, 05.08.2018, 21:59 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация: 533 ±
Замечаний: 0% ±

Excel
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells(Target.Row, "C").Interior.Color = Cells(Target.Row, "A").Interior.Color
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells(Target.Row, "C").Interior.Color = Cells(Target.Row, "A").Interior.Color
End Sub
[/vba]
Автор - Karataev
Дата добавления - 05.08.2018 в 21:59
RAN Дата: Воскресенье, 05.08.2018, 22:05 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Есть у меня сильное подозрение, что вы, по какой-то причине, считаете, что цвет "красный", и цвет "нет цвета" - один и тот же цвет.

PS Могу попробовать пояснить
в левой части
[vba]
Код
Range("C1:C10").Interior.Color
[/vba]
указан диапазон, который нужно окрасить. Тут все так.
В правой части
[vba]
Код
= Range("A1:A10").Interior.Color
[/vba]
мы считываем цвет , для последующего применения.
Так вот, здесь цвет определяется для всего диапазона по цвету первой ячейки, и не важно, сколько у вас в диапазоне попугаев.
В итоге, диапазон "С1:С10" получит цвет ячейки "А1".

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

Сообщение отредактировал RAN - Воскресенье, 05.08.2018, 22:24
 
Ответить
СообщениеЕсть у меня сильное подозрение, что вы, по какой-то причине, считаете, что цвет "красный", и цвет "нет цвета" - один и тот же цвет.

PS Могу попробовать пояснить
в левой части
[vba]
Код
Range("C1:C10").Interior.Color
[/vba]
указан диапазон, который нужно окрасить. Тут все так.
В правой части
[vba]
Код
= Range("A1:A10").Interior.Color
[/vba]
мы считываем цвет , для последующего применения.
Так вот, здесь цвет определяется для всего диапазона по цвету первой ячейки, и не важно, сколько у вас в диапазоне попугаев.
В итоге, диапазон "С1:С10" получит цвет ячейки "А1".
Автор - RAN
Дата добавления - 05.08.2018 в 22:05
АлександрРВТ Дата: Воскресенье, 05.08.2018, 22:49 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
да, верно. Изначально не тот макрос приложил. Оригинальный выглядел так:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("C1").Interior.Color = Range("A1").Interior.Color
End Sub

а макрос первоначально приложенный с "A1:A10" и "C1:C10" это мои потуги подогнать исходный макос под мои задачи :)

то, что предложено "Karataev" действует. Спасибо!

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

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(Target.Row, "C").Interior.Color = Cells(Target.Row, "A").Interior.Color
End Sub
 
Ответить
Сообщениеда, верно. Изначально не тот макрос приложил. Оригинальный выглядел так:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("C1").Interior.Color = Range("A1").Interior.Color
End Sub

а макрос первоначально приложенный с "A1:A10" и "C1:C10" это мои потуги подогнать исходный макос под мои задачи :)

то, что предложено "Karataev" действует. Спасибо!

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

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(Target.Row, "C").Interior.Color = Cells(Target.Row, "A").Interior.Color
End Sub
Автор - АлександрРВТ
Дата добавления - 05.08.2018 в 22:49
RAN Дата: Воскресенье, 05.08.2018, 23:01 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

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

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеНикак. УФ для того и сделано, чтобы заменять исходный цвет, на цвет при условии. Или вы не про УФ?
Автор - RAN
Дата добавления - 05.08.2018 в 23:01
АлександрРВТ Дата: Воскресенье, 05.08.2018, 23:16 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
приложил примерную задачу и макрос во вкладке "Лист1"

так же нужно, что бы цвет менялся автоматически. Даже без изначально заданный условий изменение цвета не происходит без выделения ячейки А или С.
К сообщению приложен файл: _5.08.18_..xlsm (14.2 Kb)
 
Ответить
Сообщениеприложил примерную задачу и макрос во вкладке "Лист1"

так же нужно, что бы цвет менялся автоматически. Даже без изначально заданный условий изменение цвета не происходит без выделения ячейки А или С.
Автор - АлександрРВТ
Дата добавления - 05.08.2018 в 23:16
АлександрРВТ Дата: Воскресенье, 05.08.2018, 23:17 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
RAN, да, я про УФ
 
Ответить
СообщениеRAN, да, я про УФ
Автор - АлександрРВТ
Дата добавления - 05.08.2018 в 23:17
Мир MS Excel » Вопросы и решения » Вопросы по VBA » зависимость цвета ячеек от цвета других ячеек (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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