Xử lý sổ NKC để dễ kiểm toán (3 người xem)

[quynhnguyen24101997]

dạ em muốn xử lý file data NKC để kiểm toán như hình, anh/chị có thể hướng dẫn em xử lý đc ko ạ? Em tha thiết mong anh/chị giúp đỡ, Lâu lắm rồi em ko còn nhớ cách làm, mò thử nhưng ko ổn ạ.

 

[vuvo_nhenhang]

View attachment 312858

dạ em muốn xử lý file data NKC để kiểm toán như hình, anh/chị có thể hướng dẫn em xử lý đc ko ạ? Em tha thiết mong anh/chị giúp đỡ, Lâu lắm rồi em ko còn nhớ cách làm, mò thử nhưng ko ổn ạ.

Sao dữ liệu kết chuyển không có số chứng từ bạn?
Nếu không có số chứng từ + ngày thì không biết xử lý kiểu gì

 

[quynhnguyen24101997]

Sao dữ liệu kết chuyển không có số chứng từ bạn?
Nếu không có số chứng từ + ngày thì không biết xử lý kiểu gì

dạ bên dịch vụ làm bên em bị sót rồi huhu. Dạ mình có thể giúp em xử lý trên dữ liệu sẵn không ạ, phần bị thiếu em sẽ nhờ bổ sung lại (em biết làm trên dữ liệu bị thiếu sẽ sai). Em muốn nhờ anh/chị hướng dẫn cách xử lý dữ liệu để chữa cháy vấn đề trước ạ

 

[Hoàng Tuấn 868]

dạ bên dịch vụ làm bên em bị sót rồi

Dữ liệu từ năm 2024 mà bây giờ mới phát hiện ra không có số chứng từ và ngày tháng thì cũng lạ nhỉ

 

[quynhnguyen24101997]

dạ em cũng vừa vào làm ko nắm hết đc thông tin ạ hic

 

[DeTong]

cách xử lý dữ liệu để chữa cháy vấn đề

........

 

[HieuCD]

View attachment 312858

dạ em muốn xử lý file data NKC để kiểm toán như hình, anh/chị có thể hướng dẫn em xử lý đc ko ạ? Em tha thiết mong anh/chị giúp đỡ, Lâu lắm rồi em ko còn nhớ cách làm, mò thử nhưng ko ổn ạ.

Tạo sheet NKC lưu kết quả

Sub xyz()
  Dim arr(), res(), tkN$, tkC$, st#, T#
  Dim sR&, fR&, i&, r&, n&, c&, j&, k&
 
  With Sheets("Tmp_Excel")
    i = .Range("A" & Rows.Count).End(xlUp).Row
    If i < 7 Then MsgBox ("Khong co du lieu!"): Exit Sub
    arr = .Range("A7:I" & i).Value
  End With
  sR = UBound(arr)
  ReDim res(1 To sR, 1 To 12)
  fR = 1
  For i = 1 To sR
    If arr(i, 8) > 0 Then
      n = n + 1
      st = st + arr(i, 8)
      tkN = arr(i, 7)
    Else
      st = st - arr(i, 9)
      tkC = arr(i, 7)
    End If
    If st = 0 Then
      If n = 1 Then j = 9 Else j = 8
      For r = fR To i
        If arr(r, j) > 0 Then
          k = k + 1
          res(k, 1) = arr(r, 1):      res(k, 2) = Month(res(k, 1))
          res(k, 3) = arr(r, 2):      res(k, 5) = arr(r, 3)
          res(k, 6) = arr(r, 1):      res(k, 7) = arr(r, 6)
          
          If j = 9 Then tkC = arr(r, 7) Else tkN = arr(r, 7)
          res(k, 8) = Left(tkN, 3):    res(k, 9) = Left(tkC, 3)
          res(k, 10) = tkN:            res(k, 11) = tkC
          res(k, 12) = arr(r, j)
          T = T + arr(r, j)
        End If
      Next r
      fR = r
      st = 0
      n = 0
    End If
  Next i
  With Sheets("NKC")
    i = .Range("A" & Rows.Count).End(xlUp).Row
    If i > 4 Then Range("A5:L" & i).ClearContents
    If k Then .Range("A7").Resize(k, 12) = res
    .Range("L5") = T
  End With
End Sub