Bạn ơi. công thức bạn gửi nó lọc 112BV, 112MB, 112BIDVI. Mỗi tk ngân hàng nó sẽ tự đánh riêng PC, PT dù cùng 1 tháng bạn ạ
VD: trong tháng 3, ngày 01/03/2025 mình chi 112BV số PC đang từ PC03001- PC03005, nhưng hạch toán tiếp 112MB thì lại PC03001
Sửa lại cái sub TaoMaCT() chút.
Function TaomaCT(maCT As String) As String
Dim lrow As Long, arrData(), i As Long
Dim nam As Long, thang As Long, curYear As Long, curMonth As Long, stt As Long, sttMax As Long, maCT_tk As String, maCTMoi As String
lrow =...
Số phiếu có số thứ tự liên tục, tháng sau sẽ đánh từ 001
Sub NewPhieuNX(MaPhieu)
Dim arr(), t$, eR&, i&, sp$, myDate As Date
myDate = Date
t = Format(myDate, "yymm??-") & MaPhieu
eR = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
arr = Sheet1.Range("A1:B" & eR).Value
For i =...
Bạn xem file đính kèm.
File này của bạn chỉ test chơi thôi chứ thực tế không thiết kế kiểu vậy được.
Bạn phải vẽ ra được cái qui trình nhập liệu thực tế, các tham số nào cần đưa vào (như loại CT, ngày CT...) sau đó dựa 2 tham số đó mà tạo phiếu. Như kiểu bác SA đã gợi ý đó.
Mình đi nhờ Copilot đây:
Viết giúp mình macro sự kiện để khi nhập N hay X ở cột 'Loại'thì cột mã phiếu sẽ được macro điền tiếp mã phiếu theo qui tắc được ghi ở cột cuối
Tuyệt vời! Mình sẽ giúp bạn viết một macro sự kiện Worksheet_Change để tự động điền mã phiếu khi bạn nhập N hoặc X vào cột...
Đây là ý tưởng tách phiếuThu, Chi, Ngân hàng, Phiếu kế toán theo tài khoản 112 không cần tách cột phụ bạn có thể thử ( công thức áp dụng cả cột "số hiệu"):
=IFS(AND(LEFT(D3,3)="112",LEFT(E3,3)="112"),"NH"&TEXT(MONTH(A3),"00")&TEXT(COUNTIFS($D$2...
Nếu bạn không thêm cột phụ thì bạn cần làm rõ điều kiện nào là phiếuthu, điều kiện nào là phiếu chi... Vì mình đang thấy file của bạn điền phiếuthu và chi không tương ứng với tài khoản Nợ Có.
Mình có ý tưởng đánh phiếuthu chi tăng theo ngày của từng loại phiếu:
[Cột mã phiếu là cột mình mong muốn]
Mong muốn này của mình được Copilot thỏa đáng như macro dưới đây:
Sub TaoMaPhieu()
Dim lastRow As Long, i As Long, j As Long
Dim ngay As Date
Dim namMa As String...
ABC
1NgàyPhiếuSố
21/1/2025PCPC01001
31/1/2025PTPT01001
41/2/2025PCPC01002
51/2/2025PTPT01002
62/9/2025PKTPKT02001
73/1/2025PKTPKT03001
83/5/2025PKTPKT03002
93/20/2025PKTPKT03003
103/31/2025PKTPKT03004
Nếu ý tưởng của bạn là ra kết quả như thế này thì có thể thêm cột phụ...
Đây bạn ạ. Mình muống đánh số thứ thự các phiếuthu, chi theo tháng. vì khi làm mình nhập 1 loaajt, giờ filter lại để lọc nhưng lại k kéo tăng số thứ tự được ạ