Приветствую уважаемые форумчане! Нужно решить задачу, чтобы в умной таблице, в столбце «Комплект №» был подсчёт уникальных значений в итоговой строке, и подсчёт вёлся только не скрытых фильтром значений. То есть подсчёт уникальных значений менялся динамически, в зависимости от фильтрации.
Приветствую уважаемые форумчане! Нужно решить задачу, чтобы в умной таблице, в столбце «Комплект №» был подсчёт уникальных значений в итоговой строке, и подсчёт вёлся только не скрытых фильтром значений. То есть подсчёт уникальных значений менялся динамически, в зависимости от фильтрации.Yuraonline
Доброе время суток Можно Udf-функцию задействовать [vba]
Код
Public Function UniqueVisibleCount(ByVal TableFieldColumn As Range) Dim pCell As Range, pDict As Object Set pDict = CreateObject("Scripting.Dictionary") For Each pCell In TableFieldColumn If Not pCell.EntireRow.Hidden Then pDict(pCell.Value) = 0 Next UniqueVisibleCount = pDict.Count End Function
[/vba] =UniqueVisibleCount([М2])
Доброе время суток Можно Udf-функцию задействовать [vba]
Код
Public Function UniqueVisibleCount(ByVal TableFieldColumn As Range) Dim pCell As Range, pDict As Object Set pDict = CreateObject("Scripting.Dictionary") For Each pCell In TableFieldColumn If Not pCell.EntireRow.Hidden Then pDict(pCell.Value) = 0 Next UniqueVisibleCount = pDict.Count End Function
Pelena, Добрый день, пытался разобраться в вашей формуле, и не получилось... не поможете вставить в таблицу данную формулу, нужно чтобы в ячейке h6 подсчитывалось число уникальных победителей. Спасибо:) p.s. вопрос снимается, разобрался
Pelena, Добрый день, пытался разобраться в вашей формуле, и не получилось... не поможете вставить в таблицу данную формулу, нужно чтобы в ячейке h6 подсчитывалось число уникальных победителей. Спасибо:) p.s. вопрос снимается, разобралсяxekkuc