Добрый вечер! Подскажите пожалуйста.
Есть пользовательская формула. Она считает кол-во закрашенных ячеек при одном условии.
Мне нужно посчитать кол-во закраш. ячеек в диапазоне, имеются два столбика ОТ и ДО, формула считает только при одном условии , например: ОТ
НУЖНО добавить второе условие, чтоб считало еще и ДО
Есть пользовательская формула. Она считает кол-во закрашенных ячеек при одном условии.
Мне нужно посчитать кол-во закраш. ячеек в диапазоне, имеются два столбика ОТ и ДО, формула считает только при одном условии , например: ОТ
НУЖНО добавить второе условие, чтоб считало еще и ДО
| Код |
|---|
Option Explicit 'Подсчет количества ячеек по цвету заливки Function СЧЕТЯЧЦВЕТ(Diapazon As Range, Kriterij As Range, Kriterij2 As Range) As Variant Dim cc As Range СЧЕТЯЧЦВЕТ = 0 If Kriterij.Count = 1 And Kriterij2.Count = 1 Then For Each cc In Diapazon If cc.Interior.ColorIndex = Kriterij.Interior.ColorIndex And _ cc.EntireRow.Hidden = False And _ cc.Value2 = Kriterij2.Value2 Then СЧЕТЯЧЦВЕТ = СЧЕТЯЧЦВЕТ + 1 End If Next Else СЧЕТЯЧЦВЕТ = "#N/A" End If End Function |
Изменено: - 20.09.2017 20:50:46
