Многократный поиск значения в таблице

[rbs45]

Добрый день!

Есть такой код:

Private Sub CommandButton1_Click()
Dim i As Integer
i = 0
Do
i = i + 1
With Worksheets(1).Range("Схема!$A$1:$AL$1000")
    c = InputBox(Prompt:="Введите номер")
    Set f = Cells.Find(c, After:=ActiveCell, LookIn:=xlValues)
        f.Activate
        f.Interior.ColorIndex = 8
    
End With
Loop Until c = ""
f.Activate
f.Interior.ColorIndex = 2
End Sub

Скрипт находит значение в ячейке, выделяет и перепрыгивает на ячейку если таково значение есть.
Но есть 2 проблемы:
1) При нахождении ячейки, значение формы поиска обнуляется и стаёт пустым, как сделать что бы это значение (первоначальное) оставалось в поле поиска с целью нахождения следующих значений (ну и дальнейшего перепрыгивания к ним как это делается при первом поиске)?
2) Если в форму поиска ввести значение которого не существует в таблице, возникает cообщение: Run-time Error `91` Object variable or with block variable not set. Как избавиться от этого окна - что бы оно вообще не появлялось или чтобы вывело что такого значения не существует в таблице??

Заранее спасибо

[rbs45]

Предложите свой вариант макроса с данным функционалом пожалуйста если нет возможности исправить этот.

[Hugo121]

Пример поиска " с целью нахождения следующих значений" ищите в хелпе - там всё исчерпывающе описано.
Ну и судя по задаче вместо c = InputBox(Prompt:="Введите номер") нужно использовать текстбокс на форме. Которую Вы не показываете.
Ну а если формы нет - то есть другой вариант. Но файл с многочисленными вариантами лично мне делать лень.

[Djeki]

Попробуйте этот код :

Sub mmm()
With Worksheets(1).Range("A4:T12")
s = InputBox("Что ищем ??", , "s22")
Set c = .Find(s, LookIn:=xlValues)
If Not c Is Nothing Then
  firstAddress = c.Address
  Debug.Print c.Address
  ss = c.Address
  Do
      Set c = .FindNext(c)
      Debug.Print c.Address
If c.Address <> firstAddress Then
 ss = ss & " " & c.Address
End If
  Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
MsgBox ss, vbInformation, "Искали  " & s
End Sub

[rbs45]

Сообщение от Hugo121

Пример поиска " с целью нахождения следующих значений" ищите в хелпе - там всё исчерпывающе описано.
Ну и судя по задаче вместо c = InputBox(Prompt:="Введите номер") нужно использовать текстбокс на форме. Которую Вы не показываете.
Ну а если формы нет - то есть другой вариант. Но файл с многочисленными вариантами лично мне делать лень.

До поиска :


После поиска: (Хотелось бы сделать так что бы первоначальное значение в строке сохранилось с целью дальнейшего поиска)


Запись не найдена: ( Как избавиться от отладки а просто не выполнять никаих действий или же дать ответ,, что такой записи не существует?)


Спасибо за помощь!

[IgorGO]

уважаемый rbs45,

найти в определенном диапазоне опеределенные ячейки - это как два байта отослать!

а вот для чего это Вам? - полнейшая загадка!
что делать с найденным? очистить, окрасить, оставить видимыми только строки с найденными значениями, заменить их на что-то?
допустим, все найдено и собрано в диапазон FindedRange, что дальше?

[rbs45]

Цель упростить поиск для людей которые очень далёкие от поиска в меню. Таблица будет с большим количеством информации, допустим до 10 тыс строк и 5-8 столбцов. По сути получается сделать аналог ctrl+f только в моем случае будет большая кнопочка сверху - ПОИСК
Далее - подсветка и перепрыгивание к найденной ячейки с целью узнать значения в других ячейках этой строки. (это реализовано в первом сообщении, но дальше происходит опустошение поля формы + сразу подсвечиваются все ячейки в таблице з таким значением )
Но Это значение (скажем во втором столбике) может повторяться, а в разных строках может быть разная информация.
Т.е. хочется сделать так чтобы первонаачальное значение поиска сохранялось в окне формы после первого нажатия по кнопочке ОК чтобы не пришлось его вводить заново, а просто нажать ещё раз кнопочку ОК и курсор перепрыгнул к следующему такому же значению, которое находится в этом (втором) столбце только строками ниже и так до конца документа.

[rbs45]

Чтобы не придумывать велосипед.
1) Помогите сделать как в моём примере на скриншотах, только чтобы при нажатии кнопки "ПОИСК БС" вылетало меню стандартного поиска по таблице Excel.

2) по возможности но не обязательно упростить это меню поиска до подобного вида

[IgorGO]

Function FindAllIn(That, Where As Range) As Range
  Dim rg As Range, frg As Range, adr1, cnt
  With Where
    Set rg = Where.Cells(1)
    Set rg = .Find(That, after:=rg, LookIn:=xlValues)
    If Not rg Is Nothing Then
      adr1 = rg.Address:  Set frg = rg
      Do
        Set rg = .FindNext(rg):  cnt = cnt + 1
        If Not rg Is Nothing Then Set frg = Application.Union(frg, rg) Else Exit Do
      Loop While rg.Address <> adr1
    End If
    Set FindAllIn = frg:  MsgBox "Найдено:  " & cnt & " шт."
  End With
End Function


sub Test
  findallin("090019", [k:k]).select
end sub

вместо [k:k] - впишите правильную колонку
выполните Test
это не решает Вашу задачу, зато демострирует принцип)

[rbs45]

Скажите пожалуста можна ли на кнопку в форме повесить стнадарный поиск в таблице , который вызывается гор. кл. Ctrl+f ??