listbox1 用键盘向下选中条目后上"敲回车"  ,然后通过敲击回车响应的事件    把listbox1选中条目值赋值给TEXTBOX2,然后隐藏 listbox ,

解决方案 »

  1.   

    keypress
    keydown
    keyup
    这三个事件没有?
      

  2.   

    Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
        If KeyCode = vbKeyReturn Then
            Text2 = List1.Text
        End If
    End Sub
      

  3.   

    Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
       If (KeyAscii = vbKeyReturn) Then TextBox2.Text = ListBox1.Text
    End Sub
      

  4.   

    VBA窗口的ListBox,本身就支持用箭头键↑↓改变选定的条目,不必写代码来处理。
    (注意: 要让它获得焦点后,按箭头键才有效)