Làm thế nào để lấy tài khoản đối ứng trên phần mềm Misa bằng code lập trình? (1 người xem)

[thinhnx22]

Hiện tại tôi đang làm trên phần mềm misa. Khi kết xuất ra sổ nhật ký chung thì chỉ có định khoản không có tài khoản đối ứng. Tôi muốn nhờ mọi người giúp tôi lấy được tài khoản đối ứng giống như cột H (màu vàng) bằng code lập trình. Trân trọng cảm ơn các anh chị. Chúc anh chị một ngày vui.

 

[thinhnx22]

Ơ phần mềm MISA sao lên GPE hỏi...Thế không biết gọi cho MISA mà hỏi ah???

Cái này là kết xuất excel mà bạn, Misa đâu có hỗ trợ phần này đâu.

 

[thinhnx22]

Kết xuất ra Excel, xuất từ MISA ra...Không phải là do Misa ah??? Chẳng nhẻ bạn xuất ra file excel từ trên trời ah???
Ai nói bạn Misa không hỗ trợ vấn đề này???

Tôi đã hỏi bên Misa rồi nên tìm hiểu các diễn đàn nên mới lên đây nhờ trợ giúp. nếu bạn giúp được thì tốt quá. Cảm ơn bạn

 

[sealand]

Bạn để ý 1 chút cấu trúc của sheet NKC kết xuất ra theo file của bạn nó có 1 nguyên tắc có thể cho bạn sử lý ngay bằng công thức chứ chưa cần đến VBA. Misa làm việc này khá đơn giản không màu mè như các phần mềm khác. Đối với mỗi bút toán trong từng chứng từ họ tách ngay thành 2 dòng đơn:
-Dòng 1 ghi TK phát sinh Nợ và số tiền Nợ : TK đối ứng chính là TK dòng kế.
-Dòng 2 ghi TK phát sinh Có và số tiền Có: TK đối ứng chính là TK dòng trước.

Cứ vậy, lần lượt cho hết chứng từ đó và tiếp các chứng từ khác.

Tại H11 nhập công thức và filldown xuống là được:

=IF(I11<>0,G12,IF(J11<>0,G10,""))

Thích Code thì cứ theo quy luật đó sử lý cũng xong.

(P/s: Các bạn giúp nhau nên đọc kỹ 1 chút, đây là người ta hỏi file Excel kết xuất từ Misa chứ không phải hỏi viết code sử lý thẳng từ Misa. Mà sử lý thẳng từ dữ liệu lưu trữ của Misa thì cũng vẫn được, chủ yếu là xem họ lưu trữ data dưới dạng nào rồi từ đó mình trích rút dữ liệu theo ý mình chứ không qua kết xuất của Misa nữa. Trong nghề kế toán việc kết quả phần mềm không đáp ứng đủ yêu cầu người dùng cũng là thường, nhất là các đơn vị nghèo dùng phần mềm rẻ tiền)

 

[thinhnx22]

Bạn để ý 1 chút cấu trúc của sheet NKC kết xuất ra theo file của bạn nó có 1 nguyên tắc có thể cho bạn sử lý ngay bằng công thức chứ chưa cần đến VBA. Misa làm việc này khá đơn giản không màu mè như các phần mềm khác. Đối với mỗi bút toán trong từng chứng từ họ tách ngay thành 2 dòng đơn:
-Dòng 1 ghi TK phát sinh Nợ và số tiền Nợ : TK đối ứng chính là TK dòng kế.
-Dòng 2 ghi TK phát sinh Có và số tiền Có: TK đối ứng chính là TK dòng trước.

Cứ vậy, lần lượt cho hết chứng từ đó và tiếp các chứng từ khác.

Tại H11 nhập công thức và filldown xuống là được:

=IF(I11<>0,G12,IF(J11<>0,G10,""))

Thích Code thì cứ theo quy luật đó sử lý cũng xong.

Cảm ơn bạn đã giúp đỡ. Công thức vậy là ok rồi, nhờ bạn trợ giúp thêm đoạn code nữa thì tuyệt vời

 

[sealand]

Nếu thích Code thì viết dựa theo nguyên tắc bài trước

Option Explicit
Sub FillTK()
Dim Tm, Kq(), i
Tm = Sheet1.Range(Sheet1.[A9], Sheet1.[A65000].End(3)).Resize(, 10)
ReDim Kq(1 To UBound(Tm, 1), 1 To 1)
For i = 1 To UBound(Tm, 1)
If Tm(i, 9) <> 0 Then Kq(i, 1) = Tm(i + 1, 7)
If Tm(i, 10) <> 0 Then Kq(i, 1) = Tm(i - 1, 7)
Next
Sheet1.[H9].Resize(UBound(Kq), 1) = Kq
End Sub

 

[thinhnx22]

Nếu thích Code thì viết dựa theo nguyên tắc bài trước

Option Explicit
Sub FillTK()
Dim Tm, Kq(), i
Tm = Sheet1.Range(Sheet1.[A9], Sheet1.[A65000].End(3)).Resize(, 10)
ReDim Kq(1 To UBound(Tm, 1), 1 To 1)
For i = 1 To UBound(Tm, 1)
If Tm(i, 9) <> 0 Then Kq(i, 1) = Tm(i + 1, 7)
If Tm(i, 10) <> 0 Then Kq(i, 1) = Tm(i - 1, 7)
Next
Sheet1.[H9].Resize(UBound(Kq), 1) = Kq
End Sub

Tuyệt vời. Cảm ơn bạn, vì đang cần gấp quá (quyết toán bên thuế) nên không có thời gian mà suy nghĩ. Được bạn giúp đỡ nhiệt tình thế này thì cảm kích quá. Chúc bạn nhiều sức khỏe và thành công.