ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проблема при удалении строк по автофильтру
7 сообщений из 7, страница 1 из 1
Проблема при удалении строк по автофильтру
    #34773404
babys
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
babys
Участник
Из макроса:
Код: plaintext
1.
2.
3.
4.
5.
    ActiveSheet.Range("$A$1:$K$123").AutoFilter Field:= 11 , Criteria1:="0"
    Rows("2:123").Select
    Selection.Delete Shift:=xlUp
    ActiveSheet.Range("$A$1:$K$6").AutoFilter Field:= 11 
    Range("A2").Select

леплю код для vba
Код: plaintext
1.
2.
3.
4.
5.
6.
  ActiveSheet.Range(Cells( 1 ,  1 ), Cells(rowEnd, colEnd)).AutoFilter Field:= 11 , Criteria1:="0"
  Rows("2:" & rowEnd).Select
  Selection.Delete Shift:=xlUp
  rowEnd = Row + ActiveWorkbook.Worksheets( 1 ).UsedRange.Rows.Count -  1 
  ActiveSheet.Range(Cells( 1 ,  1 ), Cells(rowEnd, colEnd)).AutoFilter Field:= 11 
  Range("A2").Select

удаляет все строки :( Такое впечатление, что Select-у пофиг установленный фильтр.

Таблица формируется через vba для обоих случаев.
...
Рейтинг: 0 / 0
04.09.2007, 10:00:51
| Ответить | Цитировать | Написать  
Проблема при удалении строк по автофильтру
    #34773420
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
babysТакое впечатление, что Select-у пофиг установленный фильтр.

так и есть
Код: plaintext
1.
2.
3.
4.
5.
    ActiveSheet.Range(Cells( 1 ,  1 ), Cells(rowEnd, colEnd)).AutoFilter Field:= 11 , Criteria1:="0"
    Rows("2:" & rowEnd).SpecialCells(xlCellTypeVisible).Select
    Selection.Delete Shift:=xlUp
    rowEnd = Row + ActiveWorkbook.Worksheets( 1 ).UsedRange.Rows.Count -  1 
    ActiveSheet.Range(Cells( 1 ,  1 ), Cells(rowEnd, colEnd)).AutoFilter Field:= 11 
    Range("A2").Select
...
Рейтинг: 0 / 0
04.09.2007, 10:05:46
| Ответить | Цитировать | Написать  
Проблема при удалении строк по автофильтру
    #34773477
babys
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
babys
Участник
Огромнейшее спасибочки

Хотя вот такой код работает ;)
Код: plaintext
1.
2.
3.
4.
  Cells.Select
  Selection.AutoFilter
  ActiveSheet.Range(Cells( 1 ,  1 ), Cells(rowEnd, colEnd)).AutoFilter Field:= 4 , Criteria1:="="
  Selection.Delete Shift:=xlUp
...
Рейтинг: 0 / 0
04.09.2007, 10:25:43
| Ответить | Цитировать | Написать  
Проблема при удалении строк по автофильтру
    #34773671
babys
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
babys
Участник
А вот еще проблема:
Код: plaintext
1.
  ActiveSheet.Range(Cells( 1 ,  1 ), Cells(tRowEnd, tColEnd)).AutoFilter Field:= 4 , Criteria1:="#Н/Д"

При выполнении в фильтре отметка появляется, но строки прячет все.
А при ручном выборе все нормально.

В чем косяк.
...
Рейтинг: 0 / 0
04.09.2007, 11:14:47
| Ответить | Цитировать | Написать  
Проблема при удалении строк по автофильтру
    #34773736
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Код: plaintext
Criteria1:="#N/A"
...
Рейтинг: 0 / 0
04.09.2007, 11:30:12
| Ответить | Цитировать | Написать  
Проблема при удалении строк по автофильтру
    #34774170
babys
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
babys
Участник
Огромнейшее спасибочки

А это из опыта или где прочесть мона ?
...
Рейтинг: 0 / 0
04.09.2007, 12:54:15
| Ответить | Цитировать | Написать  
Проблема при удалении строк по автофильтру
    #34774376
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
babysОгромнейшее спасибочки

А это из опыта или где прочесть мона ?
из опыта
...
Рейтинг: 0 / 0
04.09.2007, 13:41:25
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проблема при удалении строк по автофильтру
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34773671&tid=2182338]:
 0ms
get settings:
 5ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 53ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 212ms
total:  353ms
созд. / загр.: 353ms
x
x
Закрыть


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