Перенести цвет условного форматирования с Т_1 в Т_2

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенести цвет условного форматирования с Т_1 в Т_2 (Формулы/Formulas)

russcand

Дата: Среда, 24.02.2021, 22:34 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 110

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

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

Excel 2019

Вроде как так не делается , но спрошу...
Т_1 представлена в виде шахматки 10х10. В ней разные значения.
Таб_1 раскрашена простым условным форматированием по принципу красный-зеленый - от меньшего к большему.
Идентичная по структуре Т_2 - тоже шахматка 10х10 , но в ней значения согласно пересечения полей 0-99.
Есть ли возможность создать Т_3 или раскрасить ( отформатировать ) Т_2 , чтобы раскраска повторяла Т_1 , но значения оставались прежние.

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

Ответить

russcand

Дата: Четверг, 25.02.2021, 15:27 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 110

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

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

Excel 2019

Есть ответ у кого?

Ответить

Serge_007

Дата: Четверг, 25.02.2021, 17:08 | Сообщение № 3

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Здравствуйте

Средствами Excel это вряд ли можно сделать

Как вариант - макросом определять цвет заливки ячеек исходной таблицы и результирующую закрашивать этими цветами

ЮMoney:41001419691823 | WMR:126292472390

Ответить

russcand

Дата: Четверг, 25.02.2021, 17:33 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 110

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

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

Excel 2019

Сможете сделать ( плыз )?
Желательно ( лист_3 , файл в новом вложении под этим сообщением ) координаты полей не изменять.
Я хочу просто тупо выставить ту же формулу макроса , только на своем листе с такими же координатами.
Иначе потом , если координаты нарушатся , опять придется что-то там менять....
Спасибо заранее.

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

Ответить

Nic70y

Дата: Пятница, 26.02.2021, 08:18 | Сообщение № 5

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

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

Сообщений: 8761

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

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

Excel 2010

как-то так, наверное
[vba]

Код

Sub u_731()
    Application.ScreenUpdating = False
    For Each u In Range("f4:o13")
        u_1 = u.DisplayFormat.Interior.Color
        'u_2 = u.DisplayFormat.Font.Color
        u.Offset(12, 0).Interior.Color = u_1
        'u.Offset(12, 0).Font.Color = u_2
    Next
    Application.ScreenUpdating = True
End Sub

[/vba]если нужен цвет шрифта снять каменты