Đang chuẩn bị liên kết để tải về tài liệu:
Tự động trích ngang dữ liệu trong Excel

Ví dụ, chúng ta có một mẫu nhật ký chi tiền mặt (hình 1) với quy ước nhập liệu là nếu một chứng từ có nhiều tài khoản đối ứng thì nhập trên nhiều dòng khác nhau nhưng các cột ngày, số chứng từ và nội dung phải giống nhau. | Tự động trích ngang dữ liệu trong Excel Ví dụ chúng ta có một mẫu nhật ký chi tiền mặt hình 1 với quy ước nhập liệu là nếu một chứng từ có nhiều tài khoản đối ứng thì nhập trên nhiều dòng khác nhau nhưng các cột ngày số chứng từ và nội dung phải giống nhau. Nhiệm vụ được chia nhỏ thành 3 thủ tục macro để tiện cho việc bảo trì sửa đổi mã lệnh sau này khi cần thiết xin được bỏ qua bước trình bày cách tạo lưu giữ và quản lý module các thao tác này khá đơn giản . Một số điểm cần lưu ý trước khi trình bày mã lệnh của các thủ tục . Để gán giá trị của một cell vào biến hãy di chuyển đến cell này và dùng thuộc tính value của cell hiện hành gán cho biến đã khai báo Bien ActiveCell.Value . Xong các lệnh gán nhớ quay trở về cell cũ trước khi di chuyển. . Sử dụng địa chỉ kiểu tương đối khi di chuyển cell bằng thuộc tính Offset Offset Row Column . . Dùng một macro thứ tư gọi lần lượt 3 macro trên để hình thành một quá trình hoàn chỉnh gán phím tắt cho macro này để tiện sử dụng. 1. Trích ngang dữ liệu theo tài khoản phát sinh. Trong thủ tục này căn cứ vào số hiệu tài khoản tại cột TK số tiền tương ứng được trải ra theo chiều ngang tiền của tài khoản nào được điền vào cột mang đúng số hiệu tài khoản đó. Sub TrichNgang Dim Taikhoan As String Dim ThutuDong SoCot As Integer Dim Sotien As Long Range D2 .Select Lặp đến dòng cuối của danh sách Do Until ActiveCell.Value Taikhoan ActiveCell.Value ActiveCell.Offset 0 1 .Range A1 .Select Sotien ActiveCell.Value Range F1 .Select SoCot 2 Thực hiện cho đến cột tài khoản cuối cùng. Nếu tìm thấy số hiệu tài khoản thì điền số tiền lên dòng trên cùng của chứng từ và thoát vòng lặp. Do Until ActiveCell.Value If ActiveCell.Value Taikhoan Then ActiveCell.Offset ThutuDong 1 0 .Range A1 .Select ActiveCell.Value Sotien Exit Do Else ActiveCell.Offset 0 1 .Range A1 .Select End If SoCot SoCot 1 .