ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Определить неизвестный диапазон
9 сообщений из 9, страница 1 из 1
Определить неизвестный диапазон
    #39444034
QwDl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QwDl
Гость
Добрый день!

Решил начать автоматизацию рабочего отчета. В VBA не шарю(((. Решил все разбить на задачи и делать по-этапно, решая проблемы по мере их поступления.

Задача для Вас Господа простая, для меня превратилась в несколько часов геморроя. И так - каждый раз по заданному условию автофильтра, выдается разное количество строк, которые нужно удалить. Как определить это количество строк?

Предположил что это может быть как то связанно с объектом (?) Rows. Начал читать и только запутался.

В отчаяние, прошу помощи!
...
Рейтинг: 0 / 0
25.04.2017, 13:16
| Ответить | Цитировать | Написать  
Определить неизвестный диапазон
    #39444055
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Не очень понятен вопрос. Нужно получить, какое количество строк отображается текущим фильтром?
...
Рейтинг: 0 / 0
25.04.2017, 13:33
| Ответить | Цитировать | Написать  
Определить неизвестный диапазон
    #39444057
QwDl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QwDl
Гость
Да, нужно определить это количество строк и удалить их.
...
Рейтинг: 0 / 0
25.04.2017, 13:35
| Ответить | Цитировать | Написать  
Определить неизвестный диапазон
    #39444063
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
PS. VBA для этой задачи не нужен. Решается формулой
Код: vbnet
1.
2.
=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(2;[диапазон])
=SUBTOTAL(2;[диапазон])
...
Рейтинг: 0 / 0
25.04.2017, 13:39
| Ответить | Цитировать | Написать  
Определить неизвестный диапазон
    #39444068
QwDl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QwDl
Гость
А хотелось бы все таки в использовать Vba
...
Рейтинг: 0 / 0
25.04.2017, 13:43
| Ответить | Цитировать | Написать  
Определить неизвестный диапазон
    #39444100
QwDl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QwDl
Гость
Вопрос решен с помощью selection.EntireRow.Delete. Всем спасибо
...
Рейтинг: 0 / 0
25.04.2017, 14:08
| Ответить | Цитировать | Написать  
Определить неизвестный диапазон
    #39444112
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
QwDl,

не мешало бы добавить сюда specialCells(xlVisible). И проверку, что хоть что-то отфильтровалось вообще.
Иначе можно удалить не только то, что отфильтровано...
...
Рейтинг: 0 / 0
25.04.2017, 14:21
| Ответить | Цитировать | Написать  
Определить неизвестный диапазон
    #39444126
QwDl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QwDl
Гость
авторThe_PristspecialCells(xlVisible) - понял прочитаю

А вот проверку как организовать, подскажите?
...
Рейтинг: 0 / 0
25.04.2017, 14:46
| Ответить | Цитировать | Написать  
Определить неизвестный диапазон
    #39444167
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
QwDl,

Вам виднее. У нас ни файла, ни критериев фильтрации. Что подсказывать-то?
Образно говоря, если условие будет таким, что будут скрыты все строки диапазона, то SpecialCells вполне может выдать не тот результат, который ожидается, если применен к Selection. Например, заголовок удалите...
...
Рейтинг: 0 / 0
25.04.2017, 16:01
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Определить неизвестный диапазон
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&gotonew=1&tid=2155286]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 143ms
get topic data:
 11ms
get first new msg:
 7ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 322ms
total:  558ms
созд. / загр.: 558ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]