Формула в зависимости от форматирования ячейки

03.03.2014, 21:07. **Показов** 6534. **Ответов** 3

Author24 — интернет-сервис помощи студентам

Доброго время суток!
Подскажите, пожалуйста, есть задачка.
Формула в ячейке должна изменяться в зависимости от цвета заливки. Например, есть ячейка А1 значение допустим 1. Ячейка В1, если ее покрасить в зеленый цвет, то в ней должна быть формула В1=А1*0.9. Если ее покрасить в желтый цвет, то в ней формула должна быть - В1=А1*0.5.
Заранее спасибо!

@Казанский · 03.03.2014, 22:00

Можно использовать простейшую пользовательскую функцию, которая вернет цвет ячейки:

Visual Basic

Function CellColor(r As Range)
Application.Volatile
CellColor = r(1).Interior.Color
End Function

С помощью нее можете составить таблицу цвет - значение, и использовать значения в формулах.
Например, в моем 2007 стандартный зеленый = 5287936, стандартный желтый = 65535.
Формула получается

Код

=A1*ЕСЛИ(cellcolor(B1)=5287936;0,9;ЕСЛИ(cellcolor(B1)=65535;0,5;1))

Только учтите: автоматического пересчета при изменении цвета не происходит, надо нажимать F9.
И вообще, этот метод неправильный: лучше выбирать число-множитель, например из выпадающего списка, и раскрашивать ячейки условным форматированием.

@Alex77755 · 03.03.2014, 22:53

если ее покрасить в зеленый цвет

Не по теме:

Прислушайтесь к Казанский
Это, в принципе, не правильный подход!
Забудьте уже разукраски из Мурзилки!
Кроме того, что в разных версиях офиса разные палитры, даже в разных подверсиях встречаются разные палитры. И кроме того никто не мешает любому юзверю изменить политру на толькоемуприятные цвета и тогда вся ваша автоматика будет не у дел! Сам сталкивался несколько раз.
Ексел табличный редактор! цифра рулит!

@com4fun · 07.09.2018, 14:14

Добавлено через 1 минуту

Сообщение от Казанский

Function CellColor(r As Range)
Application.Volatile
CellColor = r(1).Interior.Color
End Function

Спасибо!

Leandr
		1
	Формула в зависимости от форматирования ячейки 03.03.2014, 21:07. Показов 6534. Ответов 3 Метки нет (Все метки) Доброго время суток! Подскажите, пожалуйста, есть задачка. Формула в ячейке должна изменяться в зависимости от цвета заливки. Например, есть ячейка А1 значение допустим 1. Ячейка В1, если ее покрасить в зеленый цвет, то в ней должна быть формула В1=А10.9. Если ее покрасить в желтый цвет, то в ней формула должна быть - В1=А10.5. Заранее спасибо!

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	03.03.2014, 22:53	3
	если ее покрасить в зеленый цвет Не по теме: Прислушайтесь к Казанский Это, в принципе, не правильный подход! Забудьте уже разукраски из Мурзилки! Кроме того, что в разных версиях офиса разные палитры, даже в разных подверсиях встречаются разные палитры. И кроме того никто не мешает любому юзверю изменить политру на толькоемуприятные цвета и тогда вся ваша автоматика будет не у дел! Сам сталкивался несколько раз. Ексел табличный редактор! цифра рулит! 0

@com4fun 0 / 0 / 0 Регистрация: 07.09.2018 Сообщений: 1
	07.09.2018, 14:14	4
	Добавлено через 1 минуту Сообщение от Казанский Function CellColor(r As Range) Application.Volatile CellColor = r(1).Interior.Color End Function Спасибо! 0