Подсчет строк отфильтрованных данных

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Подсчет строк отфильтрованных данных - Мир MS Excel

Старая форма входа

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

Подсчет строк отфильтрованных данных (Макросы/Sub)

Подсчет строк отфильтрованных данных

octopus

Дата: Четверг, 01.09.2016, 09:56 | Сообщение № 1

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

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

Сообщений: 8

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

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

Excel 2007

Добрый день! не могу понять как в VBA узнать сколько строк в отфильтрованных данных.
В моем примере отфильтрованных строк 20, а макрос считает 40.

К сообщению приложен файл: __--.xlsm (17.2 Kb)

Не судите строго новичка.....

Ответить

SLAVICK

Дата: Четверг, 01.09.2016, 10:21 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

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

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

2019

можно так:
[vba]

Код

Sub Скругленныйпрямоугольник1_Щелчок()
LastRow = Sheets("Лист1").Cells(Rows.Count, 2).End(xlUp).Row
[D1] = Range("a2:a" & LastRow).SpecialCells(xlCellTypeVisible).Count
End Sub

[/vba]

К сообщению приложен файл: 9183267.xlsm (15.5 Kb)

Иногда все проще чем кажется с первого взгляда.

Ответить

octopus

Дата: Четверг, 01.09.2016, 10:41 | Сообщение № 3

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

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

Сообщений: 8

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

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

Excel 2007

SLAVICK, огромное спасибо! Очень выручили! hands

Не судите строго новичка.....

Ответить

Подсчет строк отфильтрованных данных (Макросы/Sub)

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