Подсчёт уникальных значений в умной таблице

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Yuraonline

Дата: Суббота, 01.02.2020, 16:07 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 0% ±

Приветствую уважаемые форумчане! Нужно решить задачу, чтобы в умной таблице, в столбце «Комплект №» был подсчёт уникальных значений в итоговой строке, и подсчёт вёлся только не скрытых фильтром значений. То есть подсчёт уникальных значений менялся динамически, в зависимости от фильтрации.

К сообщению приложен файл: 0406576.xlsx (20.0 Kb)

Ответить

Pelena

Дата: Суббота, 01.02.2020, 17:13 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19516

Репутация: 4632 ±

Замечаний: ±

Excel 365 & Mac Excel

Подсчёт - это сумма или количество?
Сколько должно получиться в примере?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

parovoznik

Дата: Суббота, 01.02.2020, 22:20 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 449

Репутация: 26 ±

Замечаний: 0% ±

Excel 2013

Yuraonline, может через сводную

К сообщению приложен файл: 3225065.xlsx (25.8 Kb)

Ответить

anvg

Дата: Суббота, 01.02.2020, 23:02 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 581

Репутация: 271 ±

Замечаний: 0% ±

2016, 365

Доброе время суток
Можно 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])

Ответить

Yuraonline

Дата: Воскресенье, 02.02.2020, 07:41 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 0% ±

Цитата parovoznik, 01.02.2020 в 22:20, в сообщении № 4 ()

может через сводную

Через сводную неудобно работать с этими данными.

Ответить

Yuraonline

Дата: Воскресенье, 02.02.2020, 07:45 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 0% ±

Цитата anvg, 01.02.2020 в 23:02, в сообщении № 5 ()

Доброе время суток
Можно Udf-функцию задействовать

А как это реализовать практически? Моих знаний Excel хватает только, на несложные формулы.

Сообщение отредактировал Yuraonline - Воскресенье, 02.02.2020, 07:46

Ответить

anvg

Дата: Воскресенье, 02.02.2020, 09:54 | Сообщение № 7

Группа: Друзья

Ранг: Ветеран

Сообщений: 581

Репутация: 271 ±

Замечаний: 0% ±

2016, 365

Цитата Yuraonline, 02.02.2020 в 07:45, в сообщении № 7 ()

А как это реализовать практически?

Изучить, например Создание макросов и пользовательских функций на VBA. И на этом форуме тоже есть материалы. А уж сколько их в интернете и книгах

Ответить

Pelena

Дата: Воскресенье, 02.02.2020, 11:41 | Сообщение № 8

Группа: Админы

Ранг: Местный житель

Сообщений: 19516

Репутация: 4632 ±

Замечаний: ±

Excel 365 & Mac Excel

Формулой тоже можно
[vba]

Код

=СУММПРОИЗВ(ПРОМЕЖУТОЧНЫЕ.ИТОГИ(3;СМЕЩ(Таблица1[[#Заголовки];[Комплект №]];СТРОКА([Комплект №])-1;0))*(ПОИСКПОЗ([Грит пада]&[Комплект №];[Грит пада]&[Комплект №];0)=СТРОКА([Комплект №])-1))

[/vba]

К сообщению приложен файл: 8948811.xlsx (21.2 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

xekkuc

Дата: Вторник, 02.02.2021, 12:28 | Сообщение № 9

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Pelena, Добрый день, пытался разобраться в вашей формуле, и не получилось... не поможете вставить в таблицу данную формулу, нужно чтобы в ячейке h6 подсчитывалось число уникальных победителей.
Спасибо:)
p.s. вопрос снимается, разобрался

К сообщению приложен файл: ____2021_.xlsx (12.7 Kb)

Сообщение отредактировал xekkuc - Вторник, 02.02.2021, 12:35

Ответить

Подсчёт уникальных значений в умной таблице

Страница 1 из 1
1