Nhập dữ liệu từ Textbox vào Listbox, sau đó chuột tự động trở về Textbox

[huancv]

Dear các ad
Mình đang làm một file nhập dữ liệu từ Textbox vào Listbox.
Mình muốn sau khi nhập xong thì chuột lại tự động trở về ô Textbox (Để dễ nhập liên tục và có thể sử dụng máy Scanner)
Cảm ơn các ad giúp đỡ

 

[ptm0412]

Sử dụng sự kiện Exit thay cho AfterUpdate, thêm câu lệnh Cancel = True ở cuối Sub

 

[huancv]

Thank bạn Cheettit Man

 

[huancv]

Thank bạn Cheettit Man

============
Bạn Cheettit Man ơi.
Mình dùng thử như bạn nói rùi, nhưng sau đó thì nút Reset lại không dùng được nữa.
Bạn giúp mình vấn đề này nữa với nhé.
Mình cảm ơn

 

[ptm0412]

Lồng code vào trong 1 If

Private Sub Unitscan_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(Me.Unitscan) > 0 Then
    Listimei_scan.AddItem Unitscan.Text, 0

    With Sheets("Program")
        If Me.Unitscan.Value <> Empty Then
            .Range("B100").End(3).Offset(1).Resize(, 1).Value = Me.Unitscan.Value
             Me.Unitscan.Value = ""
        End If
    End With
    Cancel = True
End If

End Sub

 

[huancv]

Lồng code vào trong 1 If

Private Sub Unitscan_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(Me.Unitscan) > 0 Then
    Listimei_scan.AddItem Unitscan.Text, 0

    With Sheets("Program")
        If Me.Unitscan.Value <> Empty Then
            .Range("B100").End(3).Offset(1).Resize(, 1).Value = Me.Unitscan.Value
             Me.Unitscan.Value = ""
        End If
    End With
    Cancel = True
End If

End Sub

Thank bạn nhiều, mình đã làm OK rùi