Tóm Tắt
Quy trình sửa dữ liệu trong lập trình VBA
Sửa tài liệu thường thì, tất cả chúng ta chỉ việc vào trong bảng tính và sửa trực tiếp. Nhưng việc đó có 1 số ít hạn chế :
- Bạn không ghi nhận lại được thời điểm bạn sửa dữ liệu. Việc này dẫn tới bạn không biết việc sửa đó ảnh hưởng thế nào, từ khi nào tới các dữ liệu khác có liên quan (ví dụ như báo cáo từ dữ liệu đó sẽ có kết quả khác)
- Trong trường hợp bảng tính được khóa (Protect Sheet) thì không sửa trực tiếp được.
- Với bảng tính lớn, nhiều dữ liệu, việc sửa trực tiếp trong bảng đó sẽ dễ nhầm lẫn, sai vị trí.
Do đó tất cả chúng ta hoàn toàn có thể sử dụng tiến trình sửa tài liệu trong lập trình VBA để khắc phục những hạn chế đó. Cụ thể :
- Chọn dòng dữ liệu cần sửa
- Đưa dữ liệu từ dòng đó sang 1 Form riêng để sửa (có thể là form trên Sheet hoặc UserForm trong VBA)
- Sửa nội dung trong Form
- Lưu lại nội dung từ Form vào đúng dòng dữ liệu đã chọn để sửa trong bảng dữ liệu
Cách viết code lấy dữ liệu cần sửa trong bảng tính Excel bằng VBA
Bước 1: Xây dựng cấu trúc bảng dữ liệu và Form sửa dữ liệu
Bạn đang đọc: Hướng dẫn cách viết code sửa dữ liệu trong bảng tính Excel bằng VBA – Học Excel Online Miễn Phí
Ví dụ tất cả chúng ta có bảng tính như sau :
Trong hình trên, tất cả chúng ta thấy có 2 phần :
- Bảng dữ liệu nhân sự: là nơi chứa các thông tin về nhân viên trong công ty
- Bảng Sửa thông tin nhân sự (Form Sửa thông tin): Là nơi mà chúng ta sẽ trích lọc thông tin của nhân viên cần sửa
Kèm với đó là 3 nút lệnh ( Sử dụng tính năng Insert > Shape để tạo ra những nút lệnh này )
- Mũi tên từ trái sang phải: Đại diện cho lệnh Lấy dữ liệu để sửa. Khi bấm (click) vào mũi tên đó sẽ thực thi câu lệnh lấy dòng dữ liệu cần sửa tại bảng Dữ liệu nhân sự vào Form Sửa thông tin.
- Dấu X: Đại diện cho lệnh xóa nội dung bên trong Form Sửa thông tin
- Mũi tên từ phải sang trái: Đại diện cho lệnh Lưu dữ liệu sau khi sửa. Khi bấm vào mũi tên này sẽ thực thi lệnh lưu nội dung từ Form sửa thông tin vào đúng vị trí dòng dữ liệu đã lấy ra để sửa.
Lưu ý: Form sửa dữ liệu bạn có thể đặt tại Sheet khác hoặc sử dụng UserForm. Trong ví dụ này làm chung trong 1 Sheet để dễ theo dõi.
Bước 2: Viết code lấy dữ liệu vào Form sửa thông tin
Gồm những lệnh :
- Xác định vị trí dòng chứa thông tin cần sửa
- Lấy nội dung tương ứng theo từng cột tại dòng chứa thông tin cần sửa vào Form
1. Khi bấm chuột chọn vào dòng cần sửa, tất cả chúng ta có câu lệnh xác lập số dòng theo ô được chọn là :
ActiveCell.Row
Gán 1 biến đại diện thay mặt cho giá trị này là DongSua, ta có :
Sub LayDuLieu ( )
‘ 1. Lệnh gán biến xác lập dòng cần sửa
Dim DongSua As Long
DongSua = ActiveCell.Row
‘ 2. Lệnh lấy tài liệu theo dòng cần sửa
End Sub
2. Lệnh lấy tài liệu theo dòng cần sửa gồm :
- Số dòng cần sửa được gán vào ô J2
- Mã nhân viên cần sửa gán vào ô H5
- Tên nhân viên cần sửa gán vào ô J5
- Ngày sinh của nhân viên cần sửa gán vào ô H8
- Bộ phận của nhân viên cần sửa gán vào ô J8
- Ngày vào làm của nhân viên cần sửa gán vào ô L8
Tất cả những nội dung trên đều được thực thi trong Sheet1 ( là Sheet chứa bảng tài liệu và Form sửa ) nên hoàn toàn có thể viết như sau :
Sub LayDuLieu ( )
‘ 1. Lệnh gán biến xác lập dòng cần sửa
Dim DongSua As Long
DongSua = ActiveCell.Row
‘ 2. Lệnh lấy tài liệu theo dòng cần sửa
With Sheet1
.Range(“J2”).Value = DongSua
.Range(“H5”).Value = .Range(“A” & DongSua).Value
.Range(“J5”).Value = .Range(“B” & DongSua).Value
.Range(“H8”).Value = .Range(“C” & DongSua).Value
.Range(“J8”).Value = .Range(“D” & DongSua).Value
.Range(“L8”).Value = .Range(“E” & DongSua).Value
End With
End Sub
Bây giờ tất cả chúng ta chỉ việc gán Macro LayDuLieu vừa viết ở trên vào Mũi tên thứ 1 ( từ trái qua phải )
Khi đó muốn sửa dữ liệu nào, chúng ta chỉ cần chọn dòng cần sửa, sau đó bấm vào Mũi tên, dữ liệu sẽ được tự động đưa sang Form sửa:
Bước 3: Viết code xóa nội dung trong Form sửa
Trong trường hợp tất cả chúng ta muốn xóa nội dung trong Form sửa tài liệu về lại trạng thái không có nội dung gì, tất cả chúng ta hoàn toàn có thể sử dụng thuộc tính. ClearContent cho đối tượng người dùng Range như sau :
Sub XoaDuLieu ( )
With Sheet1
.Range(“J2, H5:L5, H8:L8”).ClearContents
End With
End Sub
Gán macro XoaDuLieu vào hình tượng Shape hình X bằng Assign Macro tương tự như như trong bước 2 nhé .
Bước 4: Viết code lưu nội dung trong Form sửa trở lại dòng chứa dữ liệu cần sửa
Để lưu nội dung từ Form sửa trở lại bảng tài liệu, tất cả chúng ta triển khai viết giống như lệnh lấy tài liệu từ Bảng sang Form sửa, nhưng thứ tự ngược lại như sau :
Sub LuuDuLieu ( )
‘ Khai báo biến xác lập dòng sửa = dòng lưu dữ liệu
Dim DongSua As Long
DongSua = Sheet1.Range(“J2”).Value
‘ Thực hiện lưu tài liệu từ Form sửa vào bảng tài liệu theo dòng sửa
With Sheet1
.Range(“A” & DongSua).Value = .Range(“H5”).Value
.Range(“B” & DongSua).Value = .Range(“J5”).Value
.Range(“C” & DongSua).Value = .Range(“H8”).Value
.Range(“D” & DongSua).Value = .Range(“J8”).Value
.Range(“E” & DongSua).Value = .Range(“L8”).Value
End With
‘ Gọi lệnh Xóa dữ liệu trong Form sửa sau khi đã triển khai xong việc lưu dữ liệu
Call XoaDuLieu
‘ Mở thông tin bằng msgbox về việc đã lưu thành công xuất sắc
Msgbox “ Luu du lieu thanh cong ”
End Sub
Gán Macro LuuDuLieu vào Mũi tên thứ 2 ( từ phải qua trái ) bằng Assign Macro tựa như như trong bước 2 nhé .
Như vậy là tất cả chúng ta đã triển khai xong được quy trình tiến độ sửa tài liệu trong bảng tính Excel bằng VBA rồi .
Trong trường hợp tất cả chúng ta muốn triển khai với Worksheet đang khóa ( Protect Sheet ), tất cả chúng ta chỉ cần thêm câu lệnh :
- Sheet1.Unprotect ở đầu đoạn code (trước khi thực hiện các macro Lấy dữ liệu, Lưu dữ liệu, ngay sau dòng Sub, trước các dòng lệnh khác)
- Sheet1.Protect ở cuối đoạn code (trước dòng lệnh End Sub của các macro Lấy dữ liệu, Lưu dữ liệu)
Sub LayDuLieu ( )
Sheet1. Unprotect
…
Sheet1. Protect
End Sub
Chúc những bạn vận dụng thành công xuất sắc kỹ năng và kiến thức này vào việc làm !
Source: https://final-blade.com
Category: Kiến thức Internet
