Hướng dẫn tự động cập nhật số cái trong Excel bằng VBA

Trong bài viết này, chúng ta sẽ tìm hiểu cách tự động cập nhật dữ liệu trong số cái bằng cách sử dụng VBA. Bằng phương pháp này, bạn có thể tiết kiệm thời gian và nâng cao hiệu quả làm việc với Excel. Hãy cùng khám phá các bước thực hiện chi tiết nhé!

Bước 1: Xây dựng nội dung số cái lấy dữ liệu từ Nhật ký chung

Để bắt đầu, việc đầu tiên là thiết lập nội dung cho số cái của bạn. Dữ liệu này sẽ được lấy từ Nhật ký chung. Bạn có thể tham khảo hướng dẫn cách lập công thức lấy dữ liệu từ Nhật ký chung sang số cái Excel tại đây.

Bước 2: Tại Cột H (Xử lý để lọc dòng có dữ liệu)

Để lọc dữ liệu một cách hiệu quả, bạn cần sử dụng công thức lọc các nội dung phát sinh. Dưới đây là cách sử dụng công thức để thực hiện điều đó:

• Sử dụng công thức lọc các nội dung phát sinh:

  IF(A12="", "", "x") 

  Nếu ô A12 trống thì sẽ lấy giá trị trống, còn nếu có dữ liệu (không trống) thì sẽ lấy giá trị là chữ “x”.

• Sử dụng chức năng Data/Filter để loại bỏ các dòng trống trong bảng cách chọn các giá trị khác.

Lọc dữ liệu trong Excel

Bước 3: Ghi lại Macro để xem việc lọc dữ liệu được biểu diễn thế nào trên VBA

Bạn cần sử dụng chức năng Record Macro trong tab Developer để ghi lại thao tác:

• Thực hiện thao tác lọc dữ liệu tại Bước 2 để xem thao tác đó biểu diễn bằng VBA như thế nào.
• Sau khi ghi xong thao tác, bấm Stop Recording và mở cửa sổ số VBA (phím tắt Alt + F11).

Ghi lại Macro trong Excel

Bước 4: Thiết lập VBA cho việc khi sheet Số cái thay đổi dữ liệu ở ô I1 thì sẽ thực hiện lại thao tác lọc dữ liệu

Trong cửa sổ VBA, bạn sẽ thiết lập để tự động thực hiện các bước khi có sự thay đổi trong sheet Số cái. Thực hiện các bước sau:

• Trong cửa sổ VBA, hãy vào Module vừa được tạo ra từ chức năng Record Macro, sao chép dòng code cho việc lọc các dòng trong ô Cột H.
• Double click vào sheet Số cái, chọn sự kiện Change (khi có sự thay đổi dữ liệu trong sheet).

Thiết lập VBA cho sheet

Bạn sẽ viết đoạn code này vào trong phần Sub Worksheet_Change:

If Not Application.Intersect(Range("I1"), Range(Target.Address)) Is Nothing Then
    ActiveSheet.Range("$A$9:$H$1019").AutoFilter Field:=8, Criteria1:=""
End If

Đoạn code này sẽ đảm bảo: nếu ô I1 có sự thay đổi thì sẽ thực hiện thao tác lọc dữ liệu ở Bước 2.

Kết quả sẽ như sau:

Bạn đã hoàn thành! Hãy thử đóng cửa sổ VBA lại và thay đổi số tài khoản ở ô I1 xem kết quả như thế nào nhé.

Với các bước chi tiết nêu trên, bạn đã tìm hiểu cách tự động cập nhật số cái với VBA trong Excel. Nếu bạn có bất kỳ thắc mắc nào, hãy để lại ý kiến ngay dưới bài viết để được hỗ trợ từ những nhân viên có nhiều năm kinh nghiệm trong Excel.

Ngoài ra, hãy tham khảo khóa học “Trần bộ kỹ năng nghiệp vụ kế toán tổng hợp online trên Excel“. Khóa học này sẽ giúp bạn bổ sung và hoàn thiện kiến thức nghiệp vụ kế toán tổng hợp, đồng thời xây dựng được trình bày file Excel để làm kế toán tổng hợp từ 1 file excel trắng. Chi tiết xem tại: loigiaihay.edu.vn.