HỎI VỀ CODE TÍNH TỔNG TRONG EXEL.

Thảo luận trong 'Excel và VBA' bắt đầu bởi phamtuan9404, 18/7/19.

  1. phamtuan9404

    phamtuan9404 New Member Hội viên mới

    Trong bảng Exel dưới đây có hàm "tính tổng" mà em được biết là viết bằng Code vs VBA. Nhờ các anh chị trong Group giúp em viết CODE trong file Exel này với ạ. Tìm nát cả Google cách viết Code ntn mà k thấy. Em xin cảm ơn.
     

  2. be09

    be09 Member Hội viên mới

    File đâu?
     
  3. TQChanh

    TQChanh Member Hội viên mới

    Vì bạn không có file nên mình gởi file này bạn tham khảo tạm:
    PHP:
    Sub ThongKeTungNguoi()
    Dim CSDL As RangeCls As RangeWF As Object
    Dim Rws 
    As LongAs Integer

    Set WF 
    Application.WorksheetFunction
    Sheet3
    .Select
    With Sheet2
        Rws 
    = .[B1].CurrentRegion.Rows.Count
        Set CSDL 
    = .[B1].Resize(Rws):                                           .[AA1].Value = .[B1].Value
        
    For Each Cls In Range([B2], [B2].End(xlDown))
            .[
    AA2].Value Cls.Value
            
    For 3 To 6
                Cls
    .Offset(, 1).Value WF.DSum(CSDL.Resize(, J), .[A1].Offset(, J), .[AA1:AA2])
            
    Next J
            Cls
    .Offset(, 6).Value WF.DMax(CSDL.Resize(, 7), .[H1], .[AA1:AA2])
        
    Next Cls
    End With
    End Sub
    Rất vui nếu được thảo luận tiếp cùng bạn
     

    Các file đính kèm:

Chia sẻ trang này

XenForo Add-ons by Brivium ™ © 2012-2013 Brivium LLC.