При вводе в ComboBox строки Excel остаются на своих местах, а как сделать так чтоб Excel подхватывал ввод и в реальном времени показывал нужную строку на экране?
Прилагаю GIF-анимацию которая является фикцией (нажал букву - скриншот, нажал другую - скриншот), но показывает, как должно быть.
При вводе в ComboBox строки Excel остаются на своих местах, а как сделать так чтоб Excel подхватывал ввод и в реальном времени показывал нужную строку на экране?
Прилагаю GIF-анимацию которая является фикцией (нажал букву - скриншот, нажал другую - скриншот), но показывает, как должно быть.
wild_pig, Спасибо, большое за помощь! Но... это немного не то, намного лучше чем ничего, но всё же не то. Хотелось бы чтоб при вводе стрОки не исчезали из вида, или хотя бы при пустом Combo было видно всё.
wild_pig, Спасибо, большое за помощь! Но... это немного не то, намного лучше чем ничего, но всё же не то. Хотелось бы чтоб при вводе стрОки не исчезали из вида, или хотя бы при пустом Combo было видно всё.WadZZZik
WadZZZik, Уважаемый, а кто мешает 1. дописать проверку на "пустоту" ComboBox и сброс фильтра UsedRange.AutoFilter Field:=1? 2. прокрутить окно после фильтра ActiveWindow.ScrollRow = 2?
WadZZZik, Уважаемый, а кто мешает 1. дописать проверку на "пустоту" ComboBox и сброс фильтра UsedRange.AutoFilter Field:=1? 2. прокрутить окно после фильтра ActiveWindow.ScrollRow = 2?anvg
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