Code Vba Thông Dụng Trong Excel - Bài 3

Chào các bạn, Hôm trước trong bài thứ 2 mình đã giới thiệu về code in hàng loạt. Các code này rất hữu ích. Vì hiện nay đa phần các bạn dùng thủ công để thực hiện các thao tác, việc này rất tốn thời gian và hiệu suất công việc kém. Hôm nay mình xin giới thiệu đến các bạn code xóa một vùng dữ liệu lớn.

Hôm nay mình sẽ giới thiệu đến các bạn code Vba về xóa một vùng dữ liệu lớn:
Hiện nay, khi các bạn thao tác nhập liệu vào một file data nào đó, khi đến cuối tháng, cuối quý, hay cuối năm, các bạn muốn xóa dữ liệu trong file kỳ cũ để chuyển file sang kỳ mới, hay năm mới để làm việc. Với một vùng dữ liệu bạn đã nhập vào rất nhiều, việc các bạn chọn vùng để xóa cũng tốn thời gian. Với code này, các bạn chỉ cần bấm nút xóa, thì toàn bộ dữ liệu trong file cũ sẽ được xóa đi.

Dưới đây là code về xóa vùng dữ liệu trong file cũ.
+ Đoạn code như sau:

Sub Xoa()
    Dim Ask
    Ask = MsgBox("Ban co muon xoa khong!", vbYesNo, "Thong bao!")
    If Ask = vbYes Then
        With Sheet9
            .Range("B5:H12000").ClearContents
            .Range("H5:M12000").ClearContents
        End With
    End If
End Sub

- Mình sẽ giới thiệu từng phần trong đoạn code này như sau:

1. Ask: Là trước khi xóa, code sẽ hiện thông báo, nếu bạn muốn xóa thì bấm Ok. Không thì bấm No.

2. Sheet9: Là Sheet chứa dữ liệu cần xóa, nếu file bạn sheet nào thì bạn sửa lại sheet đó theo số thứ tự.

+ Để biết sheet có chứa dữ liệu là sheet nào, các bạn bấm ALT + F11 và xem bên trái phần VbaProject. Nó sẽ hiện số thứ tự sheet và tên sheet, các bạn xem và sửa lại cho đúng sheet.

3. Range("B5:H12000"): Là vùng chứa dữ liệu cần xóa trong sheet đã chọn.

+ Nếu các bạn muốn xóa xen kẽ các vùng thì có thể copy đoạn ".Range("H5:M12000").ClearContents" để Enter xuống dòng trước "End With" và sửa lại vùng xen kẽ mình cần xóa.

=> Vậy là code Vba về xóa vùng dữ liệu lớn mình đã giới thiệu xong. Các bạn muốn xóa được thì phải tạo một nút để bấm xóa như mình đã giới thiệu trong bài 2. Và đưa code vào Module như mình đã giới thiệu trong bài 1.

+ Mình xin đăng lại hình ảnh để các bạn xem cho dễ hiểu.

A. Thêm code vào Module. Các bạn copy đoạn code của mình và dán vào Module như hướng dẫn sau:

Các bạn bấm ALT + F11 để có được hình như bên dưới nhé.

B. Tạo nút bấm xóa như hình ảnh sau. Mình xin đăng lại hình của bài 2.

=> Chú ý: Ở hộp Macros in: Các bạn chọn file hiện hành bạn đang đặt code để xóa dữ liệu file cũ nghe.
Chúc các bạn thành công. Nếu chưa rõ, các bạn có thể Comment vào bài viết nhé.
Cảm ơn và chào các bạn!