Hỏi cách đánh số thứ tự và tính tiền tự động theo khách hàng (1 người xem)

[satthudabac]

Nhờ các bác pro giúp mình. Đánh số thứ tự và tính tiền tự động theo khách hàng, nếu viết bằng VBA thì càng tốt. (có gửi file đính kèm) Xin Chân thành cảm ơm.

 

[le tin]

Nhờ các bác pro giúp mình. Đánh số thứ tự và tính tiền tự động theo khách hàng, nếu viết bằng VBA thì càng tốt. (có gửi file đính kèm) Xin Chân thành cảm ơm.

Bạn xem đã đúng ý chưa
Chúc vui

 

[satthudabac]

Cám ơn bạn. Bạn đã làm đúng ý mình rồi! Nhờ bạn sửa giùm mình nếu tên khách hàng khác nhau thì vẫn tính tổng được (VD: Nguyễn Văn An, Lê Minh Nam ....)

 

[siwtom]

Nhờ các bác pro giúp mình. Đánh số thứ tự và tính tiền tự động theo khách hàng, nếu viết bằng VBA thì càng tốt. (có gửi file đính kèm) Xin Chân thành cảm ơm.

Khách hàng A, Khách hàng N là dữ liệu giả lập đúng không? Trong thực tế sẽ là Lê Anh, Nguyễn Diễm Mi đúng không? Nếu đúng thế thì tôi nhận dạng mỗi khách hàng mới theo cột D - Số lượng. Nếu Số lượng trống tức bắt đầu một khách mới. Cũng có thể nhận dạng theo cột C - Địa chỉ nhưng một ngày đẹp trời nào đó bạn có thể không nhập hết địa chỉ vì thực ra địa chỉ không quan trọng lắm. Còn Số lượng thì chả lý gì bạn lại nhập cho dòng "Khách hàng A".

Sub TinhToan()
Dim Arr, total As Long, r As Long, rKhach As Long, nrKhach As Long, nrHang As Long, maxIndex As Long
    Arr = Range("A3:F" & [B65000].End(xlUp).Row).Value
    maxIndex = UBound(Arr)
    Arr(maxIndex, 6) = 0
    For r = 1 To maxIndex
        If r = maxIndex Or Arr(r, 4) = 0 Then
            If total > 0 Then
                Arr(rKhach, 6) = total
                Arr(maxIndex, 6) = Arr(maxIndex, 6) + total
                total = 0
            End If
            rKhach = r
            nrKhach = nrKhach + 1
            nrHang = 0
            If r < maxIndex Then Arr(r, 1) = nrKhach
        Else
            nrHang = nrHang + 1
            Arr(r, 1) = nrHang
            Arr(r, 6) = Arr(r, 4) * Arr(r, 5)
            total = total + Arr(r, 6)
        End If
    Next
    Range("A3:F3").Resize(maxIndex).Value = Arr
End Sub

Nếu có dòng trống trong dữ liệu thì code sẽ làm sai.

 

[satthudabac]

Cám ơn bạn. Đúng ý của mình rồi!

 

[satthudabac]

Dạng này có viết hàm được không các bác pro?