Заливка фигур в соответствии с цветом ячеек

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

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

Заливка фигур в соответствии с цветом ячеек (Формулы/Formulas)

AZaytsev

Дата: Четверг, 10.11.2022, 11:17 | Сообщение № 1

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

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

Сообщений: 15

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

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

Excel 2016

Добрый день, коллеги!

Стоит следующая задача: есть список в Exсel с наименованием субъектов РФ, каждому из которых соответствует определенное числовое значение.
При помощи условного форматирования каждая ячейка залита цветом.

Также есть карта РФ, состоящая из полилиний и замкнутых полилиний (одна фигура - один субъект РФ).

Есть ли какая-то возможность научить Еxсel автоматически сопоставлять цвет ячейки и фигуры субъекта РФ?

Заранее спасибо!

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

alexeyzaytsev.ru

Сообщение отредактировал AZaytsev - Четверг, 10.11.2022, 11:17

Ответить

Nic70y

Дата: Четверг, 10.11.2022, 12:07 | Сообщение № 2

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

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

Сообщений: 9006

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

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

Excel 2010

Цитата AZaytsev, 10.11.2022 в 11:17, в сообщении № 1 (

)

Есть ли какая-то возможность научить Еxсel автоматически сопоставлять цвет ячейки и фигуры субъекта РФ?

нужно прописать имя фигуры напротив субъекта, или присвоить фигурам имена.

ЮMoney 41001841029809

Ответить

AZaytsev

Дата: Пятница, 18.11.2022, 22:14 | Сообщение № 3

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

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

Сообщений: 15

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

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

Excel 2016

Цитата Nic70y, 10.11.2022 в 12:07, в сообщении № 2 (

)

нужно прописать имя фигуры напротив субъекта, или присвоить фигурам имена.

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

alexeyzaytsev.ru

Ответить

bmv98rus

Дата: Суббота, 19.11.2022, 07:26 | Сообщение № 4

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

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

Сообщений: 4115

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

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

Excel 2013/2016

Цитата AZaytsev, 18.11.2022 в 22:14, в сообщении № 3 (

)

как научить копировать заливку ячейки в заливку фигуры

а вот сие только макросом. Примерно так
[vba]

Код

On Error Resume Next
For Each Mycell In Sheet1.Range("a1:a83")
Sheet2.Shapes(Mycell).Fill.ForeColor.RGB = Mycell.Offset(, 1).DisplayFormat.Interior.Color
Next
on error goto 0

[/vba]