Quét mã vạch với UserForm Excel

[moihocvba]

Xin chào, cả nhà cho em hỏi, em tập làm quét mã vào Textbox để nó tự động đưa vào Sheet, ở đây em muốn khi quét mã sản phẩm vào Textbox1 thì nó ghi vào ô A1, sau đó con nháy chuột sẽ vẫn ở Textbox1 để quét tiếp sản phẩm khác, mặc dù em viết code như ở dưới này rồi nhưng khi đưa máy quét vào quét xong con nháy chuột vẫn nhảy sang Textbox2 mà ko ở lại Textbox1 để quét tiếp. Mong các anh chị giúp em cách với ạ!



Code của em:

Private Sub TextBox1_Change()
Range("A1").Value = TextBox1
TextBox1 = ""
TextBox1.SetFocus
End Sub

 

[Maika8008]

Xin chào, cả nhà cho em hỏi, em tập làm quét mã vào Textbox để nó tự động đưa vào Sheet, ở đây em muốn khi quét mã sản phẩm vào Textbox1 thì nó ghi vào ô A1, sau đó con nháy chuột sẽ vẫn ở Textbox1 để quét tiếp sản phẩm khác, mặc dù em viết code như ở dưới này rồi nhưng khi đưa máy quét vào quét xong con nháy chuột vẫn nhảy sang Textbox2 mà ko ở lại Textbox1 để quét tiếp. Mong các anh chị giúp em cách với ạ!
View attachment 259219


Code của em:

Private Sub TextBox1_Change()
Range("A1").Value = TextBox1
TextBox1 = ""
TextBox1.SetFocus
End Sub

Bạn thử viết lại thế này xem!
Private Sub TextBox1_Change()
Dim str
str = TextBox1
TextBox1 = ""
Range("A1") = str
TextBox1.SetFocus
End Sub

 

[Nguyễn Duy Tuân]

Barcode, QR code scanner in VBA​

Bạn vào đây tải mã nguồn về nhé.

CÔNG TY CỔ PHẦN BLUESOFTS

bluesofts.net

 

[moihocvba]

Barcode, QR code scanner in VBA​

Bạn vào đây tải mã nguồn về nhé.

CÔNG TY CỔ PHẦN BLUESOFTS

bluesofts.net

Dạ con cảm chú nhiều ạ!

 

[Nguyễn Duy Tuân]

Dạ con cảm chú nhiều ạ!

Mình còn trê mà

 

[moihocvba]

Mình còn trê mà

Dạ con mới 21t, thấy chú tham gia diễn đàn tận năm 2006, nên nghĩ chú là kỳ cựu, gạo cội rồi ạ!