Список всех ячеек,содержащих введенный текст(вывести в t-x)

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Список всех ячеек,содержащих введенный текст(вывести в t-x) (Макросы/Sub)

Zvuk

Дата: Воскресенье, 11.06.2017, 15:52 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Есть 2 TextBoxa. Один для ввода текста,а другой для вывода результата. Выводит только одну ячейку с найденным текстом,а другие не выводит. Подскажите,пожалуйста,как сделать,чтобы выводились все ячейки, в которых находится введенный текст.
Файл прилагается!

Сообщение отредактировал Zvuk - Воскресенье, 11.06.2017, 17:06

Ответить

nilem

Дата: Воскресенье, 11.06.2017, 16:11 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

типа такого
[vba]

Код

Sub Find(Find_Str As String)
Dim i As Integer, r As Range, adr As String
Me.TextBox2.MultiLine = True
With ActiveSheet.Columns(1)
    Set r = .Find(Find_Str, LookIn:=xlValues)
    If Not r Is Nothing Then
        adr = r.Address
        Do
            TextBox2.Text = TextBox2.Text & Chr(10) & "Строка " & _
                            Find_Str & " найдена в ячейке " & r.Address(0, 0)
            Set r = .FindNext(r)
        Loop While r.Address <> adr
    Else
        TextBox2.Text = "Строка " & Find_Str & " не найдена!"
    End If
End With
End Sub

[/vba]

Яндекс.Деньги 4100159601573

Ответить

Zvuk

Дата: Воскресенье, 11.06.2017, 17:03 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

nilem, Спасибо вам большое! Все работает. Я еще немного доработал и сделал так,чтоб выводило в TextBox ячейки,в которых есть введенный текст по всему документу,не только столбец А,но и другие.

Ответить

Список всех ячеек,содержащих введенный текст(вывести в t-x) (Макросы/Sub)

Страница 1 из 1
1