выпадающего падение вниз, показывая в других листах

Question

у меня есть поле со списком выпадающим с поиском предложениями, сделанные из кода здесь:

http://trumpexcel.com/2013/10/excel-drop-down-list-with-search-suggestions/

Это работает очень хорошо, но когда я на другой лист и нажатием клавиши «Enter», поле поиска случайно всплывает в листе

Это даже не полный ящик, только синее поле

Любые идеи по его отключение? Единственный успех, который у меня был, - это перевести расчет на ручной, но для работы требуется автоматический расчет

Спасибо!

Answer 1

У меня возникла аналогичная проблема с моей собственной версией смарт-поиска VBA. Как я установил это, выполнив следующие действия:

Private Sub ComboBox1_Change() 
    If ComboBox1.Value = "" Then Exit Sub '<------ Problem solved. 
    ComboBox1.ListFillRange = "DropDownList" 
    Me.ComboBox1.DropDown 
End Sub 

ИЛИ

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
    Dim SheetWithComboBox As Worksheet: Set SheetWithComboBox = ThisWorkbook.Sheets(1) 

    If ThisWorkbook.ActiveSheet.Name <> SheetWithComboBox.Name Then 
     ComboBox1.Visible = False 
    Else: ComboBox1.Visible = True 
    End If 
End Sub 

Answer 2

@Tyeler

Спасибо за вашу помощь, ваше мышление помогло мне придумать способ

Private Sub ComboBox1_change() 
Dim sht1 As Worksheet 
Set sht1 = Worksheets("xxx") 

If ThisWorkbook.ActiveSheet.Name = sht1.Name Then 

ComboBox1.ListFillRange = "DropDownList" 
Me.ComboBox1.DropDown 
Call macro1 
Else: Exit Sub 
End If 

End Sub 

Answer 3

Я нашел решение, которое, по крайней мере для меня, работает для всех листов.

Private Sub Combobox_Get_Focus() 

    ComboBox1.ListFillRange = "DropDownList" 
    Me.ComboBox1.DropDown 

End Sub