Code hay công thức đều được. Cảm ơn bạn.Có code có cần không?
Xem file kèm. hihi ^o^Code hay công thức đều được. Cảm ơn bạn.
Không sao đâu em! trong kế toán: Tài khoản số hiệu 15 nằm bên cột Nợ là Nhập, bên Có là Xuất nên không có gì rối cả! Đánh số thứ tự này dành cho theo dõi Nhập Xuất TK.15 thì được thôi!Bài này rất rối nếu cái 152 có thể là bất kỳ số nào khác thì ^^
Công thức rất hay, cảm ơn bạn. Mình sẽ tìm hiểu thêm về công thức.Không sao đâu em! trong kế toán: Tài khoản số hiệu 15 nằm bên cột Nợ là Nhập, bên Có là Xuất nên không có gì rối cả! Đánh số thứ tự này dành cho theo dõi Nhập Xuất TK.15 thì được thôi!
hihi ^o^
Trong thực tế có khi nào số hóa đơn của nhập và xuất giống nhau không?Xem file kèm. hihi ^o^
Theo dõi TK.15x thì chỉ sợ Hóa đơn Nhập hàng có thể trùng số, còn Xuất là số Cty quy định chuẩn lúc phát hành, có thể gắn thêm ký tự nào đó, nên khó có thể trùng lắp.Trong thực tế có khi nào số hóa đơn của nhập và xuất giống nhau không?
Cho bạn thêm cách tạo phiếu tăng giảm theo ngày hóa đơn, cột ngày hóa đơn không cần sắp theo thứ tự:Gửi anh chị và các bạn,
Em đang cần công thức để đánh số thứ tự phiếu nhập xuất tự động theo tháng. Trong file đính kèm, em đã mô tả yêu cầu cần làm. Mong nhận được sự trợ giúp của mọi người. Chân Thành cảm ơn.
Code hay công thức đều được.
Các bài trên cũng đã có công thức rồi, tôi gởi bài có code cho bạnTrong thực tế có khi nào số hóa đơn của nhập và xuất giống nhau không?
Công thức của bạn rất hay, bạn có thể giải thích rõ công thức giúp mình được k? Đoạn giá trị của hàm N ấy:Cho bạn thêm cách tạo phiếu tăng giảm theo ngày hóa đơn, cột ngày hóa đơn không cần sắp theo thứ tự:
Yêu cầu bấm Ctrl+Shift+Enter cho công thức!!!
Const Alf As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Function MaVT(Dat As Date) As String
MaVT = Mid(Alf, Year(Dat) - 2000, 1)
MaVT = MaVT & Mid(Alf, 1 + Month(Dat), 1)
MaVT = MaVT & Mid(Alf, 1 + Day(Dat), 1)
End Function
Function IDToDate(StrC As String) As Date
Dim Nm As Long, Th As Byte, VTr As Integer
VTr = InStr(Alf, Left(StrC, 1))
Nm = 2000 + VTr
VTr = InStr(Alf, Mid(StrC, 2, 1))
Th = VTr - 1
VTr = InStr(Alf, Right(StrC, 1))
IDToDate = DateSerial(Nm, Th, VTr - 1)
End Function
Cách đánh số phiếu của minh như sau:Các bạn giúp mình theo file đính kèm bài 15. Cảm ơn các bạn nhiều
(Số phiếu của bạn) | Ngày chứng từ | Số hóa đơn | Nợ | Có | GPE.COM | ||
PN002/3 | 3/15/2018 | 05675 | 1521 | 331 | 00H3FN | ||
PN001/3 | 3/10/2018 | 05677 | 1522 | 331 | 00H3AN | ||
PX001/3 | 3/3/2018 | 05677 | 621 | 1521 | 00H33X | ||
PN003/3 | 3/15/2018 | A1 | 1521 | 1111 | 01H3FN | ||
PN003/3 | 4/2/2018 | 632 | 1521 | 331 | 00H42N | ||
PN003/4 | 4/7/2018 | 555ds | 1522 | 331 | 00H47N | ||
PX001/3 | 3/15/2018 | 05677 | 621 | 1522 | 00H3FX | ||
PX001/4 | 4/9/2018 | 900 | 621 | 1521 | 00H49X | ||
PN004/3 | 3/15/2018 | 633 | 1522 | 331 | 02H3FN | ||
PN001/4 | 4/2/2018 | 632 | 1522 | 331 | 01H42N | ||
PN002/4 | 4/2/2018 | 935 | 1521 | 331 | 02H42N | ||
PX001/3 | 3/15/2018 | 789 | 621 | 1522 | 01H3FX | ||
PX001/4 | 4/7/2018 | 789 | 621 | 1522 | 00H47X | ||
GPE.COM | |||||||