Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчет строк отфильтрованных данных (Макросы/Sub)
Подсчет строк отфильтрованных данных
octopus Дата: Четверг, 01.09.2016, 09:56 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый день! не могу понять как в VBA узнать сколько строк в отфильтрованных данных.
В моем примере отфильтрованных строк 20, а макрос считает 40.
К сообщению приложен файл: __--.xlsm(17Kb)


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

Автор - octopus
Дата добавления - 01.09.2016 в 09:56
SLAVICK Дата: Четверг, 01.09.2016, 10:21 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1844
Репутация: 614 ±
Замечаний: 0% ±

2007,2010,2013,2016
можно так:
[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(15Kb)


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

Автор - SLAVICK
Дата добавления - 01.09.2016 в 10:21
octopus Дата: Четверг, 01.09.2016, 10:41 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

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


Не судите строго новичка.....
 
Ответить
СообщениеSLAVICK, огромное спасибо! Очень выручили! hands

Автор - octopus
Дата добавления - 01.09.2016 в 10:41
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчет строк отфильтрованных данных (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!