Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Список всех ячеек,содержащих введенный текст(вывести в t-x) (Макросы/Sub)
Список всех ячеек,содержащих введенный текст(вывести в t-x)
Zvuk Дата: Воскресенье, 11.06.2017, 15:52 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

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


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

Автор - Zvuk
Дата добавления - 11.06.2017 в 15:52
nilem Дата: Воскресенье, 11.06.2017, 16:11 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1216
Репутация: 444 ±
Замечаний: 0% ±

Excel 2013
типа такого
[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
 
Ответить
Сообщениетипа такого
[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]

Автор - nilem
Дата добавления - 11.06.2017 в 16:11
Zvuk Дата: Воскресенье, 11.06.2017, 17:03 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Zvuk
Дата добавления - 11.06.2017 в 17:03
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Список всех ячеек,содержащих введенный текст(вывести в t-x) (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!