文本框按ENTER焦点转移到列表框

nancy66317

    前几天找到一个很有用的EXCEL模糊搜索表，但是没法用键盘转移焦点，每次都要用鼠标，请大神帮助！不知道为什么上传总显示错误503
只能这样表达了：
以下是代码复制到VBA 后台SHEET1中，并建文本框和列表框就可以了

Option Explicit

Private Sub ListBox1_Click()
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
    文本框.Visible = True
列表框.Visible = False
    文本框.Height = ActiveCell.Height
    文本框.Width = ActiveCell.Width
    文本框.Top = ActiveCell.Top
    文本框.Left = ActiveCell.Left
    列表框.Top = ActiveCell.Top
    列表框.Left = ActiveCell.Left + ActiveCell.Width
    文本框.Activate
    文本框.Value = ""
    列表框.Clear
Else
    文本框.Visible = False
    列表框.Visible = False
End If
End Sub
Private Sub 列表框_Click()
ActiveCell = 列表框.Value
列表框.Visible = False
文本框.Visible = False
End Sub
Private Sub 文本框_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim rngs As Range, rng As Range
Set rngs = Sheet2.Range("a1", Sheet2.[a1].End(xlDown))
  列表框.Visible = True
列表框.Clear
For Each rng In rngs
    If InStr(rng, 文本框.Value) Then 列表框.AddItem rng.Value
Next
End Sub