nhấn phím Tab trong LiistBox thì bị lỗi (1 người xem)

[NguyenthiH]

Chào mọi người, em có tải file của anh QuangHai1969 trong Box"Hỏi cách tạo ComboBox thông minh" về, khi em chọn trong listBox xong em nhân Tab (Keycode=9) thì file bị lỗi "Excel has Stop Working", chỉ cho Enter(Keycode=13), nhưng tại vì anh quanghai1969 có nói

Chú ý có thể điều khiển thoái mái bằng các phím mũi tên và phím Tab, Delete và phím Enter

vả code trong file

[/COLOR]Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
   ActiveCell.Value = ActiveSheet.ListBox1.Value
   Hide
   ActiveCell.Activate
[COLOR=#ff0000][B]ElseIf KeyCode = 9 Then[/B][/COLOR]
[COLOR=#ff0000][B]   Hide[/B][/COLOR]
[COLOR=#ff0000][B]   ActiveCell.Activate[/B][/COLOR]
ElseIf KeyCode = 37 Then
   Hide
   ActiveCell.Offset(, -1).Activate
ElseIf KeyCode = 39 Then
   Hide
   ActiveCell.Offset(, 1).Activate
End If
End Sub

nên em thử nhân Tab.
Nếu được, mong mọi người chỉnh dùm để nhấn tab không bị lỗi nữa.

 

[NguyenthiH]

Không biết có ai bị như em không?
Mong mọi người giúp đỡ.

 

[doveandrose]

lỗi quá thì chuyển qua xài combobox đi bạn ơi , anh Quanghai1969 lâu rồi không vào diễn đàn .

 

[NguyenthiH]

Anh doveandrose có thể chỉ em xài Combobox với, chứ em có biết VBA đâu!

 

[doveandrose]

trong mục lập trình có nhiều chủ đề về nhập liệu combobox người ta viết sẵn hết rồi , bạn chịu khó tìm trỏng nhé , đại khái mấy chủ đề về tạo list tìm kiếm ấy .

 

[NguyenthiH]

Cám Ơn Anh doveandrose, Anh chỉnh cho phím Tab không bị lỗi được mà, Anh chỉnh giúp em với.

 

[doveandrose]

Cám Ơn Anh doveandrose, Anh chỉnh cho phím Tab không bị lỗi được mà, Anh chỉnh giúp em với.

Thật tôi không biết sử dụng loại hình textbox kết hợp listbox ở trên bạn ạ . Trước giờ tôi xài file có sẵn combobox của các anh chị khác (ví dụ như của anh Hoàng Trọng Nghĩa ) thôi .