Xin Giúp em code tự xóa dữ liệu trong textbox và con trỏ chuột quay về ô ban đầu sau khi nhấn nút "Nhập mới"

[cutun2610]

Kính chào, các anh/chị/em, em tên Khánh, hiện đang tập sử dụng VBA, em đang muốn làm 1 cái VBA để theo dõi nhân khẩu, em có xem 1 video trên Youtube hướng dẫn và đã làm được việc nhập mới dữ liệu từ form chuyển vào Excel ,nhưng video đó không hướng dẫn việc sau khi nhấn nút nhập mới thì các trường thông tin đã nhập tự xóa và con trỏ chuột quay về ô ban đầu để nhập tiếp. Mong mọi người hướng dẫn em. Em cám ơn rất nhiều!
Đây là code e dùng để chuyển dữ liệu nhập từ form vào excel ạ!
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 = Sheet1.Range("10000").End(xlUp).Row

With Sheet1
.Range("A" & dong_cuoi) = txtName.Text
.Range("B" & dong_cuoi) = txtSex.Text
.Range("C" & dong_cuoi) = txtBirth.Text
.Range("D" & dong_cuoi) = txtDantoc.Text
.Range("E" & dong_cuoi) = txtTongiao.Text
.Range("F" & dong_cuoi) = txtCmnd.Text
.Range("G" & dong_cuoi) = txtPhone.Text
.Range("H" & dong_cuoi) = txtPhuong.Text
.Range("I" & dong_cuoi) = txtQuan.Text
.Range("J" & dong_cuoi) = txtTp.Text
.Range("K" & dong_cuoi) = txtThuongtru.Text
.Range("L" & dong_cuoi) = txtNN.Text
.Range("M" & dong_cuoi) = txtNoiLV.Text
.Range("N" & dong_cuoi) = txtTamtru.Text
End With

 

[giaiphap]

Kính chào, các anh/chị/em, em tên Khánh, hiện đang tập sử dụng VBA, em đang muốn làm 1 cái VBA để theo dõi nhân khẩu, em có xem 1 video trên Youtube hướng dẫn và đã làm được việc nhập mới dữ liệu từ form chuyển vào Excel ,nhưng video đó không hướng dẫn việc sau khi nhấn nút nhập mới thì các trường thông tin đã nhập tự xóa và con trỏ chuột quay về ô ban đầu để nhập tiếp. Mong mọi người hướng dẫn em. Em cám ơn rất nhiều!
Đây là code e dùng để chuyển dữ liệu nhập từ form vào excel ạ!
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 = Sheet1.Range("10000").End(xlUp).Row

With Sheet1
.Range("A" & dong_cuoi) = txtName.Text
.Range("B" & dong_cuoi) = txtSex.Text
.Range("C" & dong_cuoi) = txtBirth.Text
.Range("D" & dong_cuoi) = txtDantoc.Text
.Range("E" & dong_cuoi) = txtTongiao.Text
.Range("F" & dong_cuoi) = txtCmnd.Text
.Range("G" & dong_cuoi) = txtPhone.Text
.Range("H" & dong_cuoi) = txtPhuong.Text
.Range("I" & dong_cuoi) = txtQuan.Text
.Range("J" & dong_cuoi) = txtTp.Text
.Range("K" & dong_cuoi) = txtThuongtru.Text
.Range("L" & dong_cuoi) = txtNN.Text
.Range("M" & dong_cuoi) = txtNoiLV.Text
.Range("N" & dong_cuoi) = txtTamtru.Text
End WithView attachment 261401

Up file của bạn lên đây sẽ code ngắn hơn.

 

[cutun2610]

Up file của bạn lên đây sẽ code ngắn hơn.

Dạ em gửi anh file này ạ, file em đang làm là dựa theo file này, hehe

 

[giaiphap]

Dạ em gửi anh file này ạ, file em đang làm là dựa theo file này, hehe

Tôi chỉ viết code cho nút Thêm vào thôi, các nút khác bạn tự mò đi cho nhớ lâu. Chú ý vào các TextBox tôi đã đặt thuộc tính Tag là các số (Đó là số thứ tự của cột)

 

[cutun2610]

Tôi chỉ viết code cho nút Thêm vào thôi, các nút khác bạn tự mò đi cho nhớ lâu. Chú ý vào các TextBox tôi đã đặt thuộc tính Tag là các số (Đó là số thứ tự của cột)

dạ, em cám ơn anh, e sẽ cố nghiên cứu để hiểu ạ, cám ơn anh rất nhiều ^^