Giúp mình userfrom nhập liệu

[Phuoctaifast]

mình muốn khi nhập liệu xong thì xóa toàn bộ textbox đã nhập và quay về vị trí textbox 1 (txtMA)
thanks mọi người

 

[vulunktheky]

mình muốn khi nhập liệu xong thì xóa toàn bộ textbox đã nhập và quay về vị trí textbox 1 (txtMA)
Cảm ơn mọi người

Hy vọng đúng ý bạn!

Private Sub btnAdd_Click()
On Error Resume Next ' khi gap loi thi chuyen sang buoc tiep theo
Dim dong_cuoi As Long
Dim i As Long
    dong_cuoi = Sheet1.Range("A10000").End(xlUp).Row + 1
    i = Sheet.Range("10000").End(xlUp).Row
    
    With Sheet1
    .Range("A" & dong_cuoi) = txtMA.Text
    .Range("B" & dong_cuoi) = txtDAI.Text
    .Range("C" & dong_cuoi) = txtRONG.Text
    .Range("D" & dong_cuoi) = txtCAO.Text
    End With
   txtMA.Text = ""
   txtDAI.Text = ""
   txtRONG.Text = ""
   txtCAO.Text = ""
   txtMA.SetFocus
End Sub

 

[Nguyễn Hồng Quang]

Nếu theo lịch sử đăng bài trước đó của bạn này. Thì có lẽ ý của bạn ấy là thế này
(Xem file gửi kèm)

 

[Phuoctaifast]

thanks mọi người rất rất nhiều
mình thật sự rất thích VBA , thật tuyệt vời