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

Вход

Регистрация

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

 

= Мир MS Excel/поиск через форму с выделением активной ячейки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » поиск через форму с выделением активной ячейки (Макросы/Sub)
поиск через форму с выделением активной ячейки
grh1 Дата: Воскресенье, 22.09.2019, 18:14 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация: 0 ±
Замечаний: 0% ±

Добрый день, уважаемые знатоки макросов!
Есть файл, в котором осуществлен макросом поиск столбца В через форму и при нахождении нужного, макрос производит выделение всей строки.
Вопросы:
1. как подправить макрос, чтобы выделялась не вся строка, а просто становилась активной ЯЧЕЙКА с найденным словом или словосочетанием?!
2. как подправить макрос, чтобы форма закрывалась не ВРУЧНУЮ, а автоматом, после того, как встану курсором на найденном в поле поиска.

P.S. Макрос сделан Николаем (nilem), но он к сожалению не на связи.

Спасибо
К сообщению приложен файл: __.xls(48.0 Kb)


Сообщение отредактировал grh1 - Воскресенье, 22.09.2019, 18:16
 
Ответить
СообщениеДобрый день, уважаемые знатоки макросов!
Есть файл, в котором осуществлен макросом поиск столбца В через форму и при нахождении нужного, макрос производит выделение всей строки.
Вопросы:
1. как подправить макрос, чтобы выделялась не вся строка, а просто становилась активной ЯЧЕЙКА с найденным словом или словосочетанием?!
2. как подправить макрос, чтобы форма закрывалась не ВРУЧНУЮ, а автоматом, после того, как встану курсором на найденном в поле поиска.

P.S. Макрос сделан Николаем (nilem), но он к сожалению не на связи.

Спасибо

Автор - grh1
Дата добавления - 22.09.2019 в 18:14
Kuzmich Дата: Воскресенье, 22.09.2019, 19:07 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 398
Репутация: 76 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код
Private Sub ListBox1_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
Dim txt$
txt = Me.ListBox1.Value
If Len(txt) < 4 Then txt = Format$(txt, "0000")
With Range("B:B").Find(txt, , xlValues, xlWhole)
    '.EntireRow.Select
    .Activate
    If IsArray(x) Then Erase x
    Unload Me
End With
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Private Sub ListBox1_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
Dim txt$
txt = Me.ListBox1.Value
If Len(txt) < 4 Then txt = Format$(txt, "0000")
With Range("B:B").Find(txt, , xlValues, xlWhole)
    '.EntireRow.Select
    .Activate
    If IsArray(x) Then Erase x
    Unload Me
End With
End Sub
[/vba]

Автор - Kuzmich
Дата добавления - 22.09.2019 в 19:07
grh1 Дата: Воскресенье, 22.09.2019, 19:16 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация: 0 ±
Замечаний: 0% ±

Kuzmich,

Благодарю - всё как доктор прописал!!!

Закрываем тему.

Еще раз спасибо Кузьмич!
 
Ответить
СообщениеKuzmich,

Благодарю - всё как доктор прописал!!!

Закрываем тему.

Еще раз спасибо Кузьмич!

Автор - grh1
Дата добавления - 22.09.2019 в 19:16
Мир MS Excel » Вопросы и решения » Вопросы по VBA » поиск через форму с выделением активной ячейки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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