Thêm dòng tổng cộng cho những mặt hàng có quy cách

Quảng cáo

moihocvba

Thành viên chính thức
Tham gia ngày
16 Tháng tám 2020
Bài viết
54
Được thích
14
Điểm
8
Tuổi
23
Xin chào anh chị GPE!
Em có một hóa đơn bao nhiều tôn và phụ kiện, đối với tôn thì có quy cách, còn phụ kiện thì không. Giờ em muốn thêm dòng tổng cộng dưới những dòng cùng 1 mặt hàng và có quy cách, mục đích để biết số tổng của mặt hàng đó. Đối với phụ kiện ko có dữ liệu ở cột quy cách thì ko cần tổng. Như hình dưới em minh họa:

Đây là bảng gốc:
1617853980595.png

Đây là bảng kết quả em muốn (dán ra sheet khác)

1617854009265.png


Cám ơn anh chị rất nhiều!
 

File đính kèm

  • Sum ten hang co quy cach.xlsm
    25.9 KB · Đọc: 12

Ba Tê

Cạo Rồi Khỏi Gội
Tham gia ngày
5 Tháng năm 2009
Bài viết
11,884
Được thích
17,028
Điểm
5,168
Tuổi
62
Nơi ở
An Giang
Đây là bảng kết quả em muốn (dán ra sheet khác)
Thử với Sub này:
PHP:
Public Sub Gpe()
Dim sArr(), dArr(), I As Long, J As Long, K As Long, R As Long, Dem As Long, Txt As String
    sArr = Sheets("Goc").Range("A5", Sheets("Goc").Range("A5").End(xlDown).Offset(1)).Resize(, 8).Value
    R = UBound(sArr) - 1
ReDim dArr(1 To R * 2, 1 To 8)
Txt = sArr(1, 2)
For I = 1 To R
    K = K + 1
    For J = 1 To 8
        dArr(K, J) = sArr(I, J)
    Next J
    If sArr(I, 3) <> Empty Then
        Dem = Dem + 1
        If sArr(I + 1, 2) <> Txt Then
            K = K + 1
            dArr(K, 2) = "C" & ChrW(7897) & "ng"
            dArr(K, 4) = "=SUM(R[-" & Dem & "]C:R[-1]C)"
            dArr(K, 5) = sArr(I, 5)
            dArr(K, 7) = "=SUM(R[-" & Dem & "]C:R[-1]C)"
            Txt = sArr(I + 1, 2)
            Dem = 0
        End If
    Else
        Dem = 0
    End If
Next I
    Sheets("KetQua").Range("A5").Resize(K, 8) = dArr
End Sub
 

cadafi

Working with mind, Living with nature!
Thành viên BQT
Super Moderator
Tham gia ngày
27 Tháng năm 2007
Bài viết
4,271
Được thích
11,283
Điểm
4,418
Tuổi
40
Nơi ở
HCM
Bạn thử 1 chút xem cho vui:

PHP:
Sub mSubTotal()
ActiveSheet.[A4:H15].Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(7), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub
 

moihocvba

Thành viên chính thức
Tham gia ngày
16 Tháng tám 2020
Bài viết
54
Được thích
14
Điểm
8
Tuổi
23
Cám ơn anh befaint@Ba Tê anh đã giúp em, code chạy nhanh và chuẩn ạ!
Tuy nhiên nếu như giữa các mặt hàng có quy cách, người dùng chen ngang 1 mặt hàng không có quy cách vào, thì mình phải sửa code lại như thế nào ạ?

Ví dụ như:
1617859850354.png


 
Quảng cáo
Top Bottom