Вроде как так не делается , но спрошу... Т_1 представлена в виде шахматки 10х10. В ней разные значения. Таб_1 раскрашена простым условным форматированием по принципу красный-зеленый - от меньшего к большему. Идентичная по структуре Т_2 - тоже шахматка 10х10 , но в ней значения согласно пересечения полей 0-99. Есть ли возможность создать Т_3 или раскрасить ( отформатировать ) Т_2 , чтобы раскраска повторяла Т_1 , но значения оставались прежние.
Вроде как так не делается , но спрошу... Т_1 представлена в виде шахматки 10х10. В ней разные значения. Таб_1 раскрашена простым условным форматированием по принципу красный-зеленый - от меньшего к большему. Идентичная по структуре Т_2 - тоже шахматка 10х10 , но в ней значения согласно пересечения полей 0-99. Есть ли возможность создать Т_3 или раскрасить ( отформатировать ) Т_2 , чтобы раскраска повторяла Т_1 , но значения оставались прежние.russcand
Сможете сделать ( плыз )? Желательно ( лист_3 , файл в новом вложении под этим сообщением ) координаты полей не изменять. Я хочу просто тупо выставить ту же формулу макроса , только на своем листе с такими же координатами. Иначе потом , если координаты нарушатся , опять придется что-то там менять.... Спасибо заранее.
Сможете сделать ( плыз )? Желательно ( лист_3 , файл в новом вложении под этим сообщением ) координаты полей не изменять. Я хочу просто тупо выставить ту же формулу макроса , только на своем листе с такими же координатами. Иначе потом , если координаты нарушатся , опять придется что-то там менять.... Спасибо заранее.russcand
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]если нужен цвет шрифта снять каменты
как-то так, наверное [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