tìm kiệm bằng phím lên xuống trong Form và nhấn Enter gán dữ liệu vào Sheet (1 người xem)

[NguyenthiH]

Chào các AC!
Em có file này nhờ Các AC giúp :
Khi click vào cột C và D của Sheet "Nhap" và "Xuat" thì xuất hiện Form.
Dùng phím lên, xuống chọn mặt hang trong Form rồi nhân Enter thì gán dữ lieu vào Sheet, và nếu chọn tiếp thì nhấn enter sẽ gán dữ lieu vào Row kế tiếp (giống như File "Tạo ứng dung Form Tìm Kiếm và Nhập Liệu"- của Thầy Ndu), nhưng trong file Thầy Ndu là DoubleClick.
Nếu Thầy Ndu có ghé qua cũng mong Thầy giúp em.
Em Cám ơn các AC.
ps: Code trong Form và Module2 là của Thầy Ndu, Code tính "Ton"(Module1) là của Thầy Ba Tê.

 

[NguyenthiH]

Em có bắt chước code DoubleClick của Anh vào Code KeyDown nhưng cứ nhấn Enter là nó nhảy xuống một dòng so với dòng muốn nhập số lượng của hàng hóa đó.

 Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then
    ActiveCell.Value = Me.ListBox1.Column(0)
    ActiveCell.Offset(0, 1).Value = Me.ListBox1.Column(1)
    [SIZE=2][B][COLOR=#ff0000]UserForm1.Hide
    ActiveCell.Offset(0, 2).Select[/COLOR][/B][/SIZE]
  End If
End Sub

 

[NguyenthiH]

Mong Anh giúp đỡ Ah!
Em thì mù VBA.

 

[NguyenthiH]

Cám ơn Anh hpkhuong nhiều.

 

[NguyenthiH]

Bây giờ em mới thấy list hang hóa chỉ có cỡ 20 mặt hàng thì còn dùng phím lên xuống chọn được, chứ list cỡ vài trăm loại hàng hóa mà dùng phím lên xuống chọn thì chắc mau hư bàn phím lắm. Nên em thêm một TexBox để gỏ từ khóa vào để tìm cho nó nhanh.
Em ví dụ như khi em gỏ từ "b" vào TextBox thì trong ListBox chỉ có các loại hang hóa nào có từ "b" như :"Bột bánh canh, Bột bánh mì, Bánh mì nướng, Bánh Snack..v.v...v"
và em gỏ tiếp chữ "a" thì ListBox chỉ thể hiện những loại hang hóa có từ "ba" như : "Bánh mì nướng, Bánh Snack..v.v.."
Mong các AC giúp viết code cho ah!

 

[NguyenthiH]

Anh Hieu giúp em viết code cho TextBox tìm kiếm nhanh với.
Em có bắt chước code của mọi người mà không được.

 

[NguyenthiH]

Oh! Hay quá!
Cám Ơn Anh hpkhuong nhiều!

 

[NguyenthiH]

Ủa sao em nhấn enter thì lại nhập vào cột E chứ không phải cột C,và khi Form Initialize không thầy con trỏ nháy tại TextBox. mong Anh hpkhuong xem giúp.

 

[NguyenthiH]

Không biết em copy có lộn chổ nào mà kỳ vậy.
Mong Anh hpkhuong xem giúp.

 

[NguyenthiH]

Mong các AC giúp xem code bài #30 bị sai chổ nào mà chạy không đúng vậy.???

 

[NguyenthiH]

Em mò cả ngày mà chẳng biết làm sao lại nhảy lộn cột.
Mong các AC giúp em với!!!