Lọc và Tính tổng

[ZzNHCzZ]

Xin chào GPE!
Em có 1 bài toán như sau:
Em muốn lọc danh sách nhân viên và tính tổng tiền của họ.
Mong mọi người cho em xin đoạn code này.

Em chân thành cám ơn

Thân!
NHC

 

[buttri]

chao bạn

Xin chào GPE!
Em có 1 bài toán như sau:
Em muốn lọc danh sách nhân viên và tính tổng tiền của họ.
Mong mọi người cho em xin đoạn code này.

Em chân thành cám ơn

Thân!
NHC

Không cần code được không,làm theo cách này nhé.kèm file

 

[ndu96081631]

Thử code này:

Option Explicit
Sub Loc()
    Dim Er1, Er2, i As Integer
    Dim Temp, DK, Tong As Long
    Dim Clls, Ten, Tien As Range
    Er1 = Sheet1.Range("A60000").End(xlUp).Row
    Set Ten = Sheet1.Range("A1:A" & Er1)
    Set Tien = Sheet1.Range("C1:C" & Er1)
    
    Ten.AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=Sheet2.Range("A1"), Unique:=True
        
    Er2 = Sheet2.Range("A60000").End(xlUp).Row
    
    For i = 2 To Er2
       DK = Sheet2.Cells(i, 1).Value
       Tong = Application.WorksheetFunction.SumIf(Ten, DK, Tien)
       Sheet2.Cells(i, 4).Value = Tong
    Next i
End Sub

 

[anhtuan1066]

Không cần code được không,làm theo cách này nhé.kèm file

Đồng chí này làm bằng cách nào vậy ta? Trong file ko có code cũng ko có công thức
???
Tính rợ à?

 

[Trần Văn Bình]

có đấy chứ anh file chay rất tốt mà

 

[boyxin]

Xin chào GPE!
Em có 1 bài toán như sau:
Em muốn lọc danh sách nhân viên và tính tổng tiền của họ.
Mong mọi người cho em xin đoạn code này.

Em chân thành cám ơn

Thân!
NHC

Không dùng VBA mà dùng công thức thôi thì có được không?

Nếu được thì xem file đính kèm​

 

[cadafi]

Xin chào GPE!
Em có 1 bài toán như sau:
Em muốn lọc danh sách nhân viên và tính tổng tiền của họ.
Mong mọi người cho em xin đoạn code này.

Em chân thành cám ơn

Thân!
NHC

Chào bạn,
Mình không dùng Code, không dùng công thức luôn được không bạn!? Xem thử file đính kèm

 

[ZzNHCzZ]

Em chân thành tất cả mọi người đã nhiệt tình giúp em.
Em ko muốn làm Công thức, mà muốn viết macro.
Các công thức rất hay em sẽ lưu lại.
ndu96081631 File anh chạy rất tôt, nhưng khi xóa 1 ít dữ liệu rồi chạy Baocao thì số tiền củ bên Sheet baocao vẩn giữ nguyên.

Em muốn mở rộng bài toán này hơn. Thêm 1 sheet dàta với số money #.
Mọi người xem file của em nhé.

Em chân thành cám ơn!

Thân!

 

[ZzNHCzZ]

Mọi người giúp em bài mở rộng với
Em post từ sáng rùi mừ.
Thân!

 

[SA_DQ]

Có vẻ cần gấp, phải không

Mọi người giúp em bài mở rộng với Em post từ sáng rùi mừ.
Thân!

Xài tạm cái này

Option Explicit
Sub Baocao()
 Dim lRow As Long, lRow1 As Long, lRow2 As Long, Jj As Long
 
 Sheets("Data1").Select:                lRow1 = [a65000].End(xlUp).Row
 [iV1] = [a1]:                          AdvFilter Range("A1:A" & lRow1)
 Range("IV1:IV" & lRow1).Copy Destination:=Sheets("Data2").[iV1]
 With Sheets("Data2")
    lRow2 = .[a65000].End(xlUp).Row:    lRow = [iV65000].End(xlUp).Row + 1
    .Range("A2:A" & lRow2).Copy Destination:=.Range("iV" & lRow)
    AdvFilter .Range("IV1:Iv" & (lRow2 + lRow1))
 End With
 
 With Sheets("Baocao")
    .Range("A2:H" & lRow1 + lRow2).Clear
    Range("IV2:iv" & lRow1).Copy Destination:=.[A2]
    lRow = .[a65000].End(xlUp).Row
    For Jj = 2 To lRow
        .Cells(Jj, 4) = WorksheetFunction.SumIf(Range("A1:C" & lRow1), .Cells(Jj, 1), [c1])
        .Cells(Jj, 6) = WorksheetFunction.SumIf(Sheets("Data2").Range("A1:C" & lRow1), _
            .Cells(Jj, 1), Sheets("Data2").[c1])
        .Range("A" & lRow + 2) = "Total"
    Next Jj
 End With
End Sub

[B]Sub AdvFilter(Rng As Range)[/B]
    Rng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("IV1"), Unique:=True
[B]End Sub[/B]

Vì gấp rút cho bạn nên còn 2 ô tính tổng bạn cùng tìm với mình nha!

Bổ sung: Mình tìm ra rồi, nó để tham khảo là đây:
Cells(jW, 4).Formula = "=SUM(D" & dRow & "" & cRow & ")"
Bạn thử sức chút đi nha; Nếu không được thì mai mình giúp!

 

[ZzNHCzZ]

Cám ơn HYen17 nhiều!
Mình đã thử Code của bạn rồi. Có điều nếu thêm hay bớt dữ liệu thì Sheet baocao vẫn giũ kết quả củ.

Thân!