Страницы: 1
RSS
Отображение строк по значению в столбце с помощью макроса.
 
Доброго времени суток. Уважаемые, помогите решить проблему.
Есть таблица из 20 000 строк и 6 столбцов (A,B,C,D,E,F). В таблице в столбце F есть разные цифры. В каких то ячейках есть цифра "1".
Как прописать макрос, чтобы строки, в которых есть цифра 1 в столбце F отображались, а остальные скрывались? Помогите, пожалуйста!!!
 
Realrett, https://www.planetaexcel.ru/techniques/2/197/
Не бойтесь совершенства. Вам его не достичь.
 
Mershik, хотят чтобы отбор запускался по кропке и выполнялся макросом
 
Realrett, там макрос выполняется по кнопке, кнопку 1 нажимаете и все.

вы попробовали данный метод ?или запиши макрос самостоятельно. А так вам никто не поможет, так как вы нарушаете правила форума в части файла примера.
Изменено: Mershik - 20.12.2018 15:52:01
Не бойтесь совершенства. Вам его не достичь.
 
Realrett, не видя файла с примером можно предположить что-то подобное:
Код
Sub qqq()
    Dim i As Long
For i = 1 To Cells(Rows.Count, 6).End(xlUp).Row
  If Cells(i, 6) <> 1 Then
     Rows(i).Hidden = True
  End If
Next i
End Sub
А уж на кнопку сами его садите  :)
Скорее всего, дополнительно понадобится добавить отключить обновление экрана, пересчет формул или еще что-то. Покажите файл - что в нем и как?
 
_Igor_61, Спасибо Вам большое. Код работает, правда очень медленно. Таблица большая.
 
Код от _Igor_61 ускоренный:
Скрытый текст

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
JayBhagavan, Спасибо Вам тоже. Работает быстрее, но всё равно медленно. Думаю здесь дело не в коде, а в объёме таблицы. Я прописывал отключение обновления экрана, пересчёта, и т.д. Всё равно медленно.
 
...
Код
Sub www()
With Columns(6)
.ColumnDifferences(.Find(1, , , 1)).EntireRow.Hidden = True
End With
End Sub
 
k61, спасибо. Быстро работает)
Страницы: 1
Наверх