Tự động thêm hàng và tính tổng.

[quocphu67]

Em có file excel như đính kèm. giờ em muốn tính tổng theo điều kiện
Nếu C4 khác D3 thì thêm thêm 1 hàng và tính tổng của các hàng B, C, D
Kết quả được biểu diễn giống trong sheet "kết quả"
Em cảm ơn.

 

[chiendich]

có lẽ bài này với bài ở https://www.giaiphapexcel.com/diendan/threads/giúp-em-hàm-tính-tổng.143691/#post-927644 giống nhau thì phải
mình dùng Subtotal bằng vba nhé!

 

[snow25]

Em có file excel như đính kèm. giờ em muốn tính tổng theo điều kiện
Nếu A4 khác A3 thì thêm thêm 1 hàng và tính tổng của các hàng B, C, D
Kết quả được biểu diễn giống trong sheet "kết quả"
Em cảm ơn.

2 cái này có cùng đâu mà cộng tổng nhỉ.

có lẽ bài này với bài ở https://www.giaiphapexcel.com/diendan/threads/giúp-em-hàm-tính-tổng.143691/#post-927644 giống nhau thì phải
mình dùng Subtotal bằng vba nhé!

Tôi bấm vào vài lần nó chạy ra cái bảng dài lê thê bạn à.

 

[quocphu67]

có lẽ bài này với bài ở https://www.giaiphapexcel.com/diendan/threads/giúp-em-hàm-tính-tổng.143691/#post-927644 giống nhau thì phải
mình dùng Subtotal bằng vba nhé!

cảm ơn bác

Bài đã được tự động gộp: 17/7/19

2 cái này có cùng đâu mà cộng tổng nhỉ.
View attachment 221300

Vâng. lỗi bác ạ

Bài đã được tự động gộp: 17/7/19

có lẽ bài này với bài ở https://www.giaiphapexcel.com/diendan/threads/giúp-em-hàm-tính-tổng.143691/#post-927644 giống nhau thì phải
mình dùng Subtotal bằng vba nhé!

em cảm ơn bác. Bác giúp em lại cái file em vừa update lại bài viết ạ. Giờ tham chiếu vào C và D thì làm như thế nào ạ.

 

[chiendich]

cảm ơn bác

Bài đã được tự động gộp: 17/7/19

Vâng. lỗi bác ạ

Bài đã được tự động gộp: 17/7/19

em cảm ơn bác. Bác giúp em lại cái file em vừa update lại bài viết ạ. Giờ tham chiếu vào C và D thì làm như thế nào ạ.

Vẫn không hiểu ý của bạn!

 

[quocphu67]

Vẫn không hiểu ý của bạn!

em sửa lại bài của em rồi. điều khiện không giống lúc đầu nữa.
Em có file excel như đính kèm. giờ em muốn tính tổng theo điều kiện
Nếu C4 khác D3 thì thêm thêm 1 hàng và tính tổng của các hàng B, C, D
Kết quả được biểu diễn giống trong sheet "kết quả"
Bác giúp lại em với. Em cảm ơn.

 

[snow25]

em sửa lại bài của em rồi. điều khiện không giống lúc đầu nữa.
Em có file excel như đính kèm. giờ em muốn tính tổng theo điều kiện
Nếu C4 khác D3 thì thêm thêm 1 hàng và tính tổng của các hàng B, C, D
Kết quả được biểu diễn giống trong sheet "kết quả"
Bác giúp lại em với. Em cảm ơn.

Bạn xem.Nhưng khác kết quả bạn đưa ra nhé.

Sub tinhtong()
    Dim arr, i As Long, kq, tong(1 To 1, 3 To 5), a As Long, lr As Long, j As Integer
    With Sheets("so lieu")
         lr = .Range("A" & Rows.Count).End(xlUp).Row
         arr = .Range("A1:E" & lr).Value
         ReDim kq(1 To UBound(arr) * 2, 1 To 5)
         For i = 1 To 5
             kq(1, i) = arr(1, i)
         Next i
         tong(1, 3) = arr(1, 3)
         tong(1, 4) = arr(1, 4)
         tong(1, 5) = arr(1, 5)
         a = 1
         For i = 2 To UBound(arr)
            If arr(i, 3) <> arr(i - 1, 4) Then
                a = a + 1
                kq(a, 1) = "Tong"
                For j = 3 To 5
                    kq(a, j) = tong(1, j)
                    tong(1, j) = Empty
                Next j
             End If
                a = a + 1
                For j = 1 To 5
                    kq(a, j) = arr(i, j)
                Next j
                For j = 3 To 5
                    tong(1, j) = tong(1, j) + arr(i, j)
                Next j
        Next i
        If tong(1, 3) <> Empty Then
            a = a + 1
                kq(a, 1) = "Tong"
                For j = 3 To 5
                    kq(a, j) = tong(1, j)
                Next j
        End If
          
   End With
   With Sheets("ket qua")
        .Range("G1:K100000").ClearContents
        .Range("G1:K1").Resize(a).Value = kq
   End With
End Sub

 

[Ba Tê]

Bạn xem.Nhưng khác kết quả bạn đưa ra nhé.

Sub tinhtong()
    Dim arr, i As Long, kq, tong(1 To 1, 3 To 5), a As Long, lr As Long, j As Integer
    With Sheets("so lieu")
         lr = .Range("A" & Rows.Count).End(xlUp).Row
         arr = .Range("A1:E" & lr).Value
         ReDim kq(1 To UBound(arr) * 2, 1 To 5)
         For i = 1 To 5
             kq(1, i) = arr(1, i)
         Next i
         tong(1, 3) = arr(1, 3)
         tong(1, 4) = arr(1, 4)
         tong(1, 5) = arr(1, 5)
         a = 1
         For i = 2 To UBound(arr)
            If arr(i, 3) <> arr(i - 1, 4) Then
                a = a + 1
                kq(a, 1) = "Tong"
                For j = 3 To 5
                    kq(a, j) = tong(1, j)
                    tong(1, j) = Empty
                Next j
             End If
                a = a + 1
                For j = 1 To 5
                    kq(a, j) = arr(i, j)
                Next j
                For j = 3 To 5
                    tong(1, j) = tong(1, j) + arr(i, j)
                Next j
        Next i
        If tong(1, 3) <> Empty Then
            a = a + 1
                kq(a, 1) = "Tong"
                For j = 3 To 5
                    kq(a, j) = tong(1, j)
                Next j
        End If
         
   End With
   With Sheets("ket qua")
        .Range("G1:K100000").ClearContents
        .Range("G1:K1").Resize(a).Value = kq
   End With
End Sub

Hình như "chủ hàng" muốn tạo thêm dòng SUM() trong cùng bảng dữ liệu đó:
Tự động thêm hàng và tính tổng.

 

[quocphu67]

Bạn xem.Nhưng khác kết quả bạn đưa ra nhé.
[

cảm ơn bác

 

[quocphu67]

Bạn xem.Nhưng khác kết quả bạn đưa ra nhé.


Hình như "chủ hàng" muốn tạo thêm dòng SUM() trong cùng bảng dữ liệu đó:
Tự động thêm hàng và tính tổng.

Bác hướng dân em thêm công thức SUM() vào kết quả được ko ạ?

Bài đã được tự động gộp: 31/7/19

Bạn xem.Nhưng khác kết quả bạn đưa ra nhé.

Bác ơi em muốn cái kết quả ở dạng công thức SUM() chứ không phải là số chết thì làm ntn ạ?

 

[Ba Tê]

Bác ơi em muốn cái kết quả ở dạng công thức SUM() chứ không phải là số chết thì làm ntn ạ?

"ntn" là gì mà bạn phải làm biếng viết rõ?
Người khác viết Code hay trả lời cho bạn bằng viết tắt bạn có "bực mình" không?

 

[quocphu67]

"ntn" là gì mà bạn phải làm biếng viết rõ?
Người khác viết Code hay trả lời cho bạn bằng viết tắt bạn có "bực mình" không?

Vâng. Em cám ơn bác. em rút kinh nghiêm lần sau ạ. Cảm ơn bác nhiều.