Tính tổng từng đoạn với nhiều đoạn

Liên hệ QC

chutichmao

Thành viên mới
Tham gia
25/5/11
Bài viết
4
Được thích
0
Chào tất cả mọi người!

Mình có một bảng theo dõi doanh số bán hàng, cần tính tổng số thùng hàng mà mỗi khách hàng đã mua tại cột "Số thùng" như file đính kèm. Vấn đề ở chỗ, danh sách mình theo dõi có rất nhiều khách hàng, nếu tính tổng theo hàm SUM cho từng khách hàng thì mất rất nhiều thời gian o_Oo_O. Vậy mong mọi người chỉ cho mình cách tính nhanh, hiệu quả hơn.:):)

Cảm ơn!
 

File đính kèm

  • DOANH SO BAN HANG.xlsx
    11 KB · Đọc: 20
Bắt cái thằng viết phần mềm đổ báo cáo dạng "Raw Data" rồi lấy mà PivotTable.
Còn không thì bắt nó viết ra cái mình muốn là "ABC" hoặc "XYZ" luôn...
Đừng kiểu nửa Nạt/ nửa Mỡ thế này nhé!
 
Bắt cái thằng viết phần mềm đổ báo cáo dạng "Raw Data" rồi lấy mà PivotTable.
Còn không thì bắt nó viết ra cái mình muốn là "ABC" hoặc "XYZ" luôn...
Đừng kiểu nửa Nạt/ nửa Mỡ thế này nhé!
Cảm ơn bác @hpkhuong, em là nhân viên thời vụ, mới vào làm việc nên chưa nhờ hỗ trợ được từ những người khác. Bác xem có cách nào thì chỉ giúp em với.:(:(
 
Chào tất cả mọi người!

Mình có một bảng theo dõi doanh số bán hàng, cần tính tổng số thùng hàng mà mỗi khách hàng đã mua tại cột "Số thùng" như file đính kèm. Vấn đề ở chỗ, danh sách mình theo dõi có rất nhiều khách hàng, nếu tính tổng theo hàm SUM cho từng khách hàng thì mất rất nhiều thời gian o_Oo_O. Vậy mong mọi người chỉ cho mình cách tính nhanh, hiệu quả hơn.:):)

Cảm ơn!
Dùng VBA bạn à.
 
Nếu dữ liệu của bạn xuất ra đúng format như file thì tham khảo cách này nhá.
 

File đính kèm

  • DOANH SO BAN HANG.xlsx
    12.5 KB · Đọc: 21
Mình không rành về VBA. Bạn hướng dẫn cụ thể hơn giúp mình được k?
Đây bạn xem.
Mã:
Sub tinhtong()
   Dim arr, i As Long, tong As Double, lr As Long
   With Sheets("sheet2")
        lr = .Range("B" & Rows.Count).End(xlUp).Row
        arr = .Range("B5:F" & lr).Value
        For i = UBound(arr, 1) To 1 Step -1
            If arr(i, 1) <> Empty And arr(i, 3) <> Empty Then
                tong = tong + arr(i, 5)
            ElseIf arr(i, 1) <> Empty And arr(i, 3) = Empty Then
                arr(i, 5) = tong
                tong = 0
             End If
        Next i
       .Range("B5:F" & lr).Value = arr
  End With
End Sub
 

File đính kèm

  • DOANH SO BAN HANG (2).xlsm
    17.2 KB · Đọc: 9
Web KT
Back
Top Bottom