Поиск всех ячеек, содержащих введенный текст - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д