Hoàn thiện sổ NKC (1 người xem)

[cuongnguyencuong]

Cả nhà ai giúp được mình, giúp mình hoàn thiện sổ NKC giống như 1 phần đã làm. Cám ơn mọi người rất nhiều.

 

[nmhung49]

Cả nhà ai giúp được mình, giúp mình hoàn thiện sổ NKC giống như 1 phần đã làm. Cám ơn mọi người rất nhiều.

Chép chồng lên code cũ vì code cũ đã làm đúng 1 phần rồi
[GPECODE=vb]
Public Sub GPE1()
Dim Rng(), Arr(), I As Long, K As Long, N As Long
With Sheet2
Rng = .Range(.[A18], .[J65000].End(xlUp)).Resize(, 16).Value


End With
N = UBound(Rng, 1)
ReDim Arr(1 To N * 2, 1 To 9)
For I = 1 To N

K = K + 1
Arr(K, 1) = Rng(I, 8): Arr(K, 2) = IIf(Rng(I, 2) <> "", Rng(I, 2), IIf(Rng(I, 4) <> "", Rng(I, 4), Rng(I, 6)))
Arr(K, 3) = IIf(Rng(I, 2) <> "", Rng(I, 3), IIf(Rng(I, 4) <> "", Rng(I, 5), Rng(I, 7)))
Arr(K, 4) = Rng(I, 9)
Arr(K, 5) = "a": Arr(K, 6) = Rng(I, 1)
Arr(K, 7) = Rng(I, 10): Arr(K, 8) = Rng(I, 12)
K = K + 1
Arr(K, 1) = Rng(I, 8)
Arr(K, 2) = Arr(K - 1, 2)
Arr(K, 3) = Arr(K - 1, 3)
Arr(K, 4) = Arr(K - 1, 4)
Arr(K, 5) = Arr(K - 1, 5)
Arr(K, 6) = Arr(K - 1, 6)
Arr(K, 7) = Rng(I, 11): Arr(K, 9) = Rng(I, 12)
Next
Sheet3.[A11].Resize(20, 9).ClearContents
If K Then Sheet3.[A11].Resize(K, 9).Value = Arr
End Sub

Còn format định dạnh bạn tự làm bằng tay nếu muốn code thì cũng được tại không siêng cho lắm


[/GPECODE]

 

[sealand]

Có 2 vấn đề bạn nên xem lại trước khi viết Code kẻo sau điều chỉnh rất mệt:
1/ Cấu trúc sổ nhật ký chung bạn Modify quá nhiều nên nó không còn theo mẫu chung nữa.
2/Bạn nên thêm vào các bút toán 1 Nợ nhiều Có và ngược lại xem sao. Lúc đó 1 chứng từ nó mới lủng củng chứ đâu có đúng nữa.

 

[cuongnguyencuong]

Cám ơn bạn nmhung49 rất nhiều. Nhận được code của bạn mình mừng lắm, tưởng đâu không ai viết đươc. Chân thành cảm ơn bạn.

 

[cuongnguyencuong]

Có 2 vấn đề bạn nên xem lại trước khi viết Code kẻo sau điều chỉnh rất mệt:
1/ Cấu trúc sổ nhật ký chung bạn Modify quá nhiều nên nó không còn theo mẫu chung nữa.
2/Bạn nên thêm vào các bút toán 1 Nợ nhiều Có và ngược lại xem sao. Lúc đó 1 chứng từ nó mới lủng củng chứ đâu có đúng nữa.

Cám ơn lời góp ý của bạn. nhưng mình chỉ định khoản 1 Nợ 1 Có thôi, còn 1 Nợ nhiều Có hay nhiều Nợ nhiều có thì mình không biết tạo cái data như thế nào thì có thể định khoản được như vậy.

 

[sealand]

Bạn thử hạch toán nghiệp vụ sau: Hạch toán tiêu thụ 1 lô hàng tổng trị giá HD là 2.035.000 (Đã có thuế VAT 10%) và trị giá xuất kho lô hàng là 1.790.000. Hàng chận thanh toán

Nó sẽ có 2 bút toán:

1/Bút toán xuất kho: Nợ 632-Có 156: 1.790.000 (HT giá vốn hàng bán, mình đưa lên trước vì nó là bút toán đơn định khoản)

2/ HT tiêu thụ:Đây là bút toán định khoản kép nên trên data của bạn sẽ có 2 dòng là:

+Nợ 131-Có 511: 1.850.000 (HT tiền bán hàng chưa thuế)
+Nợ 131-Có 333: 185.000 (HT thuế GTGT)

Và các dòng trên NKC là
+Nợ 131: 2.035.000
+Có 511: 1.850.000
+Có 333: 185.000

Vậy là bút toán định khoản kép là đương nhiên phải đối mặt và trong NKC nếu 1 chứng từ thì mỗi TK chỉ ghi 1 lần mà thôi.

Cám ơn lời góp ý của bạn. nhưng mình chỉ định khoản 1 Nợ 1 Có thôi, còn 1 Nợ nhiều Có hay nhiều Nợ nhiều có thì mình không biết tạo cái data như thế nào thì có thể định khoản được như vậy.

Cái đo đỏ là do bạn viết chứ mình không biết đâu nha!!!

 

[cuongnguyencuong]

Cái Data của mình đơn giản như vậy thôi, nếu định khoản kép thì ghi TK nợ có làm sao? bạn xem thử coi.

 

[cuongnguyencuong]

Public Sub GPE1()
Dim Rng(), Arr(), I As Long, K As Long, N As Long
With Sheet2
Rng = .Range(.[A18], .[J65000].End(xlUp)).Resize(, 16).Value


End With
N = UBound(Rng, 1)
ReDim Arr(1 To N * 2, 1 To 9)
For I = 1 To N

K = K + 1
Arr(K, 1) = Rng(I, 8): Arr(K, 2) = IIf(Rng(I, 2) <> "", Rng(I, 2), IIf(Rng(I, 4) <> "", Rng(I, 4), Rng(I, 6)))
Arr(K, 3) = IIf(Rng(I, 2) <> "", Rng(I, 3), IIf(Rng(I, 4) <> "", Rng(I, 5), Rng(I, 7)))
Arr(K, 4) = Rng(I, 9)
Arr(K, 5) = "a": Arr(K, 6) = Rng(I, 1)
Arr(K, 7) = Rng(I, 10): Arr(K, 8) = Rng(I, 12)
K = K + 1
Arr(K, 1) = Rng(I, 8)
Arr(K, 2) = Arr(K - 1, 2)
Arr(K, 3) = Arr(K - 1, 3)
Arr(K, 4) = Arr(K - 1, 4)
Arr(K, 5) = Arr(K - 1, 5)
Arr(K, 6) = Arr(K - 1, 6)
Arr(K, 7) = Rng(I, 11): Arr(K, 9) = Rng(I, 12)
Next
Sheet3.[A11].Resize(20, 9).ClearContents
If K Then Sheet3.[A11].Resize(K, 9).Value = Arr
End Sub

Nếu cái này thêm điều kiện là bằng hoặc nhỏ hơn ngày, tháng, năm của điều kiện nữa thì làm như thế nào vậy ban nmhung49

 

[sealand]

Bạn tham khảo cấu trúc sổ và cách ghi sổ Nhật Ký Chung nha

Mình mới xem cái file bạn gửi và thấy có vấn đề như sau:
1/Các số thứ tự 01 và 02: Không ghi Hoá đơn vì đây chỉ là HT thu tiền. Nếu ghi HĐ thì phải hạch toán tiếp phần tiêu thụ và giá vốn.
Thanh toán qua Ngân hàng mà bạn lại ghi là PT có nhầm gì không? Đúng ra nó là Báo Có BC

2/Các bút toán khử trùng ta chỉ hạch toán 1 loại chứng từ để tránh sai sót:
+Mua hàng bằng tiền mặt bạn vào dữ liệu cả bằng phiếu nhập, cả bằng phiếu chi coi chừng vào 2 lần đó nha.
+Nộp tiền mặt vào TK: Chỉ vào theo phiếu chi hoặc theo báo có NH. (Bỏ 1 thứ)

3/Dữ liệu bạn nhờ người khác làm giúp mà sơ sài và tạm bợ quá (Nó lơ lửng giữa sheet và dưới còn vô số bản nháp nữa ) code nào mà chạy được.

 

[cuongnguyencuong]

ah. Cái NKC của bạn là làm giống y chang của phần mềm A-Excel rồi. cái đó khó làm lắm. Chưa ai hiểu đâu. Không biết tạo Data như thế nào để ra được như vậy nữa nè.

1/Các số thứ tự 01 và 02: Không ghi Hoá đơn vì đây chỉ là HT thu tiền. Nếu ghi HĐ thì phải hạch toán tiếp phần tiêu thụ và giá vốn.
Thanh toán qua Ngân hàng mà bạn lại ghi là PT có nhầm gì không? Đúng ra nó là Báo Có BC

còn cái phần này thì mình chỉ làm cho có TK thôi, để code thể hiện được là ok rồi. Chứ không cần thể hiện đúng như khi lập để thể hiện số kế toán thật. Hoá ra dài dòng lắm.

 

[sealand]

Vậy thì bạn xem đây có y chang không?
Lưu ý:

-Các định khoản của 1 bút toán phải cùng số Bút toán
-Mỗi bút toán chỉ có 1 chứng từ.

P/s: Trên báo biểu bạn xoá giùm chữ Đối ứng trên tiêu đề cột Tài khoản đối ứng.

 

[cuongnguyencuong]

Cám ơn bạn. Sao hay quá vậy, nếu mình muốn thêm 1 sheet để làm bảng cân đối tài khoản, để những ô trống trong NKC thể hiện luôn tên tài khoản thì phải làm sao bạn. thật là hay quá đi, cám ơn bạn rất nhiều
Bạn coi file đính kèm xem có giúp mình được không ?

 

[sealand]

Hoàn toàn đúng vì file của bạn không có danh mục TKnên bỏ trống

 

[cuongnguyencuong]

Vậy bạn xem và hoàn thiện giúp mình nhe, mình rất vui sướng khi được bạn giúp đỡ hết mình. cám ơn bạn rất nhiều !, giúp thì giúp cho trót đi Sealand. mình đang chờ hồi âm của bạn đó.