скрывание строк, ячейки которой не содержат нужного значения

[mihaz]

таково задание.

есть строки, такого типа

пример:
А 1 4 2
Б 1 5 2
В 2 3 5
Г 3 2 3
Д 5 1 5

нужно скрыть строки, в которых нету 1, т.е. получится чтото вроде

А 1 4 2
Б 1 5 2
Д 5 1 5

есть соображения?
фильтр не подходит
програмка такого типа, есть кнопка, которая открывает форму, в которую ввожу цифру "1", и остаются только те строки, в которых есть "1" в любом месте
на 1 курсе проходил вижуалбэйсик, но за ненадобностью, позабыл уже все

[0mega]

Я возьму на себя смелость дать координаты Вашим записям

_______A________B_______C
1.....А 1 4 2
2.....Б 1 5 2
3.....В 2 3 5
4.....Г 3 2 3
5.....Д 5 1 5
6

В ячейке В1 пишем: =ЕСЛИ(ЕОШ(НАЙТИ("1";A1));"";A1)
Вы получите нужную выборку, только с пробелами.
(Между Б152 и Д515 будут 2-е пустые строчки
Как убрать пробелы я не знаю )

[Teslenko_EA]

Здравствуйте mihaz.
решить Вашу задачу с помощью VBA, поможет подобный код:

Sub Command_Click()
    showSelectValue Val(Поле)
End Sub
Sub showSelectValue(q)
Dim i%, j%, vArr(), lastRow&, b As Boolean
With ActiveSheet.UsedRange
    lastRow = .Row - 1 + .Rows.Count
End If
vArr = Range(Cells(1, 1), Cells(lastRow, 4)).Value
For i = UBound(vArr) To 1 Step -1
    b = True
    For j = 2 To UBound(vArr, 2)
        If Cells(i, j) = q Then
            b = 0
            Exit For
        End If
    Next
    Rows(i).Hidden = b
    'Rows(i).Hidden = 0
Next
End Sub

Евгений.
P.S. форум не "машина ответов", его участники люди, и выкладывая вопрос не забывайте обращаться к тем кому Вы его адресуете, не знаете как - можно просто поздоровавшись.

[motorway]

Евгений.
P.S. форум не "машина ответов", его участники люди, и выкладывая вопрос не забывайте обращаться к тем кому Вы его адресуете, не знаете как - можно просто поздоровавшись.

В принципе это так, но тогда база форума раздуется, если в каждом сообщении добавлять приветствие. Но кому как нравится, в общем

[Teslenko_EA]

motorway, "база форума раздуется" - это о Сервере - "машине", не стоит жертвовать уважением к собеседнику ради "железки", ведь общаемся мы не с ней а только с её помощью.
Я думаю и Вы не против уважительного обращения, а слова "..кому как нравится.." - наверное о чём то другом.
Евгений.

[mihaz]

приношу извинения за невежливость=)
Здравствуйте всем!
спасибо за советы, попробую прямо сейчас, о результатах и проблемах сообщу обязательно...

[mihaz]

и насчет координат, скроее это выглядит так
...A B C D E
1 А 1 4 2
2 Б 1 5 2
3 В 2 3 5
4 Г 3 2 3
5 Д 5 1 5
6

[mihaz]

Евгений, можно поподробнее насчет использвоания примера кода?
куда вписывать мою "1", и к чему привязать начало работы программы?

есть смысл создать форму, где "q" нужное мне значение, и кнопочка, типа Старт, которая запустит прогрмму?

проблемы пишет что End If without if
и next без for

[Teslenko_EA]

да действительно очепятка, должно быть так:

...
With ActiveSheet.UsedRange
    lastRow = .Row - 1 + .Rows.Count
End With
vArr = Range(Cells(1, 1), Cells(lastRow, 5)).Value ' E соответствует пятой колонке
For i = UBound(vArr) To 1 Step -1
    b = True
    For j = 1 To UBound(vArr, 2) 'для такой таблицы начинайте проверку с первой колонки
...

"..открывает форму, в которую ввожу цифру.." - в форму ничего ввести нельзя, процедура

Sub Command_Click()
    showSelectValue Val(Поле)
End Sub

подразумевает обработку события Click (Нажатие кнопки) которое передает в процедуру showSelectValue значение поля (Поле) в которое "ввожу цифру".
Без формы showSelectValue можно вызвать так:
showSelectValue 1
или так
showSelectValue Val(Cells(1, 6))
Евгений.

[EducatedFool]

Можно чуточку укоротить макрос:

Sub ОставитьТолькоСтрокиСЕдиницами()
    Dim ro As Range: Application.ScreenUpdating = False
    For Each ro In ActiveSheet.UsedRange.EntireRow
        ro.Hidden = ro.Find("1", , , xlWhole) Is Nothing
    Next ro
End Sub

Пример в файле: