У меня появилась такая задача - подсчитать количество видимых ячеек (отфильтрованных), содержащих числа <= 0. Нашел пример, как подсчитать количество видимых ячеек в диапазоне, но не знаю, как этот код адаптировать к моей задаче:
Код
Function dhCountVisibleCells(rgRange As Range)Dim lngCount As Long
Dim cell As Range
' Проходим по всему диапазону и подсчитываем непустые видимые ячейки
For Each cell In rgRange
' Проверка, есть ли данные в ячейке
If Not IsEmpty(cell) Then
' Проверка, видима ли ячейка
If Not cell.EntireRow.Hidden And Not cell.EntireColumn.Hidden Then
' Еще одна видимая ячейка
lngCount = lngCount + 1
End If
End If
Next cell
dhCountVisibleCells = lngCount
End Function
Может быть можно решить эту задачу с использованием стандартных функций Экселя? Буду благодарен в любом случае. Спасибо
Вас понял. Эксель 2013. Пример прикрепил. В примере в 3-х столбцах отфильтрованы ячейки, не содержащие ошибки. Соответственно, нужно посчитать сколько в каждом столбце ячеек с числами <=0