Автозавершение значений в UserForm

[Hugo121]

Private Sub TextBox1_Change()
      ListBox1.Clear
'при отсутствии символов для поиска - выход
   If Len(TextBox1.Value) = 0 Then
   ListBox1.Visible = False
   Exit Sub
   End If
   ListBox1.Visible = True
'и т.д....

В свойствах поставить Visible = False

[ssg]

Сообщение от Hugo121

Private Sub TextBox1_Change()
      ListBox1.Clear
'при отсутствии символов для поиска - выход
   If Len(TextBox1.Value) = 0 Then
   ListBox1.Visible = False
   Exit Sub
   End If
   ListBox1.Visible = True
'и т.д....

В свойствах поставить Visible = False

Спасибо, буду пробывать!!!

[ssg]

Сообщение от Hugo121

Private Sub TextBox1_Change()
      ListBox1.Clear
'при отсутствии символов для поиска - выход
   If Len(TextBox1.Value) = 0 Then
   ListBox1.Visible = False
   Exit Sub
   End If
   ListBox1.Visible = True
'и т.д....

В свойствах поставить Visible = False

Спасибо,попробывал (немного под себя переделал).
2 вопроса, если можно:

1. Как сделать так, чтоы поиск вводимых символов прохдил только в начале слов, а не где угодно (как сейчас). Т.е. если я ввожу "во", то в список попадают слова:
ворона, рвота, клево и т.д. А надо, чтобы в списке было только: "ворона"
2. Не могу правильно выйти из ввода текста в поле textbox. Ввожу слово, которого нет, хочу по событию (нажатие клавиши Enter) закончить ввод и скрыть listbox.
Для этого использую код:

Private Sub TextBox2_Enter()
ListBox1.Visible = False
End Sub

Но не работает (вероятно потому, что Enter воспринимается как ввод очередного символа - и процесс повторяется).
Срабатывет, если я нажимаю Enter, а затем щелкаю мышкой в поле textbox.

Т.е. интересует, как выйти (твой пример поиск по буквам) из процедуры, если хочешь закончить ввод нажатием клавиши "Enter".

Спасибо.

[Hugo121]

1.

        If InStr(1, UCase(Cells(i, 1)), UCase(TextBox1.Value)) > 0 Then

замените на

        If UCase(TextBox1.Value) Like UCase(Cells(i, 1)) & "*" Then

2.

Private Sub TextBox1_AfterUpdate()
    MsgBox 1
End Sub

вот вместо MsgBox и делайте что задумали.

[ssg]

Спасибо, буду пробывать.

[ssg]

Сообщение от Hugo121

1.

        If InStr(1, UCase(Cells(i, 1)), UCase(TextBox1.Value)) > 0 Then

замените на

        If UCase(TextBox1.Value) Like UCase(Cells(i, 1)) & "*" Then

2.

Private Sub TextBox1_AfterUpdate()
    MsgBox 1
End Sub

вот вместо MsgBox и делайте что задумали.

Попробывал.
1. Private Sub TextBox1_AfterUpdate() решило проблему - спасибо.
2. А вот замена строки поиска испортила ситуацию.
При вводе второй буквы - "во"
появляется совем неправильный список. Т.е. проблема не решена. Может еще какие идеи есть?

[Step_UA]

Сообщение от ssg

А вот замена строки поиска испортила ситуацию.

If InStr(1, UCase(Cells(i, 1)), UCase(TextBox1.Value)) > 0 Then

Замените на

If InStr(1, Cells(i, 1), TextBox1.Value, vbTextCompare) = 1 Then

или на

If UCase(Cells(i, 1)) Like UCase(TextBox1.Value) & "*" Then

[ssg]

Попробывал: If InStr(1, Cells(i, 2), TextBox2.Value, vbTextCompare) = 1 Then

Работает, как хотелось.
Спасибо.

Еще вопрос:
Если при открытом listbox, я кликаю в этом поле мышкой, получаю сообщение:

Run-time error '-2147418113 (8000ffff)':

Could not set the Visible property. Unexpected call method or property access.

И Excel вылетает.

Debag показывает, что останов происходит в:

Private Sub TextBox2_AfterUpdate()
ListBox1.Visible = False
End Sub

на ListBox1.Visible = False

Можно как то помочь?

[Hugo121]

Как-то можно, но думаю пора Вам показать файл.