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

Вход

Регистрация

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

 

= Мир MS Excel/Выбор по фильтру - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выбор по фильтру (Форматирование/Formattings)
Выбор по фильтру
new111 Дата: Четверг, 18.06.2015, 08:25 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
У меня есть два файла (писала не я, сижу разбираюсь). На основании таблицы формируется текстовый документ.
Я добавила фильтр по услугам, чтоб в текстовый документ попадали только выбранные услуги. А все равно формируется по всем строкам.
Может кто подскажет как сделать формирование по фильтру?
К сообщению приложен файл: __.xlsm (57.8 Kb) · 2947506.dot (80.5 Kb)
 
Ответить
СообщениеУ меня есть два файла (писала не я, сижу разбираюсь). На основании таблицы формируется текстовый документ.
Я добавила фильтр по услугам, чтоб в текстовый документ попадали только выбранные услуги. А все равно формируется по всем строкам.
Может кто подскажет как сделать формирование по фильтру?
Автор - new111
Дата добавления - 18.06.2015 в 08:25
SLAVICK Дата: Четверг, 18.06.2015, 10:04 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Нужно добавить проверку видимости строки. <_<
Если я правильно понял, то после
[vba]
Код
With row
[/vba]
добавьте:
[vba]
Код
If row.EntireRow.Hidden Then GoTo 100 ' ПРОВЕРКА ВИДИМОСТИ СТРОКИ
[/vba]
И поставьте метку перед next i:
[vba]
Код
                DoEvents
100 ' МЕТКА КУДА ПЕРЕЙТИ
             Next i
[/vba]
К сообщению приложен файл: 6938961.xlsm (55.7 Kb)

Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеНужно добавить проверку видимости строки. <_<
Если я правильно понял, то после
[vba]
Код
With row
[/vba]
добавьте:
[vba]
Код
If row.EntireRow.Hidden Then GoTo 100 ' ПРОВЕРКА ВИДИМОСТИ СТРОКИ
[/vba]
И поставьте метку перед next i:
[vba]
Код
                DoEvents
100 ' МЕТКА КУДА ПЕРЕЙТИ
             Next i
[/vba]
Автор - SLAVICK
Дата добавления - 18.06.2015 в 10:04
new111 Дата: Четверг, 18.06.2015, 10:22 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата SLAVICK, 18.06.2015 в 10:04, в сообщении № 2
DoEvents
100 ' МЕТКА КУДА ПЕРЕЙТИ
            Next i

на Next i ругается
 
Ответить
Сообщение
Цитата SLAVICK, 18.06.2015 в 10:04, в сообщении № 2
DoEvents
100 ' МЕТКА КУДА ПЕРЕЙТИ
            Next i

на Next i ругается
Автор - new111
Дата добавления - 18.06.2015 в 10:22
Manyasha Дата: Четверг, 18.06.2015, 10:31 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 902 ±
Замечаний: 0% ±

Excel 2010, 2016
new111, поставьте метку не перед переходом к следующей i, а перед переходом к следующей строке:
[vba]
Код
100 ' МЕТКА КУДА ПЕРЕЙТИ
     Next row
[/vba](перед next i уберите).
Работу макроса не проверяла.

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеnew111, поставьте метку не перед переходом к следующей i, а перед переходом к следующей строке:
[vba]
Код
100 ' МЕТКА КУДА ПЕРЕЙТИ
     Next row
[/vba](перед next i уберите).
Работу макроса не проверяла.
Автор - Manyasha
Дата добавления - 18.06.2015 в 10:31
new111 Дата: Четверг, 18.06.2015, 10:33 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата SLAVICK, 18.06.2015 в 10:04, в сообщении № 2
If row.EntireRow.Hidden Then GoTo 100 ' ПРОВЕРКА ВИДИМОСТИ СТРОКИ

Спасибо, все разобралась
 
Ответить
Сообщение
Цитата SLAVICK, 18.06.2015 в 10:04, в сообщении № 2
If row.EntireRow.Hidden Then GoTo 100 ' ПРОВЕРКА ВИДИМОСТИ СТРОКИ

Спасибо, все разобралась
Автор - new111
Дата добавления - 18.06.2015 в 10:33
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выбор по фильтру (Форматирование/Formattings)
  • Страница 1 из 1
  • 1
Поиск:

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