VBA Excel thực hành Bài 6 - Sửa, xóa dữ liệu trong VBA

Nối tiếp loạt video hướng dẫn tự học VBA của các bài trước, hôm nay chúng ta tìm hiểu cách lập trình nút Sửa, Xóa, Cập nhật trên VBA Excel. Cơ sở dữ liệu có bao gồm nhiều trường dữ liệu và nhiều bản ghi, đôi khi ta nhập dữ liệu có chỗ sai sót cần phải sửa chữa hoặc xóa bỏ nếu không cần thiết, vậy đối với VBA ta làm thế nào mời bạn đọc cùng theo dõi video dưới đây:

Code cho nút Sửa:

Private Sub btnEdit_Click()
On Error Resume Next
g = 0
Do
DoEvents
g = g + 1
p = Sheet1.Range("a" & g)
If p = txtMa.Text Then
txtDate.Text = Sheet1.Range("b" & g)
txtTen.Text = Sheet1.Range("c" & g)
txtNgaysinh.Text = Sheet1.Range("d" & g)
txtNghenghiep.Text = Sheet1.Range("e" & g)
txtDiachi.Text = Sheet1.Range("f" & g)
End If
Loop Until p = ""
End Sub

Code cho nút Xóa:

Private Sub btnDelete_Click()
On Error Resume Next
    g = 0
    Do
    DoEvents
    g = g + 1
    p = Sheet1.Range("a" & g)
    If p = txtMa.Text Then
        Sheet1.Range("a" & g).Select
        Selection.Delete
        Sheet1.Range("b" & g).Select
        Selection.Delete
        Sheet1.Range("c" & g).Select
        Selection.Delete
        Sheet1.Range("d" & g).Select
        Selection.Delete
        Sheet1.Range("e" & g).Select
        Selection.Delete
        Sheet1.Range("f" & g).Select
        Selection.Delete
    End If
    Loop Until p = ""
    Form1.txtMa.SetFocus
End Sub

Code cho nút Cập nhật:

Private Sub CommandButton1_Click()
On Error Resume Next
    g = 0
    Do
    DoEvents
    g = g + 1
    p = Sheet1.Range("a" & g)
    If p = txtMa.Text Then
        Sheet1.Range("b" & g) = txtDate.Text
        Sheet1.Range("c" & g) = txtTen.Text
        Sheet1.Range("d" & g) = txtNgaysinh.Text
        Sheet1.Range("e" & g) = txtNghenghiep.Text
        Sheet1.Range("f" & g) = txtDiachi.Text
    End If
    Loop Until p = ""
    Form1.txtMa.SetFocus
 
End Sub