dòng 26 không có số tiền là gì vậy, xử lý ra sao?
5 dòng cuối tính số tiền từng định khoản giản đơn bao nhiêu, ghi rỏ ra
Bạn trình bày ví dụ mẩu kết quả
5 dòng cuối bạn tính định khoản như thế nào, bạn gởi lại file với dữ liệu gốc xuất từ phần mềm không thêm bớt và không được sort
Vấn đề đơn giản hơn rồi, còn 3 vấn đề
trong mẩu dòng đầu tiên có bên nợ là 642311(Printing and Stationery Exps) và bên có là 331127(The Gia) vậy chọn (Printing and Stationery Exps) hay (The Gia)
Kiểu nầy dùng công thức hơi khó phải dùng nhiều cột phụ, dùng VBA cho đơn giản được không
bạn chạy code và kiểm tra xem có sai sót không, mình tạo số thứ tự nghiệp vụ cho bạn dể kiểm tra, nếu cần mình sẽ bỏ cột thứ tự nghiệp vụ
Anh đính kèm nhầm file phải không?
(Sub NKC chưa đủ)Đính kèm nhầm file rồiAnh đính kèm nhầm file phải không?
-----
DeleteRow thì xóa lùi (step < 0) chứ anh.
, đã chỉnh lại file 
Bác HieuCD cho e hỏi chút ạ,Đính kèm nhầm file rồi
Chúc các bạn một ngày chủ nhật vui
Vi phạm nguyên tắc hạch toán kế toán và yêu cầu tổ chức cơ sở dữ liệu, nên có thể làm được, hên xui
Trường hợp nhiều hơn dạng 3 nợ 2 có thì việc tách này chắc phải tách tay rồi
Em cũng muốn chuyển nhật ký chung có 1 cột tài khoản thành 2 cột tài khoản.
Nếu dữ liệu chuẩn như ví dụ
Sub NKC()
Dim sArr(), Res()
Dim i As Long, k As Long, sRowNo As Long, fRow As Long
Dim jNhieu As Byte, jDU As Byte
Dim ST As Double, tkNo As String, tkCo As String, tkDU As String
Application.ScreenUpdating = False
With Sheets("NKC2")
i = .Range("A" & Rows.Count).End(xlUp).Row
If i > 3 Then .Range("A4:F" & i).Clear
If i > 2 Then .Range("A3:F3").ClearContents
End With
With Sheets("NKC1")
i = .Range("A" & Rows.Count).End(xlUp).Row
If i < 3 Then MsgBox ("Khong co du lieu"): Exit Sub
sArr = .Range("A2:F" & .Range("A" & Rows.Count).End(xlUp).Row + 1).Value
End With
ReDim Res(1 To UBound(sArr), 1 To 6)
For i = 2 To UBound(sArr) - 1
If sArr(i, 1) <> sArr(i - 1, 1) Then fRow = i
If sArr(i, 5) > 0 Then
sRowNo = sRowNo + 1
tkNo = sArr(i, 4)
Else
tkCo = sArr(i, 4)
End If
If sArr(i, 1) <> sArr(i + 1, 1) Then
If sRowNo = 1 Then
jNhieu = 6: jDU = 4: tkDU = tkNo
Else
jNhieu = 5: jDU = 5: tkDU = tkCo
End If
sRowNo = 0
For n = fRow To i
ST = sArr(n, jNhieu)
If ST > 0 Then
k = k + 1
Res(k, 1) = sArr(n, 1): Res(k, 2) = sArr(n, 2)
Res(k, 3) = sArr(n, 3): Res(k, 6) = ST
Res(k, jNhieu - 1) = sArr(n, 4): Res(k, jDU) = tkDU
End If
Next n
End If
Next i
With Sheets("NKC2")
If k Then
.Range("A3:F3").Resize(k) = Res
If k > 1 Then
.Range("A3:F3").Copy
.Range("A3:F3").Resize(k).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End If
End If
End With
Application.ScreenUpdating = True
End Sub
bạn gửi file lên mọi người chạy hộ cho hoặc bấm alt+F11 hiện bảng rồi vào insert vào module rồi rán code vào F5 chạy là ok
Anh cho em hỏi anh dùng VBA đây phải không ạ, em chưa biết VBA em phải học ở đâu ạ, em cảm ơn anh!
Bạn vào trang: https://www.giaiphapexcel.com/diendan/ewr-porta/
Vâng!
