Cách đánh số chứng từ tự động bằng VBA

Chào các bạn , ở bài này mình sẽ hướng dẫn các bạn đánh số chứng từ tự động bằng VBA. Nào chúng ta bắt đầu nhé : Giả sử chúng ta có dữ liệu sau : (Vui lòng download file đính kèm ở cuối bài viết) Trong đó cột Phiếu chứa 2 loại là phiếu nhập và phiếu xuất được đánh số theo quy luật [Mã ...

Chào các bạn , ở bài này mình sẽ hướng dẫn các bạn đánh số chứng từ tự động bằng VBA. Nào chúng ta bắt đầu nhé :

Giả sử chúng ta có dữ liệu sau : (Vui lòng download file đính kèm ở cuối bài viết)

Trong đó cột Phiếu chứa 2 loại là phiếu nhập và phiếu xuất được đánh số theo quy luật

[Mã phiếu] + [Số phiếu]

[Mã phiếu] : Gồm 01 ký tự : “N” tức phiếu nhập, “X” tức phiếu xuất

[Số phiếu] : Gồm 04 ký tự sốliên tục

Như vậy phiếu nhập có dạng : N0001,N0002,N0003……. phiếu xuất có dạng X0001,X002,X0003

việc đánh số liên tục thủ công cũng không phải khó khăn gì. Tuy nhiên để hạn chế sai sót và tiện lợi hơn, ta có thể dùng đến VBA

Thuật toán của chúng ta là tìm kiếm ký tự “N” hoặc “X” trong cột Phiếu(tùy theo loại phiếu mà ta muốn tạo mới) . Chiều tìm là từ dưới lên , nếu tìm được thì lấy mã phiếu nối chuỗi với số phiếu gần nhất tịnh tiến thêm 1 đơn vị.Nếu không tìm thấy thì ta tạo phiếu đầu tiên “N0001″” hoặc “X0001”

Cụ thể code VBA như sau :

View the code on Gist.

Xong , bây giờ ta gắn hai sub taophieunhap và taophieuxuat vào hai nút bấm là xong, cần tạo phiếu gì nhấn nút là xong.

Nếu bạn vẫn chưa hiểu vui lòng xem video nhé

Tải về :