Dùng VBA để đánh số phiếu tự động thay vì áp dụng công thức

[SA_DQ]

Em có ý tưởng muốn tạo số phiếu tự động với điều kiện cần thiết, nếu năm đánh số phiếu khác năm trước thì sẽ đánh lại số phiếu từ đầu
E có sử dụng công thức excel, nhưng làm với số lượng dòng trên vạn dòng thì chạy rất lâu và có khi bị đứng máy
Em có viết code bằng vba nhưng do trình độ còn non, code cũng không được nhanh hơn là mấy
Em gửi file lên mong anh chị xem qua và chỉ cách cho em với ạ!

Số phiếu mình đề nghị có khác với bạn 1 chút; Chúng gồm luôn là 10 kí tự (hay ký số),đó là

AJLA16N002

AJLA16N002

AJLA16X001

AJLACUX246

AJLACVG001

AJLACVG001

. . . .

Giải thích:
3 ký tự đầu là quy ước của CQ bạn;
3 ký tự tiếp theo là mã hóa Năm-Tháng-Ngày: 'A' là năm 2020; năm 2021 sẽ là 'B'
Ký tự tiếp theo chỉ số tháng: '9' là tháng 9; 'A' sẽ là tháng 10;
Tiếp sẽ là ký tự chỉ ngày: 'Ngày 11 là 'B', . . . .
Ký tự thứ 4 trước cuối chỉ ra hướng của phiếu: 'N' là nhập'; 'X' là xuất & 'G' là khác
3 ký số cuối là số phiếu tăng dần trong năm; Năm sau lại bắt đầu theo yêu cầu của bạn
[Ở đây số phiếu theo 'N' , 'X' hay 'G' tăng theo riêng rẽ]

Các bạn tham khảo theo file