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

Вход

Регистрация

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

 

= Мир MS Excel/Чтоб при вводе в Combo, Excel показывал нужную строку - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Чтоб при вводе в Combo, Excel показывал нужную строку
WadZZZik Дата: Среда, 04.09.2013, 18:28 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
При вводе в ComboBox строки Excel остаются на своих местах, а как сделать так чтоб Excel подхватывал ввод и в реальном времени показывал нужную строку на экране?

Прилагаю GIF-анимацию которая является фикцией (нажал букву - скриншот, нажал другую - скриншот), но показывает, как должно быть.

http://img5.tempfile.ru/12246/17be7667ee/9f99e82b5cc2cc5278bc9cc4.gif
К сообщению приложен файл: Excel.xls (84.5 Kb)


Сообщение отредактировал WadZZZik - Среда, 04.09.2013, 18:28
 
Ответить
СообщениеПри вводе в ComboBox строки Excel остаются на своих местах, а как сделать так чтоб Excel подхватывал ввод и в реальном времени показывал нужную строку на экране?

Прилагаю GIF-анимацию которая является фикцией (нажал букву - скриншот, нажал другую - скриншот), но показывает, как должно быть.

http://img5.tempfile.ru/12246/17be7667ee/9f99e82b5cc2cc5278bc9cc4.gif

Автор - WadZZZik
Дата добавления - 04.09.2013 в 18:28
wild_pig Дата: Среда, 04.09.2013, 21:55 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 518
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
смотрите
К сообщению приложен файл: 6146708.xls (80.0 Kb)


Сообщение отредактировал wild_pig - Среда, 04.09.2013, 21:55
 
Ответить
Сообщениесмотрите

Автор - wild_pig
Дата добавления - 04.09.2013 в 21:55
WadZZZik Дата: Среда, 04.09.2013, 23:33 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
wild_pig, Спасибо, большое за помощь! Но... это немного не то, намного лучше чем ничего, но всё же не то.
Хотелось бы чтоб при вводе стрОки не исчезали из вида, или хотя бы при пустом Combo было видно всё.
 
Ответить
Сообщениеwild_pig, Спасибо, большое за помощь! Но... это немного не то, намного лучше чем ничего, но всё же не то.
Хотелось бы чтоб при вводе стрОки не исчезали из вида, или хотя бы при пустом Combo было видно всё.

Автор - WadZZZik
Дата добавления - 04.09.2013 в 23:33
anvg Дата: Пятница, 06.09.2013, 05:00 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 581
Репутация: 271 ±
Замечаний: 0% ±

2016, 365
WadZZZik,
Уважаемый, а кто мешает
1. дописать проверку на "пустоту" ComboBox и сброс фильтра UsedRange.AutoFilter Field:=1?
2. прокрутить окно после фильтра ActiveWindow.ScrollRow = 2?
 
Ответить
СообщениеWadZZZik,
Уважаемый, а кто мешает
1. дописать проверку на "пустоту" ComboBox и сброс фильтра UsedRange.AutoFilter Field:=1?
2. прокрутить окно после фильтра ActiveWindow.ScrollRow = 2?

Автор - anvg
Дата добавления - 06.09.2013 в 05:00
RAN Дата: Пятница, 06.09.2013, 10:50 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
Private Sub ComboBox1_Change()
Dim a&
On Error Resume Next
a = Columns(1).Find(What:=ComboBox1.Text & "*", LookAt:=xlWhole).Row
ActiveWindow.ScrollRow = a
End Sub
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Private Sub ComboBox1_Change()
Dim a&
On Error Resume Next
a = Columns(1).Find(What:=ComboBox1.Text & "*", LookAt:=xlWhole).Row
ActiveWindow.ScrollRow = a
End Sub
[/vba]

Автор - RAN
Дата добавления - 06.09.2013 в 10:50
WadZZZik Дата: Суббота, 07.09.2013, 07:13 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
RAN, anvg, спасибо вам большое! Всё работает по задумке!
 
Ответить
СообщениеRAN, anvg, спасибо вам большое! Всё работает по задумке!

Автор - WadZZZik
Дата добавления - 07.09.2013 в 07:13
  • Страница 1 из 1
  • 1
Поиск:

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