Option Explicit
Dim SoTien As Double, Jj As Long
Dim Sh As Worksheet
Sub KetChuyen()
Dim RngC As Range, sRng As Range, RngB As Range
Const Chu As String = "632 6422 6421 5111"
Dim eRw As Long, Jj As Long, SoTien As Double
Dim MyAdd As String
Set Sh = Sheet2: eRw = [B65500].End(xlUp).Row
Sheet1.Select
Set RngB = Sh.Range(Sh.[B5], Sh.[B65500].End(xlUp))
Set RngC = RngB.Offset(, 1)
For Jj = 8 To eRw
SoTien = 0
If InStr(Chu, CStr(Cells(Jj, "B").Value)) > 0 Then
Set sRng = RngC.Find(Cells(Jj, "B").Value, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
SoTien = SoTien + sRng.Offset(, 1).Value
Set sRng = RngC.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
Cells(Jj, "D").Value = SoTien
ElseIf InStr(Chu, Cells(Jj, "C").Value) > 0 Then
Set sRng = RngB.Find(Cells(Jj, "c").Value)
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
SoTien = SoTien + sRng.Offset(, 2).Value
Set sRng = RngB.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
Cells(Jj, "D").Value = SoTien
End If
Next Jj
End Sub
1/ Bạn phải có file với biểu mẫu giống thật để biết cột nào nào là ngày tháng năm, cột nào là cái gì. Kết chuyển theo Tháng, Năm, Quý thì điều kiện nằm ở đâu để biết bạn muốn tháng nào, năm nào, quý nào?Anh (Chị) Có thể giúp em update Sub này trong trường hợp lựa chọn
+ Kết chuyển theo tháng, năm, quý
+Xóa bút toán kết chuyển cũ chuyển thành bút toán kết chuyển mới
+Hoặc bù trừ với bút toán kết chuyển cũ được không ạ !
Em cảm ơn anh( Chị) ạ !
Vẫn chưa hiểu mấy dòng giải thích, chỉ hiểu và làm được như vầy, bạn xem có giống kết quả bạn muốn không?Dạ em xin phép được gửi dữ liệu và ghi chú vấn đề cần hỏi. Anh Ba tê giúp em với ạ !. Em cảm ơn anh ạ
Dạ em cảm ơn anh @Ba Tê ạ !. Cái này là chưa cộng theo tháng anh nhỉ ?Vẫn chưa hiểu mấy dòng giải thích, chỉ hiểu và làm được như vầy, bạn xem có giống kết quả bạn muốn không?
DIỄN ĐÀN GIẢI PHÁP EXCEL