Реализация поиска при вводе в Excel 2003

Question

У меня есть лист Excel с тысячами записей. Я бы нашел / реализовать поиск по мере ввода приложения в Excel. Есть ли плагины для Excel, которые это делают? Или мне нужно использовать VB для кодирования этого. Если да, то как мне это сделать? Спасибо.

Например, я хочу выделить и перейти к первой соответствующей ячейке, когда пользователь вводит запрос в текстовом поле

Answer 1

Это очень просто сделать с помощью VBA и формы ...

Введите следующее в обычном модуле:

Public Sub FindAsYouType()

    UserForm1.Show (False)

End Sub

И используйте что-то вроде следующего в вашем коде:

Private Sub txtFind_Change()
    Dim strFind As String
    Dim wks As Worksheet
    Dim varFound As Variant
    Set wks = ActiveWorkbook.ActiveSheet
    Set varFound = wks.UsedRange.Find(Me.txtFind, , , , , , True)
    If Not varFound Is Nothing Then varFound.Select
End Sub

Private Sub txtFind_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then Unload Me
End Sub

Я надеюсь, что это поможет кому-то еще там! : -)