'Tab key selects first displayed item or highlighted item Me.ComboBox1.List = Worksheets('Sheet1').Range('A2', Worksheets('Sheet1').Cells(Rows.Count, 'A').End(xlUp)).Value IsArrow = (Ke圜ode = vbKeyUp) Or (Ke圜ode = vbKeyDown)
Private Sub ComboBox1_KeyDown(ByVal Ke圜ode As MSForms.ReturnInteger, ByVal Shift As Integer)ĭebug.Print Time 'KeyDown' Ke圜ode ComboBox1.ListIndex ComboBox1.ListCount, ComboBox1.Value
'Worksheets('Sheet1').Range('Q2:T2').Value = Array(.ListCount. 'Worksheets('Sheet1').Range('Q1:T1').Value = Array('ListCount', 'ListRows', 'ListIndex', 'Text')
List = Worksheets('Sheet1').Range('A2', Worksheets('Sheet1').Cells(Rows.Count, 'A').End(xlUp)).Value
