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

Вход

Регистрация

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

 

= Мир MS Excel/Выделить текущую строку базы данных - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выделить текущую строку базы данных (Макросы/Sub)
Выделить текущую строку базы данных
parovoznik Дата: Суббота, 03.03.2018, 18:06 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 442
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
Доброго времени суток.
Имеется форма поиска товара. Поиск производится по первой букве. Все работает.
Если выбрали товар в ListBox,то эта позиция должна должна выделится на листе"База".
Что нужно изменить в коде? :(
К сообщению приложен файл: 1424399.xls (51.0 Kb)
 
Ответить
СообщениеДоброго времени суток.
Имеется форма поиска товара. Поиск производится по первой букве. Все работает.
Если выбрали товар в ListBox,то эта позиция должна должна выделится на листе"База".
Что нужно изменить в коде? :(

Автор - parovoznik
Дата добавления - 03.03.2018 в 18:06
nilem Дата: Суббота, 03.03.2018, 18:36 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
parovoznik, привет
добавьте еще такую процедуру
[vba]
Код
Private Sub List_РезультатыПоиска_Click()
If List_РезультатыПоиска.ListIndex = -1 Then Exit Sub
Columns(1).Find(List_РезультатыПоиска, lookat:=xlWhole).Select
End Sub
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеparovoznik, привет
добавьте еще такую процедуру
[vba]
Код
Private Sub List_РезультатыПоиска_Click()
If List_РезультатыПоиска.ListIndex = -1 Then Exit Sub
Columns(1).Find(List_РезультатыПоиска, lookat:=xlWhole).Select
End Sub
[/vba]

Автор - nilem
Дата добавления - 03.03.2018 в 18:36
parovoznik Дата: Суббота, 03.03.2018, 19:10 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 442
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
nilem, спасибо.Все работает. hands
 
Ответить
Сообщениеnilem, спасибо.Все работает. hands

Автор - parovoznik
Дата добавления - 03.03.2018 в 19:10
parovoznik Дата: Понедельник, 13.01.2020, 21:57 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 442
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
Добрый вечер.
в продолжении темы прошу помочь в коде, как выделить всю строку БД.Сейчас выделяется первый столбец,а нужно два.
заранее благодарен. :(
К сообщению приложен файл: 9733291.xls (49.5 Kb)
 
Ответить
СообщениеДобрый вечер.
в продолжении темы прошу помочь в коде, как выделить всю строку БД.Сейчас выделяется первый столбец,а нужно два.
заранее благодарен. :(

Автор - parovoznik
Дата добавления - 13.01.2020 в 21:57
Kuzmich Дата: Понедельник, 13.01.2020, 23:05 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 711
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код
Columns(1).Find(List_РезультатыПоиска, lookat:=xlWhole).Resize(, 2).Select
[/vba]
 
Ответить
Сообщение[vba]
Код
Columns(1).Find(List_РезультатыПоиска, lookat:=xlWhole).Resize(, 2).Select
[/vba]

Автор - Kuzmich
Дата добавления - 13.01.2020 в 23:05
parovoznik Дата: Вторник, 14.01.2020, 07:24 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 442
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
Kuzmich, благодарю за быстрый и оперативный ответ :)
 
Ответить
СообщениеKuzmich, благодарю за быстрый и оперативный ответ :)

Автор - parovoznik
Дата добавления - 14.01.2020 в 07:24
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выделить текущую строку базы данных (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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