Kết quả tìm kiếm cho từ khóa: in phiếu thu

file này dùng cho cấp học nào bạn

Cách sử dụng có ngay từ bài #1 rồi đây bạn.

Mình thấy file của bạn rất hay mình xin cách sử dụng để áp dụng cho trường mình? cảm ơn bạn?

bạn copy lại công thức trên giùm mình tham khảo với nhé, thanks bạn nhiều ạ

cảm ơn bạn nhiều ạ. Do bên mình 112BV và 112MB là tk cá nhân ck thay cho chi tiền mặt. Còn 112BIDV là tk cty, rồi cũng có cả chi bằng tiền mặt 111 nữa nên hơi rắc rối bạn ạ. Nếu đưa hết các Tk 112 về phiếu Ngân hàng thì sẽ bị lẫn lộn 112 cá nhân và của cty. Công thức hôm trước của bạn hợp lý hơn...

Ý tưởng của mình mà chuyển các TK 112 về phiếu NH, Các PC và PT chỉ liên quan đến TK 111: Bạn áp dụng công thức...

Bạn nên xem lại phần nguyên lý đặt điều kiện phiếu thu chi nếu đã đặt phiếu thu chi theo 112 thì sẽ không thể đặt theo 111 đơn cử như bút toán Nợ 111 Có 112 thì sẽ là phiếu thu hay phiếu chi?

Chỉnh tí . . . . Sub NewPhieuNX(MaPhieu) Dim arr(), t&, eR&, i&, sp$, myDate As Date, w& myDate = Sheet1.Range("B5").Value w = Int((myDate - 2) / 7) eR = Sheet1.Range("A" & Rows.Count).End(xlUp).Row arr = Sheet1.Range("A1:B" & eR).Value For i = UBound(arr) To 2 Step -1 If...

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 =...

Cám ơn anh đã giúp! Anh thêm giúp ngày tháng phụ thuộc vào ô B5 nhé! (Khi ngày ô này sang thứ 2 thì chạy 001 trở lên đến chủ nhật là mã phiếu cuối)

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 =...

Cám ơn anh đã giúp! em test file sang tháng 9 thì mã tạo là 002 trở lên (đúng là 001) và xoá hết cột A thì code báo lỗ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 ý đó.

file của em chỉ có cột ngày thôi anh!

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...

bạn thêm giùm mình công thưc thu chi tk 111 luôn nhé. Caem ơn bạn nhiều ạ

bạn gửi lại giùm mình file bạn làm được k ạ. Mình copy công thức mà k ra kết quả

Đây là ý tưởng tách phiếu Thu, 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...

ví dụ nợ 112BV là PC, có 112BV là PT bạn ạ. Còn mấy chứng từ luân chuyển nội bộ mình sẽ đổi tên PKT