Доброго времени суток. Помогите с написанием формулы. Мне необходима формула определения формата ячейки. Есть таблица с большим количеством столбцов, в каждой ячейке есть значения, но в некоторых есть заливка определенного цвета и определенного цвета шрифта (комбинаций немного, всего 8). Мне нужно найти, сколько всего определенных ячеек с заливкой и цветом шрифта, т.е. по типу =ЕСЛИ(И(определение цвета заливки;определение цвета шрифта);1;0)
Доброго времени суток. Помогите с написанием формулы. Мне необходима формула определения формата ячейки. Есть таблица с большим количеством столбцов, в каждой ячейке есть значения, но в некоторых есть заливка определенного цвета и определенного цвета шрифта (комбинаций немного, всего 8). Мне нужно найти, сколько всего определенных ячеек с заливкой и цветом шрифта, т.е. по типу =ЕСЛИ(И(определение цвета заливки;определение цвета шрифта);1;0)Fencer
Function цвет_ячейки(cl) Application.Volatile цвет_ячейки = cl.Interior.Color End Function
Function цвет_шрифта(cl) Application.Volatile цвет_шрифта = cl.Font.Color End Function
Function сумм_цвет(r, cl, ft) Application.Volatile i = 0 For Each cel In r If cel.Interior.Color = cl And cel.Font.Color = ft Then i = i + 1 Next сумм_цвет = i End Function
[/vba]
Две вспомогательные функции - для определения числового эквивалента цветов ячейки и шрифта. Ну и функция суммирования. Обращаю внимание, что жёлтые ячейки с жирными чёрными цифрами с этой точки зрения то же самое, что и жёлтые с обычным чёрным шрифтом - разберитесь, является ли для вас bold ещё одним признаком
Такс, ну собственно код под спойлером
[vba]
Код
Function цвет_ячейки(cl) Application.Volatile цвет_ячейки = cl.Interior.Color End Function
Function цвет_шрифта(cl) Application.Volatile цвет_шрифта = cl.Font.Color End Function
Function сумм_цвет(r, cl, ft) Application.Volatile i = 0 For Each cel In r If cel.Interior.Color = cl And cel.Font.Color = ft Then i = i + 1 Next сумм_цвет = i End Function
[/vba]
Две вспомогательные функции - для определения числового эквивалента цветов ячейки и шрифта. Ну и функция суммирования. Обращаю внимание, что жёлтые ячейки с жирными чёрными цифрами с этой точки зрения то же самое, что и жёлтые с обычным чёрным шрифтом - разберитесь, является ли для вас bold ещё одним признакомbuchlotnik