Поиск всех ячеек, содержащих введенный текст - VBA

Узнай цену своей работы

Формулировка задачи:

Нужен код, который ищет на листе Excel, введенную фамилию (не обязательно только фамилию) и выделает ее (и похожие варианты). Помогите написать

Решение задачи: «Поиск всех ячеек, содержащих введенный текст»

textual
Листинг программы
Private Sub CommandButton1_Click()
 
 
    Dim RezPoiska As Range, firstAddress$
    Static Iskomoe$
    'Iskomoe = InputBox("Ââåäèòå ГёГ*áëîГ* èñêîìîãî ñëîâГ* (ñèìâîëû ïîäñòГ*Г*îâêè *, ?)", , Iskomoe)
    Iskomoe = TextBox1.Text
    Set RezPoiska = Cells.Find(What:=Iskomoe, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
    If RezPoiska Is Nothing Then Exit Sub 'Г*ГҐ Г*Г*éäåГ*Г®
    firstAddress = RezPoiska.Address
    RezPoiska.Select
    Do
        Set RezPoiska = Cells.FindNext(RezPoiska)
        If RezPoiska.Address = firstAddress Then Exit Do 'ГўГҐГ°Г*óëèñü ГЄ ïåðâîé Г*Г*éäåГ*Г*îé
        Union(Selection, RezPoiska).Select
    Loop
 
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.3 из 5
Похожие ответы