điền hàng tính tổng sau mỗi lớp (2 người xem)

[cuonghoa176]

GPE giúp tôi chèn 1 hàng sau mỗi lớp và tính tổng số tiền của mối lớp. Hàng cuối cùng tính tổng toàn trường.
Xin cảm ơn!

 

[thanhsangnguyen1982]

Data Subtotal

Dùng chức năng subtotal đi bạn

 

[cuonghoa176]

Các bác cho e doạn code thì tốt quá, áp vào cái nút lệnh cho ra luôn...e cảm ơn!

 

[SA_DQ]

Mình nhờ hàm DSUM(), bạn tham khảo & làm tiếp các khâu còn lại nha

[Thongbao]Các bác cho e doạn code thì tốt quá, áp vào cái nút lệnh cho ra luôn...e cảm ơn![/ThongBao]

 

[cuonghoa176]

Lỗi Bác ơi..

 

[dhn46]

Lỗi Bác ơi..

Bài này chắc bác Sa quên khai báo 1 chút chứ không có lỗi về tính toán
Bạn copy dòng này ngay sau dòng Sub TinhTienTheoLop()

 Dim dRg As Range

 

[cuonghoa176]

Bác sửa cho e sao cho nút lệnh giống như nút "cập nhật", Nếu như cũ thì mỗi lần nhấn vào "nó" lại thêm một hàng tính tổng nữa, rất dễ nhầm..
Cảm ơn bác!

 

[gángternet07]

Chào các anh chị... em mới Đăng ký nên chưa viết bài mới đc vậy nên em mạo muội vào đây hỏi mọi người... mong mọi người giúp đỡ em:
Hiện tại em đang có 1 bảng tính, em cần dùng đến hàm Sumif nhưng em đã làm đúng với hướng dẫn rồi mà không đc:
Đây là ảnh:
http://i.imgur.com/Gn9psjI.png

 

[SA_DQ]

Bạn chép toàn bộ macro này đề lên cái cũ & chạy thử

Bác sửa cho e sao cho nút lệnh giống như nút "cập nhật", Nếu như cũ thì mỗi lần nhấn vào "nó" lại thêm một hàng tính tổng nữa, rất dễ nhầm..
Cảm ơn bác!

Option Explicit
Sub TinhTienTheoLop()
 Dim Cls As Range, WF As Object, CSDL As Range, sRng As Range, dRg As Range
 Dim MyAdd As String
 
 Set WF = Application.WorksheetFunction
 Set CSDL = Range([A5], [A5].End(xlDown))
 Set sRng = CSDL.Find("GPE", , xlFormulas, xlPart)
 Set dRg = Rows("65525:65525")
 If Not sRng Is Nothing Then
    MyAdd = sRng.Address
    Do
        Set dRg = Union(dRg, sRng.EntireRow)
        Set sRng = CSDL.FindNext(sRng)
    Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
 End If
 dRg.Delete
 Set CSDL = [b5].CurrentRegion
 For Each Cls In Range([AA5], [AA5].End(xlDown))
    [ac5].Value = Cls.Value
    With [A65500].End(xlUp).Offset(1)
        .Value = Cls.Value & "GPE":        .Offset(, 2).Value = [AA1].Value
        Randomize
        .Interior.ColorIndex = 34 + 9 * Rnd \ 1
        .Offset(, 7).Value = WF.DSum(CSDL, [H4], [Ac4:AC5])
    End With
 Next Cls
 [b5].CurrentRegion.Sort Key1:=Range("A5"), Order1:=xlAscending, Key2:=Range("B5") _
        , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _
        , Orientation:=xlTopToBottom
End Sub

 

[cuonghoa176]

Sao lại "xổng" mất tổng con của 2 lớp 6A, 6B rồi Bác HYen ơi...?!

 

[ChanhTQ@]

Bạn xem file của mình xem sao.

\\\\\\\\\\\\/\\\\\\\\\,,,,,,