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ốinế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 | |||||||
Cháu sẽ tìm hiểu cách làm của bác. Cảm ơn bác nhiều ạ.Cách đánh số phiếu của minh như sau:
NNFNAX
2 kí số đầu tăng theo thứ tự số phiều trong ngày của nhập hay xuất hàng
Sau đó là 3 kí tự /hay kí số để chỉ 1 ngày-tháng-năm lập phiếu cụ thể nào đó
Kí tự cuối chỉ gồm 'N' hay 'X', đại diện để chỉ quá trình vận hành HH trong kho theo chiều nào
(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
Cảm ơn bạn nhiều nhé, công thức rất hay. Thực ra khi sắp xếp ngày chứng từ theo trật tự thì công thức và VBA đều dễ làm hơn là khi không sắp xếp, nhưng vẫn muốn thử là nếu không sắp xếp ngày tháng thì VBA nó làm ra sao bạn ạ.dùng office 2019 nha.
file dùng công thúc
bạn ơi nếu không phải là N152, C152 thì k đánh phiếu sẽ làm như nào vậy.Xem file kèm. hihi ^o^